Eklediğin uygulama hasarlı. Boş veritabanı ekle, tüm nesneleri yeni veritabanına aktar.

ilk 4 metin kutusuna veri aktaran ve 4 input'a veri gönderen kod.

Private Sub getir_Click()



tarih = WebBrowser0.Document.All.tags("table").Item(1).Rows(0).cells(0).innertext

adi = WebBrowser0.Document.All.tags("table").Item(1).Rows(0).cells(1).innertext

soyadi = WebBrowser0.Document.All.tags("table").Item(1).Rows(0).cells(2).innertext

tckimlikno = WebBrowser0.Document.All.tags("table").Item(1).Rows(1).cells(2).innertext



End Sub







Private Sub gonder_Click()



WebBrowser0.Document.All("tarih").Value = tarih

WebBrowser0.Document.All("adi").Value = adi

WebBrowser0.Document.All("soyadi").Value = soyadi

WebBrowser0.Document.All("tcno").Value = tckimlikno

'buton tıkla WebBrowser0.Document.Forms(0).Elements("B1").Click

End Sub

webbrowser0da "eleman.htm" açılacak. diğer web sayfaları gerekiyorsa forma yeni webbrowser oluştur.