0

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

1 回答 1

0

您要做的是在打开 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
于 2013-10-20T05:33:40.690 回答