我有这段代码,我使用 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