Hocam; daha önce de sormuştum siz de cevap yazmıştınız ancak ben onu anlayamadım. Ben access de bunu aşağıdaki gibi çözmüştüm. Bunun gibi bir şey olabilir mi acaba?
.Dim IE As Object
Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
Dim HTML_TableRows As Object
Dim x, Y, Z, Guncel, Yeni As Integer
Set IE = Me.WebBrowser1
Set HTML_Body = IE.Document.All
Set HTML_Tables = HTML_Body.tags("Table")
Set MyTable = HTML_Tables(41)
Set HTML_TableRows = MyTable.GetElementsByTagName("td")
For Each MyRow In HTML_TableRows
x = x + 1
Next
Z = (x - 8) / 8
ReDim sorgu(5, Z - 1)
x = 0
Guncel = 0
Yeni = 0
For x = 0 To Z - 1
Y = 1 + (1 * x)
sorgu(0, x) = MyTable.Rows(Y).Cells(1).innertext
sorgu(1, x) = MyTable.Rows(Y).Cells(2).innertext
sorgu(2, x) = MyTable.Rows(Y).Cells(3).innertext
sorgu(3, x) = MyTable.Rows(Y).Cells(4).innertext
Next x
Dim rc As DAO.Recordset
Set rc = CurrentDb.OpenRecordset("TabloOgrenciler")
x = 0
For x = 0 To Z - 1
strSQL = "SELECT * FROM TabloOgrenciler "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
kriterim = sorgu(0, x)
.Find "[kriter]=" & "'" & kriterim & "'"
If Not rstkayit.EOF Then
.AddNew
.Fields("adı") = sorgu(0, x)
.Fields("Soyadı") = sorgu(1, x)
.Fields("okulno") = sorgu(2, x)
.Fields("Sınıfı") = sorgu(3, x)
.Update
End If
End With
Next x
şeklinde alabilir miyiz acaba?
→
idrisy 03.05.17 17:42
