>I'm trying to get Ado working with some Fox databases and keep getting 0 records. The State for both the connection & recordset objects is 1 after the open. I'm using a System DSN pointing to the DBC.
>
>Here's the code:
>oConn = CreateObject("ADODB.Connection")
>oConn.Open("galsinc")
>oRS = CreateObject("ADODB.RecordSet")
>oRs.ActiveConnection = oConn
>oRs.Source = "SELECT * FROM Customers"
>oRs.Open
>?oRs.ReccordCount
>
>The last line always returns -1.
>
>Grrrr....
I ran a test recently using this code, which worked fine.
LOCAL lcCS, lcSQL, oField, rs
lcCS = "DSN=adotest;UID=;PWD=;"
lcSQL = 'SELECT * FROM Births where dob > {^1900-01-01 10:30:01 AM}'
rs = createobject("adodb.recordset")
rs.Open( lcSQL, lcCS, 1)
IF rs.RecordCount > 0
rs.MoveFirst
DO WHILE NOT rs.EOF
FOR EACH oField IN rs.Fields
? oField.Name, oField.Value
ENDFOR
rs.MoveNext
ENDDO
ENDIF
rs.close