What we need to do is to use the Recordsetcount attribute to determine whether the data in the database is empty before using the MoveNext method of the Recordset object:
Copy Code code as follows:
Dim objRS As New Recordset
Dim objcn As New Connection
Dim strSQL As String
Objcn.connectionstring= "FILEDSN=STUDENT.DSN; User_id=sa; Password=123 "
Objcn.open
Strsql= "SELECT * from Student_info"
Objrs.open strSQL, Objcn,adopenkeyset, adLockOptimistic
' In this judgment, if empty then tell the user and exit the module operation on the line
If Objrs.recordsetcount=0 Then
MsgBox "Status information does not exist, please add after the operation!" "
Objrs.close
Set objrs=nothing
Exit Sub ' This step can not be forgotten, or you have to make an error, the reason is still carried out the next operation
End if () {
}
This solves the problem and then continues, and if we write the linked database in advance and return the record to the recordset's function, the steps can be omitted!
