Skip to main content

AccessTr.neT


Web Sayfası Tablo almak

Web Sayfası Tablo almak

Çözüldü #1
İlk önce herkese selamlar,

TR class="QueryTitleTable"
table class="DataGrid" cellspacing="0" cellpadding="4" rules="all" border="1" id="KisiGrid" *****background-color:White;border-
span id="KisiGrid_ctl02_Label5" NAME="Label1">YAKINLIĞI</span>
span id="KisiGrid_ctl02_Label3" NAME="Label1">T.C. NO</span>
span id="KisiGrid_ctl02_Label2" NAME="Label1">ADI</span>
span id="KisiGrid_ctl02_Label4" NAME="Label1">SOYADI</span>
span id="KisiGrid_ctl02_Label6" NAME="Label1">DOĞUM TARİHİ</span>
class="DataGridAlternatingItem" .........
………… üstte yazılanların aynısı devam ediyor sadece ctl02 yerine ctl03,04,05,06…. Kaç veri varsa o tabloda o şekilde devam ediyor. Kişiyi sorguladığımda kaç veri geleceğini bilemediğim için metin kutusu ile işlemi yapamıyorum. O yüzden yukarıda yazılan kaynak kodlarına göre kişiyi sorguladığımda tabloyu tek tek yerine toplu şekilde tabloyu alabilmem mümkün mü? veya tabloyu alamazsam bile ilk veriyi aldıktan sonra kendisi otomatik olarak yeni bir satır açıp ikinci veriyi yazabilirmi?

Me.ADI.Value = WebBrowser1.Document.All("KisiGrid_ctl02_Label5").innerText bu kodu yazarak tek tek alıyorum.

Statik ip ile açılan bir Site olduğu için burda yayınlayamıyorum.

Son Düzenleme: 23/12/2010, 15:44, Düzenleyen: silka.
Cevapla
Çözüldü #2
konu ile ilgili daha kimse bakmadı galiba
Cevapla
Çözüldü #3
sn silka,

Sayfa kaynağının tamamını gönderiniz. Veya sayfayı farklı kaydederek konuya ekleyiniz.
Cevapla
Çözüldü #4
sleadgab hocamın istediği kaynak kodlarını ekledim.
.htm index.htm (Dosya Boyutu: 25,3 KB | İndirme Sayısı: 8)
.txt KAYNAK KODLARI.txt (Dosya Boyutu: 25,3 KB | İndirme Sayısı: 16)
Cevapla
Çözüldü #5
(23/12/2010, 15:37)silka yazdı: İlk önce herkese selamlar,

TR class="QueryTitleTable"
table class="DataGrid" cellspacing="0" cellpadding="4" rules="all" border="1" id="KisiGrid" *****background-color:White;border-
span id="KisiGrid_ctl02_Label5" NAME="Label1">YAKINLIĞI</span>
span id="KisiGrid_ctl02_Label3" NAME="Label1">T.C. NO</span>
span id="KisiGrid_ctl02_Label2" NAME="Label1">ADI</span>
span id="KisiGrid_ctl02_Label4" NAME="Label1">SOYADI</span>
span id="KisiGrid_ctl02_Label6" NAME="Label1">DOĞUM TARİHİ</span>
class="DataGridAlternatingItem" .........
………… üstte yazılanların aynısı devam ediyor sadece ctl02 yerine ctl03,04,05,06…. Kaç veri varsa o tabloda o şekilde devam ediyor. Kişiyi sorguladığımda kaç veri geleceğini bilemediğim için metin kutusu ile işlemi yapamıyorum. O yüzden yukarıda yazılan kaynak kodlarına göre kişiyi sorguladığımda tabloyu tek tek yerine toplu şekilde tabloyu alabilmem mümkün mü? veya tabloyu alamazsam bile ilk veriyi aldıktan sonra kendisi otomatik olarak yeni bir satır açıp ikinci veriyi yazabilirmi?

Me.ADI.Value = WebBrowser1.Document.All("KisiGrid_ctl02_Label5").innerText bu kodu yazarak tek tek alıyorum.

Statik ip ile açılan bir Site olduğu için burda yayınlayamıyorum.

kaynak kodlarının tamamını ekledim.
Cevapla
Çözüldü #6
Eklediğiniz kaynak kodları https://accesstr.net/sitegenel/webdeneme.htm adresine kaydedip form üzerine bu sayfayı çağırdım.

Siz koddaki

WebBrowser1.Navigate "https://accesstr.net/sitegenel/webdeneme.htm"
satırını kendi sayfanıza göre düzenleyiniz.

form açıldığında butona tıkladığınızda webbrowserdaki verileri tabloya aktarır. Kullanılan kod aşağıdadır.


Private Sub Komut7_Click()

Dim IE As Object
Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
Dim HTML_TableRows As Object
Dim RetVal As Variant, X, A As Integer, SATIRSAYISI As Integer

Set IE = Me.WebBrowser1
Set HTML_Body = IE.Document.All
Set HTML_Tables = HTML_Body.tags("Table")
Set MyTable = HTML_Tables(11)
Set HTML_TableRows = MyTable.GetElementsByTagName("tr")
For Each MyRow In HTML_TableRows
X = X + 1
Next

SATIRSAYISI = (X - 1) / 1 'Img-grin

ReDim Sorgu(5, SATIRSAYISI - 1)

X = 0
For X = 0 To SATIRSAYISI - 1

A = 1 + (1 * X) ' Img-grin

Sorgu(0, X) = MyTable.Rows(A).Cells(1).innerText
Sorgu(1, X) = MyTable.Rows(A).Cells(2).innerText
Sorgu(2, X) = MyTable.Rows(A).Cells(3).innerText
Sorgu(3, X) = MyTable.Rows(A).Cells(4).innerText
Sorgu(4, X) = MyTable.Rows(A).Cells(5).innerText
Sorgu(5, X) = MyTable.Rows(A).Cells(6).innerText

Next X

Dim rc As DAO.Recordset
Set rc = CurrentDb.OpenRecordset("Tablo1")

X = 0

For X = 0 To SATIRSAYISI - 1

rc.AddNew

rc![bsn] = Sorgu(0, X)
rc![yakinligi] = Sorgu(1, X)
rc![tcno] = Sorgu(2, X)
rc![adi] = Sorgu(3, X)
rc![soyadi] = Sorgu(4, X)
rc![dogumtarihi] = Sorgu(5, X)

rc.Update
Next X

Set rc = Nothing
Me![Tablo1 alt formu].Requery

GoTo SafeExit:
ErrHandler:
SafeExit:
Set HTML_Body = Nothing
Set HTML_Tables = Nothing
Set MyTable = Nothing
Set HTML_TableRows = Nothing
Set HTML_TableDivisions = Nothing
Set IE = Nothing

End Sub
.rar mernis_deneme_sled.rar (Dosya Boyutu: 22,35 KB | İndirme Sayısı: 26)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task