ERP Nedir? | Türkiye'nin ERP Forum Platformu : ERPye'den Excel'e veri aktarimi http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 18 Apr 2026 07:57:56 +0000 Wed, 15 Feb 2012 17:26:14 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=2980 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[ERPye'den Excel'e veri aktarimi : Yardiminiz için tesekkürler. ]]> http://www.erpne.org/erpyeden-excele-veri-aktarimi_topic2980_post16534.html#16534 Yazar: fthtls
Konu: 2980
Gönderim Zamanı: 15 Şubat 2012 Saat 17:26

Yardiminiz için tesekkürler.]]> Wed, 15 Feb 2012 17:26:14 +0000 http://www.erpne.org/erpyeden-excele-veri-aktarimi_topic2980_post16534.html#16534 <![CDATA[ERPye'den Excel'e veri aktarimi : SqlText = &#034;TARIH FROM&#034;...]]> http://www.erpne.org/erpyeden-excele-veri-aktarimi_topic2980_post16533.html#16533 Yazar: Conari
Konu: 2980
Gönderim Zamanı: 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.
]]> Wed, 15 Feb 2012 16:42:47 +0000 http://www.erpne.org/erpyeden-excele-veri-aktarimi_topic2980_post16533.html#16533 <![CDATA[ERPye'den Excel'e veri aktarimi : Arkadaslar merhaba, Az çok VBA...]]> http://www.erpne.org/erpyeden-excele-veri-aktarimi_topic2980_post16532.html#16532 Yazar: fthtls
Konu: 2980
Gönderim Zamanı: 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?

Düzenleyen fthtls - 15 Şubat 2012 Saat 16:35]]> Wed, 15 Feb 2012 16:34:17 +0000 http://www.erpne.org/erpyeden-excele-veri-aktarimi_topic2980_post16532.html#16532