Hasse, volte ao inicio da discussão e veja minha quinta postagem onde apresento um código de exemplo( CUSTOMER.PRG ).
Para manipular campos usando ADOxB voce deve usar a função ADOField():
...
? ADOField( "NomeDoCampo" ), ...
...

Moderador: Moderadores
...
? ADOField( "NomeDoCampo" ), ...
...
**
#include "adoXb.ch"
#include "AdoXb.prg"
*
#Include 'Inkey.ch'
#Include 'i_keybd.ch'
#include "MiniGUI.ch"
#include "ado.ch"
#include "set.ch"
#include "common.ch"
#include "directry.ch"
#include "fileio.ch"
#include "hbcompat.ch"
#include "hbwin.ch"
*
*STATIC oWnd, oClients, oClient, oName
*STATIC cName
*STATIC oSplit
*
REQUEST HB_GT_WIN_DEFAULT && Janela DOS - Temporário para testes.
*
*
*==================================================================================================
FUNCTION Main()
*
LOCAL oError := ErrorBlock( { | oError | MyErrorFunc( oError ) } )
*
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT("PT")
HB_CDPSELECT( "PT850" ) //pt850
*
SET DATE TO BRIT
SET CENTURY ON
*
Clear
*
PUBLIC StrDatabas := "C:\Teste\Small_ajustado.gdb"
PUBLIC StrConnect := "DRIVER=Firebird/InterBase(r) driver; UID=sysdba; PWD=masterkey; DBNAME="+StrDatabas
*
// Necessária para criar objetos e variaveis visÃveis o tempo todo
ADOSetRDD( "ACCESS" )
*
ADOSetRDD( "FIREBIRD" ) // ADOGDB
ADORDDDefault( "FIREBIRD" ) // ADOGDB
cADORDD := "FIREBIRD"
*
SET_CORES()
*
Clear
*
ADO CONNECT StrConnect
*
? "Is ADOConnected:> "
?? ADOConnected()
*
ADO USE CliFor
? "ADOAreas:=>", Str( ADOAreas(), 04 ), "= ADOAlias:=>", ADOAlias()
WAIT
/*
Resposta do print acima:
Is ADOConnected:> .T.
ADOAreas:=> 1 = ADOAlias:=> CliFor
Press any key to continue...
*/
WHILE ! ADOEof()
? Alltrim( Str( ADORecno() ) ),Left( ADOFIELD("NOME"), 20 ), Left( ADOFIELD( "CIDADE" ), 15 ), ADOFIELD( "CGC" )
ADOSkip()
ENDDO
WHILE .T.
? Alltrim( Str( ADORecno() ) ),Left( ADOFIELD("NOME"), 20 ), Left( ADOFIELD( "CIDADE" ), 15 ), ADOFIELD( "CGC" )
IF ADORecno() = ADORecCount()
EXIT
ENDIF
ADOSKIP()
ENDDO
RETURN( NIL )
ADOLocate( 'NOME = "Maria"' )
? ADOFound(), "-", ADORecno(), "-", ADOField( 'NOME' ), ADOField( "CGC" )
ADOLocate( 'NOME = "Maria*"' )
? ADOFound(), "-", ADORecno(), "-", ADOField( 'NOME' ), ADOField( "CGC" )
ADOFind( "NOME = 'Maria'" )
? ADOFound(), "-", ADORecno(), "-", ADOField( 'NOME' ), ADOField( "CGC" )
ADOFind( "NOME = 'Maria*'" )
? ADOFound(), "-", ADORecno(), "-", ADOField( 'NOME' ), ADOField( "CGC" )
ADOFind( "NOME like 'Adriane Maria'" )
? ADOFound(), "-", ADORecno(), "-", ADOField( 'NOME' ), ADOField( "CGC" )
wait
WHILE .T.
? Alltrim( Str( ADORecno() ) ),Left( ADOFIELD("NOME"), 20 ), Left( ADOFIELD( "CIDADE" ), 15 ), ADOFIELD( "CGC" )
IF ADORecno() = ADORecCount()
EXIT
ENDIF
ADOSKIP()
IF ADORecno() = 10
WAIT
ENDIF
ENDDO
.T. - 1 - Adalzira Muller Hefter 969.985.049-34
.T. - 1 - Adalzira Muller Hefter 969.985.049-34
.T. - 1 - Adalzira Muller Hefter 969.985.049-34
.T. - 1 - Adalzira Muller Hefter 969.985.049-34
.T. - 1 - Adalzira Muller Hefter 969.985.049-34
Press any key to continue...
Espero que a minha explanação tenha sido clara suficiente.
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes