Question

为什么我的代码不起作用。错误指向代码中的rs.Open str

我的代码：

Public Sub Command2_Click()
Dim adoconn As New ADODB.Connection
Dim rs As Integer
rs = InputBox("Enter the Client's IDNumber")
Dim str As String
Set adoconn = New ADODB.Connection
adoconn.ConnectionString = "DSN=..............."
adoconn.Open
str = "select * from Registration"
rs.Open str, adoconn, adOpenForwardOnly, adLockReadOnly

Answer 1

您正在尝试将整数变量'rs'用作整数和记录集！实际上，除非只显示了部分代码，否则根本不会使用Inputbox的输出。

Public Sub Command2_Click()
Dim adoconn As New ADODB.Connection
Dim i as integer
Dim rs As ADODB.Recordset
i = InputBox("Enter the Client's IDNumber") ' i is not actually used
Dim str As String
Set adoconn = New ADODB.Connection
adoconn.ConnectionString = "DSN=gddb1;SERVER=000.000.00.000;UID=goldmacs;PWD=pass;DATABASE=gddb;PORT=3306;"
adoconn.Open
str = "select * from Registration"
rs.Open str, adoconn, adOpenForwardOnly, adLockReadOnly

创建的搜索按钮不断出现编译错误：无效的限定符。怎么解决？

1 个答案: