Question

我正在尝试通过VBA连接到Sybase服务器并运行包含一组sql行的sql文件（有时超过60行）。

我编写了如下代码。然而，它给了我错误＆＃34;围绕＆＃39; \＆＃39;＆＃34;

的说法不正确

请帮忙。

Sub sqltest()

Dim conn As ADODB.Connection
Dim cmd As ADODB.Command

Set conn = New ADODB.Connection
conn.Open "DRIVER={Sybase ASE ODBC Driver};UID=" & ThisWorkbook.Sheets("Sheet1").Cells(2, 13).Value & ";pwd=" & ThisWorkbook.Sheets("Sheet1").Cells(2, 14).Value & ";NA=<server address> ; CommandTimeout = 50000 ;ConnectionTimeout = 50000; ConnectionIdleTimeout = 50000;Connection LifeTime = 50000;LoginTimeout = 50000;AlternateServers = <server address>;"
conn.Open

Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "\\<IP address>\pag\OffShore PAG\Parallel Run\Reports\Sunil\Mymacros\sample macros\SQL NC DB.sql"

cmd.Execute
conn.Close

Set conn = Nothing
Set cmd = Nothing

End Sub

Answer 1

为什么选择VBA？我会手动使用＆＃34;来自其他来源＆＃34;在＆＃34;数据＆＃34;功能区菜单项。

＆＃34;来自其他来源＆＃34; - ＆gt;＆＃34;来自Microsoft Query＆＃34; - ＆gt;＆＃34;＆＃34;。接下来指定您的数据库，驱动程序等和SQL。

想通过VBA运行sql文件

1 个答案: