Cvp: Webden veri alma - ozanakkaya - 06/12/2016
Ben hala 2. sayfayı göremiyorum. Siz görebiliyor musunuz acaba?
Cvp: Webden veri alma - stringeer - 06/12/2016
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.
Cvp: Webden veri alma - ozanakkaya - 07/12/2016
Yoksa tüm kayıtlar aynı sayfada mıydı?
Cvp: Webden veri alma - stringeer - 07/12/2016
Yok 10 satırlık sayfalar olarak veriyor
Cvp: Webden veri alma - kadirdursun - 07/12/2016
(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?
Cvp: Webden veri alma - stringeer - 08/12/2016
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
|