+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Harita Koordinatlarının Sıralanması (/konu-harita-koordinatlarinin-siralanmasi.html)
Harita Koordinatlarının Sıralanması - temre - 06/06/2021
Merhaba,
Aşağıdaki kodda Tablo1'de seçili koordinatların birleşik olarak gelmesi için yardımcı olabilir misiniz?
Yapmak istediğim:
KOORDINATDIZESI=""
Do While Not ADO_RS.EOF
If ADO_RS("Seç") = -1 Then
KOORDINATDIZESI=KOORDINATDIZESI "_" & X & "_" & Y & "_" & ETIKET
End If
ADO_RS.MoveNext
Loop
WebBrowser1.Navigate "bingmaps:?collection=KOORDINATDIZESI_&lvl=15"
KOORDINATDIZESI kısmı açılım olarak aşağıdaki gibi gelmelidir:
point.X1_Y1_ETIKET1~point.X2_Y2_ETIKET2~point.X3_Y3_ETIKET3~point.X4_Y4_ETIKET4~point.X5_Y5_ETIKET5~point.X6_Y6_ETIKET6~...
Re: Harita Koordinatlarının Sıralanması - ozanakkaya - 07/06/2021
Forma Metin9 adında metin kutusu ve buton ekle. Butonun tıklandığında olayına aşağıdaki kodu ekle.
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Set ADO_RS = New ADODB.Recordset
SQL = "select * from [Tablo1]"
ADO_RS.Open SQL, CurrentProject.Connection, 3, 1
ADO_RS.MoveFirst
Me.Metin9 = ""
Do While Not ADO_RS.EOF
GVeri = GVeri & "point." & ADO_RS("X") & "_" & ADO_RS("Y") & "_" & ADO_RS("ETIKET") & Chr(126)
ADO_RS.MoveNext
Loop
Me.Metin9 = GVeri & "_&lvl=15"
ADO_RS.Close
Set ADO_RS = NothingRE: Harita Koordinatlarının Sıralanması - temre - 07/06/2021
Teşekkür ederim Ozan hocam.
Sanırım haritada gösterim noktası olarak bir limit var.
30 kadar noktayı gösteriyor; fazlasında hata verdi.
Örneği düzenleyip paylaşacağım.
RE: Harita Koordinatlarının Sıralanması - ozanakkaya - 07/06/2021
Dim Sql As String
Dim GSayi As Integer
Dim GVeri As String
Dim ADO_RS As ADODB.Recordset
GSayi = 1
Set ADO_RS = New ADODB.Recordset
SQL = "select * from [Tablo1]"
ADO_RS.Open SQL, CurrentProject.Connection, 3, 1
ADO_RS.MoveFirst
Do While Not ADO_RS.EOF
GVeri = GVeri & "point." & ADO_RS("X") & "_" & ADO_RS("Y") & "_" & ADO_RS("ETIKET") & Chr(126)
If GSayi = 3 Then
Exit Do
End If
GSayi = GSayi + 1
ADO_RS.MoveNext
Loop
Me.Metin9 = GVeri
ADO_RS.Close
Set ADO_RS = Nothing
if GSayi = 3 kodunu, GSayi = 30 yaparsan 30 tane veriyi aktaracaktır.
RE: Harita Koordinatlarının Sıralanması - temre - 07/06/2021
Teşekkür ederim.