Webden veri alma

Ben hala 2. sayfayı göremiyorum. Siz görebiliyor musunuz acaba?

Evet 2.sayfayı görebiliyorum.  Sitede sayfa numaralarının yanındaki oklarla arama yapmadan sonraki sayfalar görülebiliyor. 10 satırın altındaki kayıtları eklemeyi if kısmını bloke ederek çözdüm teşekkürler.

Yoksa tüm kayıtlar aynı sayfada mıydı?

Yok 10 satırlık sayfalar olarak veriyor

(06/12/2016, 21:49)stringeer yazdı: Evet 2.sayfayı görebiliyorum.  Sitede sayfa numaralarının yanındaki oklarla arama yapmadan sonraki sayfalar görülebiliyor. 10 satırın altındaki kayıtları eklemeyi if kısmını bloke ederek çözdüm teşekkürler.

Bu sorunu nasıl çözdünüz?

Örneğinizi ekleyebilir misiniz?

Bu tablo zaten geçici bir tablo olacaktı onu için bir ekleme sorgusu yapıp

INSERT INTO Tbl_Alimlar ( IKN, Barkod, Etiket, Istekli, I_Kodu, Adet, Fiyat, Tutar, GMDN, Idare_K, Idare_A, Alim_T, Sonuc, Tur, Aciklama )

SELECT Tbl_Aktarma1.IKN, Tbl_Aktarma1.Barkod, Tbl_Aktarma1.Etiket, Tbl_Aktarma1.Istekli, Tbl_Aktarma1.I_Kodu, Tbl_Aktarma1.Adet, Tbl_Aktarma1.Fiyat, Tbl_Aktarma1.Tutar, Tbl_Aktarma1.GMDN, Tbl_Aktarma1.Idare_K, Tbl_Aktarma1.Idare_A, Tbl_Aktarma1.Alim_T, Tbl_Aktarma1.Sonuc, Tbl_Aktarma1.Tur, Tbl_Aktarma1.Aciklama

FROM Tbl_Aktarma1

WHERE (((Tbl_Aktarma1.IKN) Is Not Null And (Tbl_Aktarma1.IKN) Not Like "Gösterilecek ihale detayı yok"));

Koduda şu şekilde derleyerek sorunu çözdüm

Option Compare Database

Option Explicit



Private Sub btn_verial_Click()

On Error Resume Next



Dim GVeriTablo As Object

Dim GSayi, GVeriSutun As Integer

Dim rc As DAO.Recordset

  

Set GVeriTablo = Me.WebBrowser0.Document.getElementById("ctl00_MainContent_gridIhale_ctl00")

        



    Set rc = CurrentDb.OpenRecordset("Tbl_Aktarma1")

    

    GSayi = 0

    

    For GSayi = 0 To 9

        GVeriSutun = GSayi + 1

        

        'If GVeriTablo.rows(GVeriSutun).cells(0).innerText = "Gösterilecek ihale detayı yok" Then

        

           ' MsgBox ("Gösterilecek ihale detayı yok veya sorgu sonucu yok ")

            'Exit Sub

       ' End If

        

        rc.AddNew

            rc![IKN] = GVeriTablo.rows(GVeriSutun).cells(0).innerText

            rc![Barkod] = GVeriTablo.rows(GVeriSutun).cells(1).innerText

            rc![Etiket] = GVeriTablo.rows(GVeriSutun).cells(2).innerText

            rc![Istekli] = GVeriTablo.rows(GVeriSutun).cells(3).innerText

            rc![I_Kodu] = GVeriTablo.rows(GVeriSutun).cells(4).innerText

            rc![Alim_T] = GVeriTablo.rows(GVeriSutun).cells(5).innerText

            rc![Adet] = GVeriTablo.rows(GVeriSutun).cells(6).innerText

            rc![Fiyat] = GVeriTablo.rows(GVeriSutun).cells(7).innerText

            rc![Tutar] = GVeriTablo.rows(GVeriSutun).cells(8).innerText

            rc![GMDN] = GVeriTablo.rows(GVeriSutun).cells(9).innerText

            rc![Idare_K] = GVeriTablo.rows(GVeriSutun).cells(10).innerText

            rc![Idare_A] = GVeriTablo.rows(GVeriSutun).cells(11).innerText

            rc![Sonuc] = GVeriTablo.rows(GVeriSutun).cells(12).innerText

            rc![Tur] = GVeriTablo.rows(GVeriSutun).cells(13).innerText

            rc![Aciklama] = GVeriTablo.rows(GVeriSutun).cells(14).innerText

        rc.Update

    Next GSayi

    

    Set rc = Nothing

    Me![alt_form_frm].Requery

    Set GVeriTablo = Nothing

End Sub



Private Sub btn_verikatar_Click()

DoCmd.OpenQuery "aktar"

CurrentDb.Execute "DELETE * FROM [Tbl_Aktarma1] "

Me![alt_form_frm].Requery

End Sub



Private Sub Form_Open(Cancel As Integer)

WebBrowser0.Navigate "https://titubb.titck.gov.tr/Reports/FiyatRapor.aspx"

End Sub