运行简单的VBA脚本来测试连接(Running a simple VBA script to test a connection)
我正在尝试测试GoDaddy SQL Server数据库的连接。 我收到了'无效的连接字符串属性'。
这个脚本有什么问题？
Dim cnn As ADODB.Connection Dim canConnect As Boolean Public Sub TestConnection() Set cnn = New ADODB.Connection cnn.Open "Provider=sqloledb;Data Source=GoDaddyServer.com;Initial Catalog=dBase1;UserID=userID; Password='password';" If cnn.State = adStateOpen Then canConnect = True cnn.Close End If MsgBox canConnect End SubI'm trying to test the connection of a GoDaddy SQL Server database. I'm getting an 'invalid connection string attribute.'
What's wrong with this script?
Dim cnn As ADODB.Connection Dim canConnect As Boolean Public Sub TestConnection() Set cnn = New ADODB.Connection cnn.Open "Provider=sqloledb;Data Source=GoDaddyServer.com;Initial Catalog=dBase1;UserID=userID; Password='password';" If cnn.State = adStateOpen Then canConnect = True cnn.Close End If MsgBox canConnect End Sub最满意答案
IIRC，你必须在连接字符串之外指定Provider属性，如下所示：
Dim conn Set conn = New ADODB.Connection conn.Provider = "sqloledb" conn.Open "Data Source=GoDaddyServer.com; Initial Catalog=dbase1; User ID=userid; Password=pass;"IIRC, you have to specify the Provider property outside the connection string like so:
Dim conn Set conn = New ADODB.Connection conn.Provider = "sqloledb" conn.Open "Data Source=GoDaddyServer.com; Initial Catalog=dbase1; User ID=userid; Password=pass;"运行简单的VBA脚本来测试连接(Running a simple VBA script to test a connection)我正在尝试测试GoDaddy SQL Server数据库的连接。 我收到了'无效的连接字符串属性'。
这个脚本有什么问题？
Dim cnn As ADODB.Connection Dim canConnect As Boolean Public Sub TestConnection() Set cnn = New ADODB.Connection cnn.Open "Provider=sqloledb;Data Source=GoDaddyServer.com;Initial Catalog=dBase1;UserID=userID; Password='password';" If cnn.State = adStateOpen Then canConnect = True cnn.Close End If MsgBox canConnect End SubI'm trying to test the connection of a GoDaddy SQL Server database. I'm getting an 'invalid connection string attribute.'
What's wrong with this script?
Dim cnn As ADODB.Connection Dim canConnect As Boolean Public Sub TestConnection() Set cnn = New ADODB.Connection cnn.Open "Provider=sqloledb;Data Source=GoDaddyServer.com;Initial Catalog=dBase1;UserID=userID; Password='password';" If cnn.State = adStateOpen Then canConnect = True cnn.Close End If MsgBox canConnect End Sub最满意答案
IIRC，你必须在连接字符串之外指定Provider属性，如下所示：
Dim conn Set conn = New ADODB.Connection conn.Provider = "sqloledb" conn.Open "Data Source=GoDaddyServer.com; Initial Catalog=dbase1; User ID=userid; Password=pass;"IIRC, you have to specify the Provider property outside the connection string like so:
Dim conn Set conn = New ADODB.Connection conn.Provider = "sqloledb" conn.Open "Data Source=GoDaddyServer.com; Initial Catalog=dbase1; User ID=userid; Password=pass;"
发布评论