ERPye'den Excel'e veri aktarimi

Arkadaslar merhaba,

Az çok VBA bilgim var ancak Netsis'den veri aktarimi konusunda daha yeniyim. Elimde daha önceden hazirlanmis bir kod vardi ve ben bu kodu uyarlayarak bir netsisten excele veri aktaran bir makro hazirladim. Ancak bekledigim gibi kod çalismadi. Amacim iki tarih arasinda belli stok koduna ait özürleri tablo olarak raporlamak.

Rapor baslangiç tarihi : Sayfa1.Cells(1,1)
Rapor bitis tarihi     : Sayfa1.Cells(1,2)
Stok Kodu              : Sayfa1.Cells(1,3)

Yazdigim kod asagidaki gibi;

Private Sub CommandButton1_Click()

    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim SqlText As String
    Dim i As Integer
    
    Set conn = New ADODB.Connection
    
    conn.CommandTimeout = 120
    
    conn.Open "Provider = MSDAORA;Data Source=NETSISTCP50.WORLD;USER ID=SYSTEM;PASSWORD=SYSTEMPASS"
    SqlText = "TARIH FROM" & Sayfa1.Cells (1,1) & ",TO" & Sayfa1.Cells (1,2) & "WHERE STOK_KODU = '"& Sayfa1.Cells (1,3)& "',OZUR_KODU"
   
rs.Open SqlText, con, adOpenStatic, adLockReadOnly
       
    i = 5
    
    Do While Not rs.EOF
        RAPOR.Cells(i, 1).Value = rs(0)
        RAPOR.Cells(i, 2).Value = rs(1)
        RAPOR.Cells(i, 3).Value = rs(2)
        i = i + 1
        rs.MoveNext
    Loop
    
    rs.Close
                                          
End Sub

Bu kodun çalismasi için nasil revizyonlar gerekli acaba?

Düzenleyen fthtls - 15 Şubat 2012 Saat 16:35

Yardiminiz için tesekkürler.