Webden veri alma

1 2
06/12/2016, 18:34

ozanakkaya

Ben hala 2. sayfayı göremiyorum. Siz görebiliyor musunuz acaba?
06/12/2016, 21:49

stringeer

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.
07/12/2016, 17:58

ozanakkaya

Yoksa tüm kayıtlar aynı sayfada mıydı?
07/12/2016, 18:28

stringeer

Yok 10 satırlık sayfalar olarak veriyor
07/12/2016, 18:32

kadirdursun

(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?
08/12/2016, 09:26

stringeer

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
1 2