Abrir archivos FDB

[noe aburto]

Saludos.

Tengo la necesidad de abrir archivos FBD para la exportacion de informacion
Alguna lib que me permita hacerlo?

Gracias.

[vilian]

ADORDD permite.

[noe aburto]

Saludotes.

Ahora ya confirmado que con ADORDD, pero esta es una LIB, PRG o OBJ,

Como lo integro en mi executable?

[ruben Dario]

Si te refieres a base de datos en Fiberbird,

[noe aburto]

Gracias Dario.

Exactamente a esa me refiero: Firebird

[ruben Dario]

En la contribucciones esta el ejemplo, puedes construir la libreria, mira el ejemplo.

contricuion Harbour harbour-core-master\contrib\hbfbird

te coloco la libreria para Harbour construida para Firebird_2_5
[url]
https://www.dropbox.com/s/nhewpzr4q0hua ... D.rar?dl=0
[/url]

Enlazas los LIb en tu compilacion, y los DLL los colocas donde esta tu ejecutable.
Buena suerte

Code: Select all | Expand

    Local oServer, oQuery, oRow, i, x, aTables, aStruct, aKey

    Local cServer := 'test.gdb'   
    Local cUser := 'sysdba'
    Local cPass := 'masterkey'
    Local nDialect := 1
    Local cQuery
    lOCAL nClrText:=10485760 // Color del texto


    oServer := TFBServer():New(cServer, cUser, cPass, nDialect)
    if oServer:NetErr()
        alert("No Existe Base de Datos")
        ? oServer:Error()
        return
    end
   
   oQuery := oServer:Query('SELECT code, dept, name, sales, salary, creation FROM test')   
   ln := 1
   DO WHILE ! oQuery:Eof()
      if ln>49
        @ ln-46+1,20 say oQuery:FieldGet( 1 )  //con @ 1,1 say "dsdjsk"  da error
        @ ln-46+1,30 say oQuery:FieldGet( 2 )
        @ ln-46+1,35 say oQuery:FieldGet( 3 )
      else
        @ ln+1,1  say oQuery:FieldGet( 1 )  //con @ 1,1 say "dsdjsk"  da error
        @ ln+1,10 say oQuery:FieldGet( 2 )
        @ ln+1,15 say oQuery:FieldGet( 3 )
      endif
        ln++
        oQuery:Skip()

   END    
    
    ? "Closing..."
        
    return 
    
 

[vilian]

Amigos,

Estoy probando el código y funcionó bien. A menos que se coloca un campo de tipo DATA en la Query.

Ex: oQuery := oServer:Query("SELECT id_ponto,nosso_numero,data_emissao FROM BOLETO_BANCARIO")

Sempre gera um erro -206. Si me quedo la misma consulta en IBExpert , funciona bien .

¿Alguna idea de cómo resolver esto?

[ruben Dario]

Cual código probaste. ?
Puedes colocar el codigo

[vilian]

He probado el código que envió aqui.

[ruben Dario]

Bueno si es el que coloque.

tu dices que cuando colocas data_emissao te da error.

Tendria qeu hacer la prueba, haber si me da lo mismo, Estas usando Fiberdir o Interbase, aunque tengo entendido es igual.

No se si puede mandame el trozo de codigo y la base de datos, es muy grande. para ver como te puedo ayudar.

data_emissao que tipo de columna es, Numerico o caracter,

[vilian]

Ruben,

Estoy usando Firebird 1.5. La siguiente estructura de la tabla



El código que estoy corriendo es el siguiente :

Code: Select all | Expand

#include "fivewin.ch"

FUNCTION Main()
LOCAL oServer, oQuery, oRow, i, x, aTables, aStruct, aKey,aDados:={}

    LOCAL cServer := "c:\tec2000\Albano\Analista2.fdb"
    LOCAL cUser := "sysdba"
    LOCAL cPass := "masterkey"
    LOCAL nDialect := 1
    LOCAL cQuery
    LOCAL nClrText:=10485760 // Color del texto

    SET DATE BRIT


    oServer := TFBServer():New(cServer, cUser, cPass, nDialect)
    if oServer:NetErr()
        alert("No Existe Base de Datos")
        ? oServer:Error()
        return nil
    end

   oQuery := oServer:Query("SELECT id_ponto,nosso_numero FROM BOLETO_BANCARIO")
   ln := 1
   MsgInfo(IF(oQuery:Eof(),"SIM","NÂO"))
   DO WHILE Ln<=100 .AND. .NOT.  oQuery:Eof()
      AADD(ADADOS,{oQuery:FieldGet( 1 ),oQuery:FieldGet( 2 ),oQuery:FieldGet( 3 )})
      Ln++
      oQuery:Skip()
   END
   xbrowse(adados)
   xbrowse(oQuery)

RETURN nil

Sólo cambia la consulta para incluir un campo de tipo DATE o NUMERO, ya no funciona.

Ex: oQuery := oServer:Query("SELECT id_ponto,nosso_numero,processamento FROM BOLETO_BANCARIO")

No genera un error de ejecución , pero no muestra los datos.

[ruben Dario]

Buen He hecho pruebas con la Version 2.5, y no he tenido problemas. Con la 1.5 no la he trabajado.

Si gustas mandame la Base de datos , hago la prueba.

O puedes Instalar el programa RazorSQL y haces la consulta, haber que pasa.

[vilian]

Instalei o IBExpert Eu e a Query vai Bem com ele. O problema é apenas com o FWH
O Arquivo FDB é muito grande pra exportar.

Acredito que o problema está relacionado com o "Dialect", estamos selecionando 1, mas no IBExpert aparece 3.

[ruben Dario]

No se si la puedes redecir tu base , para podr hacer la prueba.

Has hecho la prueba , Haciendo la conexion con ADO.

[vilian]

Resolvi o problema usando ADO/ODBC.

Code: Select all | Expand

#include "fivewin.ch"
#include "AdoDb.ch"

FUNCTION Main()
LOCAL cDirLoc,oError,CNN,oIni,cIpServ:="",cBcoDados,aDados:={},oCursor

   SET DATE BRIT
   cDirLoc := Rtrim(( CurDrive()+":\"+CurDir() ))
   cDirLoc += If(Right(cDirLoc,1)="\","","\")

   IF .NOT. File(cDirLoc+"vfatec.ini")
      MsgInfo("Aqruivo VFATEC.INI não encontrado !","Atenção")
   ELSE
      INI oIni FILE (cDirLoc+"vfatec.ini")
          GET cIpServ   SECTION "BancoDados" ENTRY "Ip"         OF oIni
          GET cBcoDados SECTION "BancoDados" ENTRY "ArquivoFdb" OF oIni
      ENDINI

      IF Empty(cIpServ) .OR. Empty(cBcoDados)
         MsgInfo("Configuração para acesso ao banco de dados não definida !","Atenção")
      ELSE
         TRY
             CNN:=CreateObject("ADODB.Connection")
             CNN:Open("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME="+cIpServ+":"+cBcoDados+";CHARSET=WIN1252;DIALECT=3;CLIENT=GDS32.dll")
             //CNN:Open("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=10.10.1.11:C:\tec2000\albano\analista2.fdb;CHARSET=WIN1252;DIALECT=3;CLIENT=GDS32.dll")
         CATCH oError
             Error Connection CNN
             RETURN nil
         END

         TRY
             oCursor:=CreateObject("ADODB.Recordset")
         CATCH oError
              Error Connection CNN
              RETURN nil
         END

         oCursor:Open("SELECT b.id_ponto,b.nosso_numero,b.valor_documento,b.processamento,p.nome_ponto FROM boleto_bancario AS b, ponto AS p WHERE b.valor_documento > 0 AND b.id_ponto=p.id_ponto and processamento > '2015-09-01'", CNN, 2, 3)

         oCursor:MoveFirst()
         DO WHILE .NOT. oCursor:Eof()
            Aadd(aDados,{oCursor:Fields["nosso_numero"]:Value, oCursor:Fields["processamento"]:Value, oCursor:Fields["nome_ponto"]:Value, oCursor:Fields["valor_documento"]:Value})
          oCursor:MoveNext()
         ENDDO
         xBrowse( aDados )
      ENDIF
   ENDIF

RETURN nil