Thread: 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

> -----Original Message-----
> From: Ryan C. Bonham [mailto:Ryan@srfarms.com]
> Sent: 27 July 2001 18:00
> To: pgsql-odbc@postgresql.org
> Cc: pgsql-general@postgresql.org
> 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.