ADO não funciona o RecordCount()?

[ronaldo]

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
****************************************************

[Enrico Maria Giordano]

From the MSDN:

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

Use recordsets instead of connections:

Code: Select all

#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

[ronaldo]

Perfect!

Muito obrigado,
Ronaldo Minacapelli

[mauricioajordao]

Hi enrico..

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


CREATEOBJECT( "ADODB.Recordset" )


Thanks

[Enrico Maria Giordano]

On the MSDN.

EMG

[mauricioajordao]

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 ?

[Enrico Maria Giordano]

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

2) No.

EMG

[mauricioajordao]

Thanks Very Much Enrico.



Mauricio

[Enrico Maria Giordano]

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

Sorry, MDAC not MSDE.

EMG

[mauricioajordao]

Thanks Enrico AGAIN...

i´m modify TCBROWSE to ADO

How Get Field Names of Database Using ADO ?




thanks Mauricio

[Enrico Maria Giordano]

Code: Select all

#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

[mauricioajordao]

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)

[Enrico Maria Giordano]

Enrico ,

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


The Extende ADO methods are 100% compatible ?

Yes and yes.

EMG

[mauricioajordao]

THANKS AGAIN

MAURICIO