Acessar firebird "arquivos GDB" via XHARBOUR

[mmaciel11]

Bom Dia,

Gostaria de saber qual a melhor forma de acessar firebird "arquivos GDB" via XHARBOUR, tive dando uma olhada na pasta contrib e tem muita coisa la. Mais se alguem aqui do FORUM ja teve sucesso por favor me ajudem !!!

Agradeço desde ja..


marco maciel
mmaciel11@hotmail.com

[rodrmigu]

Olá,

Lá não funciona. Tem que usar via RDDSQL ou através do OLEDB. Abaixo segue um exemplo de OLEDB pra oracle, basta vc adapta-lo pra Firebird.

Código: Selecionar todos

#include "ado.ch"

PROCEDURE Main()
    Local i := 1
    //Local oConnection := TOLEAUTO():New("adodb.connection")
    //Local oRecordset := TOLEAUTO():New("adodb.recordset")

    Local oConnection := CREATEOBJECT( "adodb.connection" )
    Local oRecordset := CREATEOBJECT("adodb.recordset")

    ? "Connecting..."
    oConnection:Open("Provider=OraOLEDB.Oracle;Data Source=OAIP;User ID=system;Password=filter88;")

    ? "Quering..."
    oRecordSet:CursorType := adOpenForwardOnly 
    oRecordSet:ActiveConnection(oConnection)
    oRecordSet:Source := "select username from dba_users"
    oRecordSet:Open()

    oRecordSet:MoveFirst()

    do while  ! oRecordSet:Eof
        ? oRecordSet:Fields(0):value
        oRecordSet:Move(++i)
    enddo

    wait
RETURN

[]'s
Rodrigo