Question

我有这个代码，我使用VBA在mySQL数据库中插入，更新和删除数据。我有一个输入框来搜索SQL表中的特定数据，使用它们的编号，当我输入数字时，当匹配记录时，程序显示“Record found”。但每次输入数字并且没有匹配的数据时程序错误。我的问题是，如果没有匹配的数据，我将如何返回显示“No Record found”的错误消息？我正在学习作为初学者的vba，并且使用的一些代码对我来说并不是很熟悉。谢谢。

  Dim rs As New ADODB.Recordset
myConn
Dim holdstr As String
holdstr = InputBox("Enter name")
If holdstr = "" Then
MsgBox "Please fill up the requirements", vbInformation, "Message"
conn.Close
Exit Sub
End If
rs.Open "SELECT * FROM lemployees where ENumber = '" & holdstr & "'", conn

MsgBox "Record found!", vbInformation, "Message"

UserForm2.TextBox2.Text = rs!ELName

Answer 1

您要做的是在打开后检查Recordset RecordCount属性。

Dim rcCount As Integer
rs.Open "SELECT * FROM lemployees where ENumber = '" & holdstr & "'", conn
rcCount = rs.RecordCount
If rcRecordCount = 0 Then
    MsgBox "No Record found", vbInformation, "Message"
Else
    MsgBox "Record found!", vbInformation, "Message"
    UserForm2.TextBox2.Text = rs!ELName
End If

在输入框中键入错误的拼写时返回错误消息

1 个答案: