從用戶窗體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