Firebird y ADO/ODBC en D2010

[cesarsoftware]

Antes de nada. ¡GRACIAS JHONNY!

Vale, ya me conecto y leo tablas desde el servidor, la cadena correcta es:
192.168.100.9:d:/Datos/base.FDB, supongo que no resuelve el nombre del servidor mi equipo y que no tiene nada que ver con odbc.

Ya se que la pregunta puede resultar "incoherente" pero ahi va:

Puedo conectar sin tener que crear un DNS del sistema, vale, el driver odbc esta claro que hay que instalarlo (igual que hariamos con el motor nativo, logico), pero si se pudiera hacer, mi instalador ejecutaria el driver en modo silencioso junto con la aplicacion y asi no tendria que "meter mano" a "herramientas administrativas/Origenes de datos/DNS del sistema".

Muchas gracias por vuestra atencion.

PD: tambies es necesario el cliente GDS32.dll

[jhonny]

Hola, mira, esa vaina no es tan complicada como parece:

Hay muchos gestores de instación... suponiendo que estás usando Inno Setup, hay dos maneras de hacer lo que quieres...

Una vez hecho instalador y a punto de configurar tu ODBC, puedes tomar cualquiera de los 2 siguientes caminos:

1) Estudiarte este Wiki y hacerlo como indican ahí http://www.vincenzo.net/isxkb/index....o_create_a_DSN.

o

2) Descargarte http://www.istool.org/, que es como una especie de Front End de Inno Setup, que te ayuda a configurar todo facilmente entre esas cosas el ODBC dandole clik en Project|Create ODBC Profile y listo.

Bueno, espero te sirva esta información.

[guillotmarc]

El soport de Firebird en D2010 Enterprise es mediante un driver dbExpress. Si quieres usar un driver dbExpress libre para suplir la falta en D2010 Professional, puedes usar éste (yo lo he probado y en principio todo me ha funcionado bien) :

http://sites.google.com/site/dbxfirebird/

La distribución de una aplicación que se conecta a las bases de datos por driver dbExpress es bastante más sencilla que en una aplicación que utiliza ODBC, puesto que solo tienes que distribuir una librería dll en la misma carpeta de tu aplicación.

Saludos.

[jhonny]

Empezado por guillotmarc

El soport de Firebird en D2010 Enterprise es mediante un driver dbExpress. Si quieres usar un driver dbExpress libre para suplir la falta en D2010 Professional, puedes usar éste (yo lo he probado y en principio todo me ha funcionado bien) :

http://sites.google.com/site/dbxfirebird/

La distribución de una aplicación que se conecta a las bases de datos por driver dbExpress es bastante más sencilla que en una aplicación que utiliza ODBC, puesto que solo tienes que distribuir una librería dll en la misma carpeta de tu aplicación.

Excelente dato, no conocía la existencia de dicho driver, gracias guillotmarc

[cesarsoftware]

Empezado por guillotmarc

El soport de Firebird en D2010 Enterprise es mediante un driver dbExpress. Si quieres usar un driver dbExpress libre para suplir la falta en D2010 Professional, puedes usar éste (yo lo he probado y en principio todo me ha funcionado bien) :

http://sites.google.com/site/dbxfirebird/

La distribución de una aplicación que se conecta a las bases de datos por driver dbExpress es bastante más sencilla que en una aplicación que utiliza ODBC, puesto que solo tienes que distribuir una librería dll en la misma carpeta de tu aplicación.

Saludos.

¡MUCHISIMAS GRACIAS!
Despues de hacer funcionar ADO/ODBC he borrado todo y hasta he desistalado el driver ODBC y he usado la libreria dbxfirebird. TODO PERFECTO (de momento, jejeje).
En el siguiente mensaje indicaque su uso para que lo puedan usar todos los compañeros

[cesarsoftware]

Lo primero que hay que hacer es bajarse la libreria de donde indica guillotmarc, yo he bajado la ultima version dbxFirebird.4.1.v26.zip.
Tras descomprimirla necesitamos los ficheros dbxfb4d14.dll y dbxdrivers.ini.
Los copiamos al directorio de nuestra aplicacion junto el cliente firebird fbclient.dll (o gds32.dll, el que mas nos guste).
Despues editamos el fichero dbxdrivers.ini y eliminamos las lineas "database" y "password" (o las dejamos) y cambiamos la lineas "libraryname" y "vendorlib" para quitarles el path que trae por defecto o le ponemos el nuestro, yo prefiero quitarselo y asi busca las dll en el directorio de nuestra aplicacion.

El fichero dbxdrivers.ini quedara asi.

[Installed Drivers]
FirebirdConnection=1
[FirebirdConnection]
;DriverUnit=DBXInterBase
;DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver120.bpl
;DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
;MetaDataPackageLoader=TDBXInterbaseMetaDataCommandFactory,DbxInterBaseDriver120.bpl
;MetaDataAssemblyLoader=Borland.Data.TDBXInterbaseMetaDataCommandFactory,Borland.Data.DbxInterBaseDriver,Version=12.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
GetDriverFunc=getSQLDriverFIREBIRD
LibraryName=dbxfb4d14.dll
VendorLib=fbclient.dll
BlobSize=-1
CommitRetain=False
ErrorResourceFile=Firebird.log
LocaleCode=0000
Password=masterkey
RoleName=RoleName
ServerCharSet=
SQLDialect=3
Interbase TransIsolation=ReadCommited
WaitOnLocks=True
Trim Char=False

A continuacion en nuestro codigo hacemos los siguiente:
En la clausula uses añadimos "SqlExpr, WideStrings, DB, DBXDynalink, FMTBcd;"
En la clausula public definimos el conector asi lo podemos usar en toda la aplicacion
SQLConnection: TSQLConnection;

Ya podemos escribir el codigo de apertura y uso
Yo prefiero darle algunos parametros como usuario, password, database, etc.

Código Delphi [-]
 
function TFormBBDD.AbreDataBase(): boolean;
var
  tIni, tFin: integer;
begin
  Result := False;
  SQLConnection := TSQLConnection.Create(Self);
  SQLConnection.DriverName := 'FirebirdConnection';
  SQLConnection.SQLHourGlass := True;
  SQLConnection.LoginPrompt := False;
  SQLConnection.Params.Add('ServerCharSet=WIN1252');
  SQLConnection.Params.Add('User_Name=SYSDBA');
  SQLConnection.Params.Add('Password=masterkey');
  SQLConnection.Params.Add('Database=servidor:d:\datos\base.fdb');
  tIni := GetTickCount();
  try
    SQLConnection.Open;
    tFin := GetTickCount();
    if SQLConnection.Connected then
    begin
      Result := True;
      Application.MessageBox('-> Conectado en ' + IntToStr((tFin - tIni) div 1000) + ' seg.', 'OK'); // evidentemente esta linea sobra
    end;
  except
    tFin := GetTickCount();
    SQLConnection.Free;
    Application.MessageBox(PChar('-> No conectado en ' + IntToStr((tFin - tIni) div 1000) + ' seg.' + #10 +
                           'consulte con el servicio técnico'), 'Error', MB_ICONERROR);
  end;
end;

[guillotmarc]

Gracias por documentar la instalación.

Recuerdo que me costó al menos un par de horas ponerlo en marcha (tanto en el IDE como en el ejecutable), lamentablemente no lo documenté ya que solo estaba probándolo (estoy considerando seriamente dejar FibPlus en D2010 y volver a dbExpress, que es lo que utilizaba en D6).

Una vez configurado el driver y en marcha, todas las pruebas me funcionarion sin el menor problema.

Saludos.

[Gallosuarez]

Empezado por guillotmarc

Gracias por documentar la instalación.

... (estoy considerando seriamente dejar FibPlus en D2010 y volver a dbExpress, que es lo que utilizaba en D6).

...

Que tal, un saludo a tod@s l@s forer@s.

Me gustaría que Guillotmarc nos comentara mas sobre su consideración de dejar FibPlus y volver a dbExpress, es mas, me gustaría que los demás foreros nos comentaran mas sobre las tecnologías que están utilizando en la creación de sus proyectos. Por cierto, por mi parte les puedo decir que estoy en el proceso de pruebas para cambiar mis sistemas (utilizaba Delphi 2006, los componentes para conectarme la base de datos que utilizaba eran IBObjects y la base de datos sigue siendo Firebird, por supuesto). Ahora, por el momento estoy haciendo pruebas con ExtJS ("Framework" que utiliza JAVA script y hojas de estilo), todo esto para la programación del "Front End". La capa intermedia que estoy utilizando para el manejo de conexión a la base de datos es PHP, aunque estoy, también, haciendo pruebas con SERVLETS (creo que es una tecnología mas robusta, aunque mas complicada), la base de datos es FIREBIRD, claro está.

Siendo un fanático del Sofware Libre, todo esto lo trabajo en Linux (CENTOS para servidores y Fedora 13 para las PC's de escritorio y Laptops). Aunque los proyectos que resultan de todo esta mezcla de tecnologías es multiplataforma, puesto que las aplicaciones las abres desde cualquier navegador de internet que uno le guste). Uff, ya me extendí bastante, mejor propongo la creación de un nuevo hilo y ahí nos podemos explayar a gusto (si los demás así lo quieren, claro está). Estoy pensando liberar todos mis documentos que he estado haciendo para hacer una pequeña contribución a lo mucho que yo he recibido.

Espero su comentarios,

Saludos,
Gerardo Suárez Trejo