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

Question

我有这段代码，我使用 VBA 在 mySQL 数据库中插入、更新和删除数据。我有一个输入框，可以使用它们的编号搜索 SQL 表中的特定数据，当我输入数字并且有匹配的记录时，程序会显示“找到记录”。但是每次我输入一个数字并且没有匹配的数据时程序都会出错。我的问题是，当没有匹配的数据时，我将如何返回一条显示“未找到记录”的错误消息？我作为初学者正在学习 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