Alguém mais se habilita?
Estou tentando com a rotina abaixo e da erro no todbcdirect.
local aData := {}
Local nFor,cCampo:=1,aNome:={}
Local oLbx, cItem
Local btnPrc, btnAdc, btnAlt, btnExc, btnImp, btnsai
LOCAL cConStr := "HERMES;UID=sysdba;PWD=masterkey;DRIVER=Firebird/InterBase® driver"
public oOdbc, oDbf, oDlg2
DEFAULT bPrc := { || RecPrc( oLbx ) },;
bAdc := { || RecInc( oLbx ) },;
bAlt := { || RecAlt( oLbx ) },; // C:\Progs\Exemplos_Five\MDB\mdb1
bExc := { || RecExc( oLbx ) },;
bImp := { || RecImp( oLbx ) },;
bSai := { || oDlg2:End() }
SET 3D LOOK ON
oOdbc := TOdbc():New( cConStr ) // "HERMES", "masterkey", "SYSDBA" )
// Conectando ao MDB
// oODBC := TODBC():NEW( cConStr )
If !oOdbc:lSuccess
oOdbc:ShowErrorList("Erro na conexão")
oOdbc:End()
return nil
Endif
oDbf := oOdbc:Query( 'SELECT * FROM BRINDE' )
//oDbf := TDbOdbcDirect():new( , oOdbc)
if oOdbc:IsError()
oOdbc:ShowErrorList()
oOdbc:aErrors := {}
oDbf:End()
return nil
endif
id=code>id=code>
Muriaé-MG
FWH 2.6/XHARBOUR/C/C++/JAVA/DELPHI/MYSQL/FIREBIRD