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
