Dim sSQL as string
dim rs as ADODB.recordset

ssql = "SELECT * FROM tblX"

set rs = new adodb.recordset
rs.open ssql, cn, 1, 3

do while not rs.eof
debug.print rs("Amount")
rs.movenext
loop

rs.close
set rs = nothing

--- In firebird-support@yahoogroups.com, James Chua <james_027@t...>
wrote:

> I wonder what are the things youre doing when you're looping? Could

you

> show us the code?
>
> cheers
>
> James
>
> chemicalreaction wrote:
>
> > Hi, has anyone ever used a DECIMAL (or NUMERIC) field (size 18,

base

> > 4) for representing a currency field? If yes, has anyone succeded

in

> > retrieving the correct value using ADO on the free ODBC
> > interbase/firebird driver? Let me explain. I converted an Access

DB

> > to a FB DB using one of the free tools. I can handle all the field
> > types but the currency one converted in DECIMAL (18,4)): altough

the

> > fields contain different values, when looping through the

recordset I

> > always get back a 0 value for that field.
> >
> > Any suggestion?
> >
> > Thanks and regards,
> > DT.
> >
> >
> >
> > *Yahoo! Groups Sponsor*
> > ADVERTISEMENT
> >

<http://rd.yahoo.com/SIG=12c563bv9/M=258297.4155332.5363524.4049140/D=
egroupweb/S=1705115386:HM/EXP=1069756174/A=1683962/R=0/*http://www.tec
hsmith.com/rdr/ban/syah/default.asp>

> >
> >
> >
> > To unsubscribe from this group, send an email to:
> > firebird-support-unsubscribe@yahoogroups.com
> >
> >
> >
> > Your use of Yahoo! Groups is subject to the Yahoo! Terms of

Service

> > <http://docs.yahoo.com/info/terms/>.