Viewer para Firebird

por **Kapiaba** » 09 Jun 2016 11:50

Hasse, usando o seu modulo com fivewin, me retorna estes erros de include:
O que pode ser, sabeis? Obg. Abs

Compiling...
Harbour 3.2.0dev (r1601050904)
Copyright (c) 1999-2015, http://harbour-project.org/
Compiling 'FIREBIRD.prg' and generating preprocessed output to 'FIREBIRD.ppo'...

1 error

No code generated.
adoXb.ch(52) Error E0017  Ambiguous match pattern in #translate/#command
adoXb.ch(85) Warning W0002  Redefinition or duplicate definition of #define adLo
ckReadOnly
adoXb.ch(86) Warning W0002  Redefinition or duplicate definition of #define adLo
ckPessimistic
adoXb.ch(87) Warning W0002  Redefinition or duplicate definition of #define adLo
ckOptimistic
adoXb.ch(88) Warning W0002  Redefinition or duplicate definition of #define adLo
ckBatchOptimistic
* Compile errors *

Codigo para Fivewin:

#include "adoXb.ch"
//#include "AdoXb.prg"  // NAO TENHO ESTE MODULO PARA Q SERVE?

#Include 'Inkey.ch'
// #Include 'i_keybd.ch' // NAO TENHO ESTE INCLUDE, PARA Q SERVE?
#include "FiveWin.ch"
// #include "ado.ch"     // CONFLITOS DIVERSOS.
#include "set.ch"
#include "common.ch"
#include "directry.ch"
#include "fileio.ch"
#include "hbcompat.ch"
// #include "hbwin.ch"   // NAO TENHO ESTE INCLUDE, PARA Q SERVE?

MEMVAR StrDatabas, StrConnect

FUNCTION Main()

   LOCAL cADORDD, cSmallPath, oConexao, oRecSet, c_Nome, d_Nasc, c_SeleStr

   ADOSetRDD( "FIREBIRD" )                // ADOGDB
   ADORDDDefault( "FIREBIRD" )            // ADOGDB
   cADORDD := "FIREBIRD"

   StrDatabas := "BANCOFB.FDB" // NO LOCAL DE COMPILACAO
   StrConnect := "DRIVER=Firebird/InterBase(r) driver; UID=sysdba; PWD=masterkey; DBNAME=" + StrDatabas

   ADOSetRDD( "FIREBIRD" )                // ADOGDB
   ADORDDDefault( "FIREBIRD" )            // ADOGDB
   cADORDD := "FIREBIRD"
   ADO CONNECT StrConnect

   oConexao    := TOLEAUTO():New("ADODB.Connection")
   oRecSet     := TOLEAUTO():New("ADODB.RecordSet")

   // A variável "c_SeleStr" abaixo deve obedecer a sintaxe do Firebird.

   ? [PASSOU]
   QUIT

   c_SeleStr  := "select  " +;
                 "A.NM_PACIENTE_SEM_ACENTO NOME, " +;
                 "A.DT_NASCIMENTO NASC, " +;
                "from    PRESCR_LABORATORIO_V A, " +;
                "        PRESCR_LAB_INTEGRACAO_V B " +;
                "where A.NR_PRESCRICAO = B.NR_PRESCRICAO " +;     
                "and   A.NR_SEQUENCIA = B.NR_SEQUENCIA " +;
                "and   B.DT_INTEGRACAO is null " +;
                "order by PRESCRICAO, URGENCIA, PREV_COLETA"

   // Estas linhas abaixo eu uso com o banco ORACLE.
   // No Firebird deve ser igual ou muito semelhante.
   // O objeto oRecSet conterá os dados que satifazem ao select acima.

   WITH Object oRecSet
      *
      :cursorType       := adOpenForwardOnly     // OPÇÕES:  adOpenForward // adOpenDynamic // adOpenStatic //
      :activeConnection := oConexao
      :cursorLocation   := adUseServer
      :maxRecords       := 100000
      :cacheSize        := 100
      :source           := c_SeleStr
      *
      :open()
      *

      WHILE ! :EOF()        && ou outra função

            // aqui você faz a leitura das variáveis do banco GDB

         c_Nome      := :Fields( "NOME" ):Value
         d_Nasc      := :Fields( "NASC" ):Value

         // etc.....

         :MoveNext()

            // aqui você grava as variáveis no DBF

         //APPEND BLANK

         //etc.

      ENDDO

   ENDWITH
   

   // Fecha o RecSet e fecha a Conexão.

   IF Type( 'oRetSet' ) == "O"
      oRecSet:Close()
   ENDIF
   IF Type( 'oConexão' ) == "O"
      oConexao:Close()
   ENDIF

RETURN NIL

por **Kapiaba** » 09 Jun 2016 12:00

Alexandre, não seria essa versão do Firebird a ser instalada?

http://www.firebirdsql.org/en/odbc-driver/

Obg. abs

por **alxsts** » 09 Jun 2016 12:35

Olá!

Não tenho Firebird instalado. Fazendo uma pesquisa, verifiquei que a versão mais atual do FB é a 3.0 mas, na parte de download de drivers, só tem ODBC até a versão 2.0.4. Assim, creio que os drivers da versao 2 (do link que você postou) sirvam para a versão 3.

Faça o download do driver conforme sua máquina (32 ou 64 bits) e execute a instalação, dando um nome para sua nova fonte de dados.

Para configurar, procure no painel de controle do Windows a opção "Fontes de dados (ODBC)". Será mostrada uma interface como a abaixo. Selecione a aba "Fonte de dados de sistema", clique em "Adicionar". O driver que você instalou já deverá aparecer, com o nome que você escolheu. Preencha todos os campos solicitados e clique em concluir. Lembre-se que estes dados que você fornece nestas configurações são os dados que deverão ser usados na conection string do Firebird do teu programa.