Página 1 de 1
Acessar firebird "arquivos GDB" via XHARBOUR
Enviado: 27 Mai 2008 11:47
por 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
Re: Acessar firebird "arquivos GDB" via XHARBOUR
Enviado: 27 Mai 2008 15:48
por 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