选择时搜索功能运行时错误 424

Question

我的要求：使用VB表单和3个文本框在数据库中搜索数据。

1 文本框，我将输入（用户名）
1 个位置文本框
1 用于显示输出的文本框

我的代码是

Private Sub CommandButton3_Click()

Dim Cn As ADODB.Connection '* Connection String

Dim oCm As ADODB.Command '* Command Object

Dim sName As String
Dim rs As ADODB.Recordset
Dim uname As String
Set Cn = New ADODB.Connection

Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\test2.accdb;Persist Security Info=False"
Cn.ConnectionTimeout = 40
Cn.Open
Set oCm = New ADODB.Command
oCm.ActiveConnection = Cn

‘Record Set
Set rs = New ADODB.Recordset

‘Select Operation
rs.Open "SampleTable", Cn, adOpenKeyset, adLockPessimistic, adCmdTable

uname = rs("UserName")

rs.Open "Select * from SampleTable where uname = '" & text1.Text & "'", ActiveConnection, adOpenForwardOnly, adLockReadOnly, adCmdText

**'Display the Output in TextBox3**
TextBox3.Text = rs("UserName") + rs("Location")

rs.Close
Cn.Close
End Sub

我可以理解数据填充没有发生，因此在 Select 语句中出现运行时错误 424。如何检索给定相应输入的数据？

Answer 1

1. 您无需打开桌子； rs.在搜索之前打开“SampleTable”。
2. 不确定这是做什么用的； uname = rs("UserName")
3. 你应该运行； rs.Open "Select * ... （在同一个 RS 上运行 .Open 两次而不关闭第一个可能是导致错误的原因）
4. 您应该转义您的输入；replace$(text1 .Text, "'", "''")
5. 之后检查 rs.EOF
6. 您应该在 .open使用 & > 不是用于连接字符串

更新的 +

sub xxx
Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sName As String

Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\test2.accdb;Persist Security Info=False"
Cn.ConnectionTimeout = 40
Cn.Open

Set rs = New ADODB.Recordset

sName = replace$(text1.Text, "'", "''")
rs.Open "Select * from SampleTable where UserName = '" & sName & "'", Cn, adOpenForwardOnly, adLockReadOnly, adCmdText

if (rs.eof) then
    msgbox "no match"
else
    TextBox3.Text = rs("UserName") & " " & rs("Location")
    rs.Close
end if

set rs = nothing
Cn.Close
set cn = nothing
end sub