Выполнение команды SQL в Excel для SQL Server с использованием VBA - PullRequest
Новая
       22

Выполнение команды SQL в Excel для SQL Server с использованием VBA

0 голосов
/ 17 октября 2019

Я ищу команду Excute SQL в файле Excel на SQL Server, используя C # вместо подключения к базе данных и копирования Paste, потому что я не хочу, чтобы кто-либо еще знал пользователя и пароль.

Я написал код. Он подключен к базе данных, но не загружает команду 

Sub import()

    Dim conn As ADODB.Connection
    Dim cnn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
    Dim strconn As String

Dim SQL_Commands As Variant
Dim SQL_String As Variant
Dim strFilename As String: strFilename = "D:\WORK\nghien cuu tool\Add POS WUG\VBA\Output\DT_AddPOS.csv"
Dim iFile As Integer: iFile = FreeFile




    'Create a new Connection object
     Set cnn = New ADODB.Connection
     Set rs = New ADODB.Recordset

     'Set the connection string
      strconn = "Driver={SQL Server};Server=NHAN-NGUYEN\SQLEXPRESS;Database=WUG_DB;Trusted_Connection=True;"

    cnn.Open strconn
    Open strFilename For Input As #iFile
SQL_String = Input(EOF(iFile), iFile)
Close #iFile

SQL_Commands = Split(SQL_String, ";")
For Each SQL_String In SQL_Commands
    con.Execute SQL_String
Next SQL_String


    cnn.Close

    Set cnn = Nothing

    MsgBox "connected"

End Sub
...