Re: Re: your mail

For curiosity's sake... why are you using getrows?

Much easier to do:

dim fd as ADODB.Recordset
dim strRow as string
do while not rs.EOF   strRow = ""   for each fd in rs.Fields       strRow = strRow & " " & fd.value   next
debug.PrintstrRow   rs.MoveNext
 
Loop
set fd = nothing

Adam Lang
Systems Engineer
Rutgers Casualty Insurance Company
http://www.rutgersinsurance.com
----- Original Message -----
From: "Bob Kline" <bkline@rksystems.com>
To: "Aziz ABI" <abi@mail.cbi.net.ma>
Cc: <pgsql-interfaces@postgresql.org>
Sent: Tuesday, December 12, 2000 11:09 PM
Subject: [INTERFACES] Re: your mail


> On Sat, 9 Dec 2000, Aziz ABI wrote:
>
> > Bonjour
> >
> > Vous pouvez m'aider à créer une connexion ODBC à partir par un petit
> > module VB.
> >
> > Merci
> >
>
> Sure.
>
> 1. Set your pg_hba.conf to allow access from your Windows machine.
> 2. Install the ODBC driver for PostgreSQL on that machine.
> 3. Set up an ODBC DSN using that driver.
> 4. Here's some sample VB code to talk to the database using the DSN:
>
>     Dim rs As ADODB.Recordset
>     Dim cn As String
>     Dim rc As Variant
>     Dim r, c As Integer
>     Set rs = New ADODB.Recordset
>     cn = "DSN=pgtest;UID=moi;DATABASE=test"
>     rs.Open "SELECT * FROM t", cn, , , 1
>     Do While Not rs.EOF
>         rc = rs.GetRows
>         For r = 0 To UBound(rc, 2)
>             For c = 0 To UBound(rc, 1)
>                 Debug.Print r & " " & c " " & rc(c, r)
>             Next c
>         Next r
>     Loop
>
> Hope this help.
>
> --
> Bob Kline
> mailto:bkline@rksystems.com
> http://www.rksystems.com