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.
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ı.
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.