DefStr S

Sub updateSQL()

Dim Cnn As Object

Dim vtSql

Dim say%

On Error Resume Next

 sat = [a65536].End(3).Row

Set Cnn = CreateObject("ADODB.Connection")

Set cmdCommand = CreateObject("ADODB.Command")

strServer = Sheets("login").Range("n4").Value

strDatabase = Sheets("login").Range("n1").Value

strKullanycy = Sheets("login").Range("n2").Value

strParola = Sheets("login").Range("n3").Value

   Cnn.Open "Provider=SQLOLEDB; Data Source=" & strServer & ";Autotranslate=true ;Initial Catalog=" & strDatabase & "; User ID=" & strKullanycy & "; Password=" & strParola & ";"

  

 Set cmdCommand.ActiveConnection = Cnn

 For say = 2 To sat

 

   With cmdCommand

       .CommandText = "INSERT INTO TBLSTSABIT  (SUBE_KODU,STOK_KODU,ISLETME_KODU) VALUES ('" & Cells(say, 1) & "'),('" & Cells(say, 2) & "'),('" & Cells(say, 3) & "')"

       .CommandType = adCmdText

       .Execute

  End With

Next

   

   cmdCommand.Close

   Cnn.Close

   Set cmdCommand = Nothing

    Set Cnn = Nothing

  

End Sub