AccessTr.neT

Tam Versiyon: Webden Çekilen Veri Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
Merhaba, veri çektiğiniz alanda burce mi yozıyor? Başında veya sonunda boşluk olabilir mi?
<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
Merhaba, çektiği sitenin kaynak kodunu sormuyorum. Veri çektikten sonraki tabloda yazan veriyi soruyorum. Örnek uygulamanızı ekleyin, inceleyeyim.
buyrun.sorgu tabloda olmasına rağmen burce'yi döndürmüyor. tşkr.
merhaba
On Error Resume Next 
 kodunu kapat böyle çalıştır,bir hata var onu düzenleyip deneyin
Sayfalar: 1 2