Excel'den Sql tabloya veri gönderme

[maxinus]

Merhaba,

Excel'imdeki verileri Sql database'imdeki tablonun içine eklemek istiyorum.Daha önceki konulardan da istediğim gibi birşey bulamadım.Yardımcı olabilir misiniz.

 

[Necdet]

Merhaba,

Biz işyerinde Oracle veri tabanı kullanıyoruz.

Vereceğim örnek bize uygun. İnceleyiniz ve Tablo adlarını ve veri tabanına bağlantı tümcesini kendinize göre uyarlayınız.

Referanslardan da Microsoft ActiveX Data Object ... son sürüm seçili olmalı.

Sub Gunle()
    On Error Resume Next
    
    Dim i       As Long
    Dim sql     As String
    Dim deg     As String
    Dim Ucret   As String
    Dim Sifrem  As String
    
    Sifrem = "ABC"
    
    Dim CN
    Dim RS
    
    Set CN = New ADODB.Connection
    Set RS = New ADODB.Recordset
    
    CN.ConnectionString = "DRIVER={Microsoft ODBC for Oracle};UID=necdet;PWD=" & Sifrem & ";SERVER=oracle8"
    CN.Open
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Ucret = Replace(Cells(i, "D"), ",", ".")
        sql = "INSERT INTO PERSON (SICIL, ADI, SOYADI, UCRETI)" & _
              "VALUES(" & Cells(i, "A") & ", '" & Cells(i, "B") & "', '" & Cells(i, "C") & "," & Ucret & ")"
        Set RS = CN.Execute(sql)
        
    Next i
    
    MsgBox "İŞLEM TAMAMDIR....."
    RS.Close
    Set RS = Nothing
    CN.Close
    Set CN = Nothing
    
End Sub

 

[maxinus]

Teşeklkür ederim.SQL için yardımcı olabilecek var mıdır.