Ola pessoal, estou trabalhando com o ADO para o ACCESS porem alguns comandos conforme relação abaixo não funciona! sabem porque?

Include "Fivewin.ch"

Function Main()
LOCAL oDados, txSql
PRIVATE oCn := CREATEOBJECT( "ADODB.Connection" )

oCn:Open( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=venda.mdb" )
txSql := "SELECT * FROM imovweb; "
oDados := oCn:Execute( txSql)

oDados:MoveNext() -- Funciona
oDados:MoveFirst() -- NÃO Funciona
oDados:MoveLast() -- NÃO Funciona
oDados:RecordCount() -- NÃO Funciona

From the MSDN:

"The returned Recordset object is always a read-only, forward-only cursor."

Use recordsets instead of connections:

#define adOpenForwardOnly 0
#define adOpenKeyset      1
#define adOpenDynamic     2
#define adOpenStatic      3

#define adLockReadOnly        1
#define adLockPessimistic     2
#define adLockOptimistic      3
#define adLockBatchOptimistic 4


FUNCTION MAIN()

LOCAL oRs := CREATEOBJECT( "ADODB.Recordset" )

oRs:Open( "SELECT * FROM Clienti", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clienti.mdb", adOpenKeyset, adLockReadOnly )

oRs:MoveLast()

WHILE !oRs:EOF
    ? oRs:Fields( "Cliente" ):Value
    oRs:MoveNext()
ENDDO

oRs:Close()

INKEY( 0 )

RETURN NIL

EMG

Perfect!

Muito obrigado,
Ronaldo Minacapelli

Hi enrico..

Do you Know , Where Find Mtehods and DATA from this Class..

CREATEOBJECT( "ADODB.Recordset" )

Thanks

On the MSDN.

EMG

Thanks Enrico...

I´m Learn About ADO, But You Can Response Only Two Asks?

First ..

Using ADODB My Systems Are Compatible With win98 , winxp , win2003 ?

Second..

Using ADODB My Systems Required DATABASE registre in ODBC ?

1) WinXP and Win2003: yes. Win98: you will need to install Office or MSDE.

2) No.

EMG

Thanks Very Much Enrico.

Mauricio

EnricoMaria wrote:1) WinXP and Win2003: yes. Win98: you will need to install Office or MSDE.

Thanks Enrico AGAIN...

i´m modify TCBROWSE to ADO

How Get Field Names of Database Using ADO ?

thanks Mauricio

#define adOpenForwardOnly 0
#define adOpenKeyset      1
#define adOpenDynamic     2
#define adOpenStatic      3

#define adLockReadOnly        1
#define adLockPessimistic     2
#define adLockOptimistic      3
#define adLockBatchOptimistic 4


FUNCTION MAIN()

LOCAL oCat

LOCAL i, j

oCat = CREATEOBJECT( "ADOX.Catalog" )

oCat:ActiveConnection = "Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\Emag;Initial Catalog=Quadro"

FOR i = 0 TO oCat:Tables:Count() - 1
    ? oCat:Tables( i ):Name
    ?

    FOR j = 0 TO oCat:Tables( i ):Columns:Count() - 1
        ? SPACE( 4 ) + oCat:Tables( i ):Columns( j ):Name
    NEXT

    ?
NEXT

RETURN NIL

EMG

Enrico ,

The Object Change ADO for ADOX because You are Using Extend ADO methods, Thats Right?

The Extende ADO methods are 100% compatible ?

thanks , AGAIN

mauricio
(brazil)

mauricioajordao wrote:Enrico ,

The Object Change ADO for ADOX because You are Using Extend ADO methods, Thats Right?


The Extende ADO methods are 100% compatible ?

THANKS AGAIN

MAURICIO