Skip to main content

AccessTr.neT


Harita Koordinatlarının Sıralanması

Harita Koordinatlarının Sıralanması

Çözüldü #1
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~...
.rar Harita Koordinatların Sıralanması.rar (Dosya Boyutu: 24,45 KB | İndirme Sayısı: 7)
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 07/06/2021, 12:16, Düzenleyen: temre.
Cevapla
#2
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 = Nothing
Cevapla
#3
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.
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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.
Cevapla
#5
Teşekkür ederim.
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