Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Access Data > Html Kod

hakkih
hakkih
Access Cevaplanmış Soruları
5
1180

Access Data > Html Kod

Çözüldü #1
hakkih
Aktif Üye
hakkih
Bul
Aktif Üye
Adı Soyadı: HA.... MU....
Yaşı: 53
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 25/01/2024,21:24
Yorumları: 78
Konuları: 12
Kayıt Tarihi: 08/05/2009
Teşekkür Puanı: 0
Mesleğiniz: PC OPERATOR
Merhaba ;

ekte göndermiş olduğum rar içinde örnek verilmiştir.

Konu şu ;

bir data var datanın 2 kolonu kullanılacak web4 web8

html gönder dediğinde

maps_web4.html gibi bir Html dosyası üretecek

maps_web4 içinde

" // // Birde Çok İşaretçi WEB4
        var

markers = ["

bu kodlar sabit

altına web4 satırın değişken  dataları gelecek
aynı şekilde
"// Bilgi Pencerelerinin İçerikleri WEB 8
        var

infoWindowContent = ["

altındakiler değişken
-----------------------------

web4 ve web 8 değişkenler olacak diğer yazılanlar sabit.


Konuyla ilgili yardımlarınızı bekliyorum...............
.rar datahtml.rar (Dosya Boyutu: 70,37 KB | İndirme Sayısı: 12)
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,13:08
Yorumları: 8.551
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
lütfen konu açarken daha dikkat edelim, sorular sorular kısmına açılmalı.
Cevapla
#3
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,12:45
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz. 

Dim objStream

Dim FileName, File As String

Dim rst As DAO.Recordset



FileName = CurrentProject.Path & "\Test.html"



Set objStream = CreateObject("ADODB.Stream")

objStream.Charset = "utf-8"

objStream.Open



Set rst = CurrentDb.OpenRecordset("CM-DISFA2")

rst.MoveFirst



Do Until rst.EOF

    GVeri = GVeri & rst!WEB4 & vbCrLf

    rst.MoveNext

Loop



rst.MoveFirst

Do Until rst.EOF

    GVeri2 = GVeri2 & rst!WEB8 & vbCrLf

    rst.MoveNext

Loop



GUst = "<html>" & vbCrLf & _

"<meta http-equiv=""x-ua-compatible"" content=""IE=edge"">" & vbCrLf & _

"<body>" & vbCrLf & _

"<style>" & vbCrLf & vbCrLf & _

"adoConn.Open(""Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\Users\Hakkı\Desktop\Yeni klasör\KESME\AVCILAR.accdb'"");" & vbCrLf & vbCrLf & _

"#map_wrapper { " & vbCrLf & _

"        height: 400px; " & vbCrLf & _

"    } " & vbCrLf & vbCrLf & _

"    #map_canvas { " & vbCrLf & _

"        width: 100%; " & vbCrLf & _

"        height: 100%; " & vbCrLf & _

"    } " & vbCrLf & vbCrLf & _

"</style> " & vbCrLf & vbCrLf & _

"<h3>Pandera X</h3>" & vbCrLf & _

"<div id=""map_wrapper"">" & vbCrLf & _

"       <div class=""mapping"" id=""map_canvas""> " & vbCrLf & _

"            &nbsp;" & vbCrLf & _

"       </div>" & vbCrLf & _

"</div>" & vbCrLf



GUst = GUst & vbCrLf & "       <script src=""https://ajax.googleapis.com/ajax/libs/jquery/1.11.3/jquery.min.js""></script>" & vbCrLf & _

"        <script>" & vbCrLf & _

"     jQuery(function ($) { " & vbCrLf & _

"        // API'yi Google'dan Asenkron Olarak Çağır" & vbCrLf & _

"        var script = document.createElement('script'); " & vbCrLf & _

"        script.src = ""http://maps.googleapis.com/maps/api/js?sensor=false&callback=initialize"";" & vbCrLf & _

"        document.body.appendChild(script);" & vbCrLf & _

"    });" & vbCrLf & _

"    function initialize() {" & vbCrLf & _

"        var map;" & vbCrLf & _

"        var bounds = new google.maps.LatLngBounds();" & vbCrLf & _

"        var mapOptions = {" & vbCrLf & _

"mapTypeId:             'roadmap' " & vbCrLf & _

"        };" & vbCrLf & _

"        // Sayfada Haritayı Göster " & vbCrLf & _

"        map = new google.maps.Map(document.getElementById(""map_canvas""), mapOptions); " & vbCrLf & _

"        map.setTilt(45); " & vbCrLf & _

"       // Birde Çok İşaretçi WEB4" & vbCrLf & _

"        var "



GAlt = " // Haritada Birden Fazla İşaretçi Göster" & vbCrLf & _

"        var infoWindow = new google.maps.InfoWindow(), marker, i;" & vbCrLf & _

"        // İşaretçi Dizisini Döngüye Sok ve Harita Üzerine Yerleştir" & vbCrLf & _

"        for (i = 0; i < markers.length; i++) {" & vbCrLf & _

"            var position = new google.maps.LatLng(markers[1], markers[2]);" & vbCrLf & _

"            bounds.extend(position);" & vbCrLf & _

"            marker = new google.maps.Marker({" & vbCrLf & _

"                position: position," & vbCrLf & _

"                map: map," & vbCrLf & _

"                title: markers[0]" & vbCrLf & _

"            });" & vbCrLf & _

"            // Her İşaretçinin Kendine Ait Bir Bilgi Penceresi Olmasına İzin ver" & vbCrLf & _

"            google.maps.event.addListener(marker, 'click', (function (marker, i) {" & vbCrLf & _

"                return function () {" & vbCrLf & _

"                    infoWindow.setContent(infoWindowContent[0]);" & vbCrLf & _

"                    infoWindow.open(map, marker);" & vbCrLf & _

"                }" & vbCrLf & _

"            })(marker, i));" & vbCrLf & _

"            // Tüm İşaretçileri Otomatik Olarak Ekrana Sığdır" & vbCrLf & _

"            map.fitBounds(bounds);" & vbCrLf & _

"        }" & vbCrLf & _

"        // Kullanıcı Zoom Seviyesini Geçersiz Kılıp Uzaklaştırmayı Otomatik Ayarla (SADECE BİR KEZ ÇAĞIRILMALI!)" & vbCrLf & _

"        var boundsListener = google.maps.event.addListener((map), 'bounds_changed', function (event) {" & vbCrLf & _

"            this.setZoom(14);" & vbCrLf & _

"            google.maps.event.removeListener(boundsListener);"

        

GAlt = GAlt & vbCrLf & "        });" & vbCrLf & _

"        //Pandera X Google Maps Fallback" & vbCrLf & _

"    }" & vbCrLf & _

"    </script>" & vbCrLf & _

"</body>" & vbCrLf & _

"</html>" & vbCrLf



objStream.WriteText GUst & vbCrLf & "markers = [" & vbCrLf & vbCrLf & GVeri & vbCrLf & vbCrLf & "];" & vbCrLf & vbCrLf & "var" & vbCrLf & vbCrLf & "infoWindowContent = [" & vbCrLf & vbCrLf & GVeri2 & vbCrLf & vbCrLf & "];" & vbCrLf & GAlt

   

objStream.SaveToFile FileName, 2



MsgBox ("Aktarım Tamamlandı")

rst.Close

objStream.Close
Cevapla
#4
hakkih
Aktif Üye
hakkih
Bul
Aktif Üye
Adı Soyadı: HA.... MU....
Yaşı: 53
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 25/01/2024,21:24
Yorumları: 78
Konuları: 12
Kayıt Tarihi: 08/05/2009
Teşekkür Puanı: 0
Mesleğiniz: PC OPERATOR
Merhaba;

kodlar çalıştı ve çok güzel oldu, vermiş olduğunuz desteği için teşekkürler....


FileName = CurrentProject.Path & "\Test.html"


Test.html değil, personel sülününden personelin adına göre oluştursa.
Örnekte Mustafa.html

Teşekkür ederiz iyi günler
Cevapla
#5
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,12:45
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
rst!PERSONEL kodu personelin adını verir. Belirttiğiniz gibi dosya adı 
FileName = CurrentProject.Path & "\Test.html"

kodu ile tanımlanmış. Bu kodu tabloya bağlanılan

Set rst = CurrentDb.OpenRecordset("CM-DISFA2")
 
kodundan sonra yazıp rst!PERSONEL kodunu dosya adında kullanılacak şekilde değiştirebilirsiniz.
Cevapla
#6
temre
Aktif Üye
temre
Bul
Aktif Üye*
Adı Soyadı: Mu.... Me....
Yaşı: 49
Konum: İstanbul
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 19/08/2024,00:49
Yorumları: 359
Konuları: 71
Kayıt Tarihi: 19/02/2010
Teşekkür Puanı: 0
Merhaba

dosyayı paylaşabilir misiniz?
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da