从用户窗体VBA Excel输入SQL Server的用户名和密码

Question

我想从用户窗体VBA Excel输入用户名和密码SQL Server，但我不知道该怎么做。 所以我创建这样的代码：

Sub OPenCOnn()    
   Set cnn = New ADODB.Connection
   cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=172.20.20.20;Initial Catalog=bank;User ID=" & txtUser.Text & ";Password=" & txtPass.Text & ";"
End Sub

但是它没有用。 我收到以下错误：

运行时错误，需要对象

Answer 1

您需要像这样的字符串周围加上单引号：

cnn.ConnectionString = "Provider=SQLOLEDB;Data Source=172.20.20.20;Initial Catalog=bank;User ID='" & txtUser.Text & "';Password='" & txtPass.Text & "';"

Answer 2

运行时错误，需要对象

您收到该错误，因为您的代码找不到txtUser和txtPass

确保文本框在那里。

在代码顶部使用Option Explicit ，然后您会注意到它将突出显示txtUser并说Variable not defined 。 当然，您还必须将cnn定义为Dim cnn As ADODB.Connection