Run Time Error with ADO, VB6

[Rob7]

Hi,
I am currently working on a project and found that when I executed a sql statement for a recordset, and that recordset returned no value (no records met the coditions of the sql statement), I get a Run Time Error 3021 with the explaination that "Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record." I have been to Microsoft's website and a search of the knowledgebase turned up this very error but in he context of a PIP Administrator.

Is this what is supposed to be returned from ADO or did I miss some sort of patch to VB6 that would have fixed this?

 

[golandsh]

After the statement what kind of operation youre doing?

Try checking the recordcount of the ado recordset after the sql
statement so if the recordcount is above 0 then you do something
else do nothing.

i think even the movefirst procedure causes error if there is no record.

 

[MrVB50au]

I suspect you do have a few record stored in the database and that you know your SQL statement.

Well, Have you tried using (eg: data1.recordsource = "SELECT * FROM tablename WHERE FirstName ='Joe'"

Where tablename = the name of the table you're searching from, and assuming you have a field called FirstName.

Try this in design mode first and if it works, then try the exact same thing in RUN Mode.

Hope I helped,

Andy.

 

[Rob7]

I am setting the recordset index equal to a variable:

strMyString = rstMyRecSet(0)

I am thwarting the error by saying:

If rstMyRecSet.EOF and rstMyRecSet.BOF Then
Do Something
End If

I just wondered if this was the way it is supposed to work.

 

[golandsh]

Why not trying: if adoName.RecordCount<>0 then Do Somehing?

 

[johnwm]

Note that RecordCount only works with a limited number of Cursor types - for general use .EOF and .BOF
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[MrVB50au]

if that are both equal at Form_load, the you need to add this:

Sub Form_Load()
If rstMyRecSet.EOF and rstMyRecSet.BOF Then
rstMyRecSet.AddNew
Else
rstMyRecSet.MoveFirst
CurrRec=1

rstMyRecSet.MoveLast
TotRec=rstMyRecSet.Recordcount

If CurrRec=TotRec then
MsgBox&quot;Somethings Wrong!!&quot;,vbInformation,&quot;Help&quot;
End
End IF
End If
End Sub

 

[Rob7]

The conditions that could exist with the sql statement are 1)there is not a record in which case I write a record with an INSERT statement
2)there is a record and I use an UPDATE statement

I guess this is just the way ADO returns an empty condition. At any rate, the test for RecSet.EOF and RecSet.BOF seems to be working.

Thanks all

Rob