ERP ve Excel - ERPye'den Excel'e veri aktarimi

Sayfayı Yazdır | Pencereyi Kapat

ERPye'den Excel'e veri aktarimi

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Genel
Forum Adı: ERP ve Excel
Forum Tanımlaması: ERP'den Excel'e Veri Çekmek ve Excel İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=2980
Tarih: 22 Kasım 2024 Saat 08:34
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: ERPye'den Excel'e veri aktarimi

Mesajı Yazan: fthtls
Konu: ERPye'den Excel'e veri aktarimi
Mesaj Tarihi: 15 Şubat 2012 Saat 16:34

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?

Cevaplar:

Mesajı Yazan: Conari
Mesaj Tarihi: 15 Şubat 2012 Saat 16:42

SqlText = "TARIH FROM" & Sayfa1.Cells (1,1) & ",TO" & Sayfa1.Cells (1,2) & "WHERE STOK_KODU = '"& Sayfa1.Cells (1,3)& "',OZUR_KODU"

bu cümle eksik

vt ORACLE ise baglantiniza bir sey diyemem.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: fthtls
Mesaj Tarihi: 15 Şubat 2012 Saat 17:26

Yardiminiz için tesekkürler.