runtime error 3021

[jdavide]

Hey all guru

I have a problem again. Why below code is doesnt work when i enter an ID which already exist in DB records.

Private Sub Command2_Click()
Dim name As String
Dim id As String
id = Me.stuff_id

If id = "" Then
      MsgBox " You should enter an ID "
Else
      RS.Close
      RS.Open "Select * From table1 Where u_id='" & id & "'" , CN,  adOpenDynamic, adLockOptimistic
       If (RS.RecordCount > 0) Then
           Me.stuff_id = RS("u_id")
           Me.stuff_name = RS("u_name")
           shp_ctrl.Show
       Else
           MsgBox "No user id"
       End If
End If
Adodc1.Refresh
End Sub

if i make "if (RS.RecordCount < 0)" then it works but when enter a differnt ID number then have error.
I am very confused and stuck here.
Any help and idea please.

Regards

[Shuja Ali]

Sometimes even when you have records in the recordset the recordcount property shows it as -1. This is because the provider does not support bookmarks or absolute position. You should make it a habit to check EOF & BOF rather than recordcount.

In your case the recordset does not support recordcount property so you are getting -1 and thats why it works when you use less than sign. But even if there are no records in the recordset it will still return -1 as recordcount. So your code should check for EOF or BOF like this

       If Not RS.BOF Then
           Me.stuff_id = RS("u_id")
           Me.stuff_name = RS("u_name")
           shp_ctrl.Show
       Else
           MsgBox "No user id"
       End If

[jdavide]

Ali u r Wonderfullllll... I love you.......... it works

[Shuja Ali]

Ali u r Wonderfullllll... I love you.......... it works

I love you too.

[2bv06ec001]

hii ali.... I m getting the runtime error when interfacing 8051 with pc.. hav written code in vb6.. the error is either BOF or EOF is true, or the current record
has been deleted. requested operation requires a current record..

Plz help me with it... Its very urgent

[dglienna]

I think you'd do better starting your own post, along with sample code that you're having a problem with.

' use Code Tags like this