> -----Original Message----- > From: Ryan C. Bonham [mailto:[EMAIL PROTECTED]] > Sent: 27 July 2001 18:00 > To: [EMAIL PROTECTED] > Cc: [EMAIL PROTECTED] > Subject: [ODBC] Visual Basic and PostgreSQL ODBC > > > Hi, > > > Ok I have a problem, that I need to find a fix or workaround > for. I have a Visual Basic 6 application that calls on a > PostgreSQL database. I have code that calls a table and runs > a loop on it, deleting recordsets until the recordcount > equals a certain number.. The code deletes the records fine, > the problem is the recordcount doesn't change.. Does anyone > know what is going on and how to fix it? Thank you > > > Ryan > > VB CODE > > rstRecord2.MoveFirst > Do Until rstRecord2.RecordCount = 0 > rstRecord2.Delete > rstReocrd2.MoveNext > Debug.Print rstRecord2.RecordCount > Loop Try the following: rstRecord2.MoveLast rstRecord2.MoveFirst Do Until rstRecord2.RecordCount = 0 rstRecord2.Delete rstRecord2.MoveNext Debug.Print rstRecord2.RecordCount Loop The RecordCount property normally remains at zero until you've moved to the end of the recordset, hence you need to MoveLast first. This can be a resource issue though if you have large recordsets as this will cause the entire recordset to be read from PostgreSQL. If you can though, you will probably be better off executing a DELETE FROM sql query, and then refreshing the recordset, or if you are always deleting all records in the recordset, try: rstRecord2.MoveFirst While Not rstRecord2.EOF rstRecord2.Delete rstRecord2.MoveNext Wend regards, Dave. ---------------------------(end of broadcast)--------------------------- TIP 2: you can get off all lists at once with the unregister command (send "unregister YourEmailAddressHere" to [EMAIL PROTECTED])
