Access Data > Html Kod - hakkih - 13/01/2021
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...............
RE: Access Data > Html Kod - berduş - 13/01/2021
lütfen konu açarken daha dikkat edelim, sorular sorular kısmına açılmalı.
RE: Access Data > Html Kod - ozanakkaya - 19/01/2021
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 & _
" " & 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
RE: Access Data > Html Kod - hakkih - 26/01/2021
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
RE: Access Data > Html Kod - ozanakkaya - 01/02/2021
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.
RE: Access Data > Html Kod - temre - 14/02/2021
Merhaba
dosyayı paylaşabilir misiniz?
|