Delete all records in Jet data base from vb6 program

[DK47]

I need to delete all records in the Security table that relate to the investor umber. This is the code I used in my vb6 application.
When I run this I get a dialog box which says "Operation is not allowed when object is closed."

Even though this message appears, the table's records do delete.

adoDelete.RecordSource = "DELETE FROM Security Where Investor_Number = " & txtInvestorNumber
adoDelete.Refresh


Any ideas on why this dialog shows or what I need to keep it from being displayed?

Thank you,
Dwight

[RobDog888]

Are you using the ADO Data control?

Where is your connection code? The recordset needs an open
connection to execute the SQL code.

[DK47]

Hey RobDog,
I set the connection string of the ado using the property
pages dialog box(right clicking the ado object).
Then a change the recordsource through code, as required, as I listed above.

My feeling is that even though calling the record source in this manner seems to work fine when adding, appending or deleting a single record, I must have to do it another way to delete multiple records using the "delete" method.

Please help me with this if you can.
I am new to vb6 and sql.

Thanks so much,
Dwight

[gerardofpr]

Try binding the ado control to a label on design, even if it won't show anything.

[DK47]

Hi geraf,
Thanks for the effort, but it did not work.
Any more suggestions?

The idea was great, but binding the ado to a label did prevent the error message from appearing.
As before though the table data relating to the filter(investor number) did delete.
My only problem here is figuring out why the errror and what I need to do to correct it.

Regards,
Dwight

[RobDog888]

Instead of trying to pass the delete sql use the control's .Delete
method and apply a filter for the delete criteria.

Private Sub Command1_Click()
    Adodc1.Recordset.Filter = "Investor_Number = '" & txtInvestorNumber & "'"
    Adodc1.Recordset.Delete adAffectGroup
    Adodc1.Recordset.UpdateBatch adAffectGroup
    Adodc1.Recordset.Filter = adFilterNone
End Sub