Acessando Firebird via WX

http://www.windevbrasil.com.br/index.php/topic,1818.0.html

FBConnection is Connection

bResultado   is boolean
_nomeDSN is string = "FbCnn"
_caminhofdb      is string = fCurrentDir()+[fSep()]+"data"+[fSep()]+"SpedDB.fdb"
_IpServidor  is string = "localhost"
_usuarioBd is string = "SYSDBA"
_senhaBd is string = "masterkey"

HDescribeConnection(FBConnection,_usuarioBD,_senhaBD,_nomeDSN,_caminhofdb,hODBC,hOReadWrite)

bResultado = HOpenConnection(FBConnection)

IF bResultado <> 1 THEN
 Error(HErrorInfo())
 EndProgram()
END

//Com SQLConnect()

SQLConnect(_DSN,_usuariodb,_senhadb,_pathfdb,"",hODBC)