Webden Çekilen Veri Sorunu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Webden Çekilen Veri Sorunu (/konu-webden-cekilen-veri-sorunu.html) Sayfalar:
1
2
|
Webden Çekilen Veri Sorunu - Mecnun24 - 16/11/2019 Merhaba aşağıdaki kodla veriyi tabloya çekiyorum, fakat sorgularda kullanamıyorum. Örneğin tabloda burce isimli bir olmasına rağmen sorgu satır döndürmüyor yomuş gibi. Veriyi silip elimle burce yazarsam sonuç dönüyor. çözüm arıyorum. yardımcı olurmusunuz. ----------sorgu ------- SELECT HisseVtGun.HISSE, HisseVtGun.FIYAT FROM HisseVtGun WHERE (((HisseVtGun.HISSE)="burce")); -------------veriyi ceken kod -------------- Private Sub isyatirim() On Error Resume Next CurrentDb.Execute "DELETE * FROM [HisseVtGun] " Dim IE As Object Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object Dim HTML_TableRows As Object Dim S As String Dim RetVal As Variant, X, A As Integer, SATIRSAYISI As Integer Dim Sql As String Dim rc As DAO.Recordset Set rc = CurrentDb.OpenRecordset("HisseVtGun") Set IE = Me.WebBrowser1 Set HTML_Body = IE.Document.all Set HTML_Tables = HTML_Body.tags("table") Set MyTable = HTML_Tables(2) Set HTML_TableRows = MyTable.GetElementsByTagName("td") For L = 0 To 600 If CInt(MyTable.rows(L).cells(1).innerText) < 0 Then GoTo 100 rc.AddNew rc!HISSE = BoslukSil(MyTable.rows(L).cells(0).innerText) rc!FIYAT = MyTable.rows(L).cells(1).innerText rc!YUZDE = MyTable.rows(L).cells(2).innerText rc!DEGISIM = MyTable.rows(L).cells(3).innerText rc!hacIM = MyTable.rows(L).cells(4).innerText rc!HACIMAD = MyTable.rows(L).cells(5).innerText rc.update 100 Next L Set rc = Nothing 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 ---------hisse adındaki boşluğu silen kod-------- Public Function BoslukSil(ByVal GVeri As String) As String If InStr(GVeri, Chr(160)) > 0 Then BoslukSil = Replace(GVeri, Chr(160), "") ElseIf InStr(GVeri, Chr(32)) > 0 Then BoslukSil = Replace(GVeri, Chr(32), "") Else BoslukSil = GVeri End If End Function Cvp: Webden Çekilen Veri Sorunu - ozanakkaya - 16/11/2019 Merhaba, veri çektiğiniz alanda burce mi yozıyor? Başında veya sonunda boşluk olabilir mi? Cvp: Webden Çekilen Veri Sorunu - Mecnun24 - 17/11/2019 <tr> <td title="BURÇELİK"> <a href="/tr-tr/analiz/hisse/sayfalar/sirket-karti.aspx?hisse=BURCE"> BURCE </a> </td> <td class="text-right">4,37</td> <td class="text-right"> <span class="value up"> 0,23 </span> </td> <td class="text-right">0,01</td> <td class="text-right">759.286</td> <td class="text-right">173.311</td> </tr> satırı bu veri kümesinden çekiyor ozan bey. boşluk görünmüyor. site adresi :https://www.isyatirim.com.tr/tr-tr/analiz/hisse/Sayfalar/default.aspx Cvp: Webden Çekilen Veri Sorunu - ozanakkaya - 17/11/2019 Merhaba, çektiği sitenin kaynak kodunu sormuyorum. Veri çektikten sonraki tabloda yazan veriyi soruyorum. Örnek uygulamanızı ekleyin, inceleyeyim. Cvp: Webden Çekilen Veri Sorunu - Mecnun24 - 17/11/2019 buyrun.sorgu tabloda olmasına rağmen burce'yi döndürmüyor. tşkr. Cvp: Webden Çekilen Veri Sorunu - C*e*l*o*y*c*e - 17/11/2019 merhaba On Error Resume Next kodunu kapat böyle çalıştır,bir hata var onu düzenleyip deneyin |