AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Web Tarayıcısı

14/05/2014, 15:18

derbederali1971

Merhaba,

Bir sitenin veri girilen alanlarına Accesdeki bir değeri girerek kontrol yapmak istiyorum.Fakat Bazı alanlara yazılamıyor acaba nedendir.Korumamı vardır.

Örnek çalışma buldum fakat ordaki 2 alandan birine yazılıyor öbürüne yazılamıyor neden dir acaba.

Örnekte bağlandığım site http://www.bing.com/maps/default.aspx bu sitenin "where" name li alanına ilçeleri getirtip haritaya getiriyor fakat işletme adı veya kategorisi alanı olan "what"
alanına yazamıyorum acaba nedendir.

Teşekkürler.
14/05/2014, 21:04

ozanakkaya

Tarayıcıda what tanımlanmış ancak where kısmı Base64 ile kodlanmış,

İşletme adı kısmına "Hersan Cami", Konum Kısmına "Bitlis" Yazınca tarayıcıda şu link oluşuyor.

Kod:
http://www.bing.com/maps/#Y3A9MzguMzk5NDMwfjQyLjExMjk2MiZsdmw9MTUmc3R5PXImd2hlcmUxPUJpdGxpcyZzcz15cC5IZXJzYW4lMjBDYW1pfnBnLjF+cmFkLjgw
Linkteki
Alıntı:#Y3A9MzguMzk5NDMwfjQyLjExMjk2MiZsdmw9MTUmc3R5PXImd2hlcmUxPUJpdGxpcyZzcz15cC5IZXJzYW4lMjBDYW1pfnBnLjF+cmFkLjgw
kısmının anlamı

Alıntı:cp=38.399430~42.112962&lvl=15&sty=r&where1=Bitlis&ss=yp.Hersan%20Cami~pg.1~rad.80

Tarayıcının denetim kaynağını aşağıdaki ile değiştirsen muhtemelen çalışacaktır. Çalışmazsa webbrowser denetimi ekleriz 
="http://www.bing.com/maps/default.aspx" & "?where=" & [ilce] & "&ss=yp." & [Kategori]

koddaki [kategori] işletme veya kategori yazacağın metin kutusunun adı.
15/05/2014, 09:43

derbederali1971

Ozan bey teşekkürler.
Bu site için evet yaradı fakat ben birde http://metalsmarket.net/index.php sitesindeli Username ve password yazıp girmek istiyorum acaba bu hangi kodu kullanmış base64 denedim olmadı
16/05/2014, 05:32

ozanakkaya

inceleyiniz.

Private Sub Form_Load()

WebBrowser4.Silent = True

WebBrowser4.Navigate "http://metalsmarket.net/index.php"

End Sub



Private Sub Komut15_Click()



Set giris = WebBrowser4.Document.GetElementsByTagname("Input")



For Each tagx In giris

    If tagx.Name = "username" Then

        tagx.Value = Me.mtn_kullaniciadi

    End If

    If tagx.Name = "password" Then

        tagx.Value = Me.mtn_sifre

    End If

    If tagx.Value = "Log in" Then

        tagx.Click

    End If

Next

End Sub
16/05/2014, 15:11

derbederali1971

Çok Çok teşekkürler.
16/05/2014, 23:49

access_delisi

(14/05/2014, 21:04)ozanakkaya yazdı: Çalışmazsa webbrowser denetimi ekleriz webbrowser denetimi sanırım activexdeki webbrowser.