16 replies to this topic

[lKinGl]

Salu2 amigos Foristas

estoy dando mis primeros pasos sobre firebird recomendado por el amigo enecumene y quisiera saber como se conecta por zeos a firebird

ya tengo todo configurado y una base de datos llamada BD_Prueba y una tabla llamada TABLA1

gracias adelantadas

[enecumene]

Hola, para conectarse a Firebird con ZEOS, debes hacer lo siguiente:

1) Colocas un ZConnection cuya función es conectarse a la base.
2) Rellena las siguientes propiedades del ZConnection:
DataBase: Aquí colocarás la ruta completa de la base de datos, por ejemplo: C:\BASEDEDATOS.FDB (Ojo, siempre debe tener la extensión .FDB).
User: Aquí colocas el nombre de Usuario, normalmente por defecto es SYSDBA.
Password: Aquí la contraseña, normalmente por defecto es masterkey.
Hostname: normalmente es Localhost o 127.0.0.1 y si está en la red colocas el IP donde está ubicado.
Protocol: Aquí seleccionas firebird-x.x según la versión, si es Firebird 2.0 seleccionas firebird-2.0 y así sucesivamente.
LoginPrompt: Aquí debe estar en False.
3) Luego de rellenar todo correctamente vamos a la propiedad Connected a True y ya estás conectado.

Cualquier otra duda, no dudes en postearlo

Saludos.

[lKinGl]

Thanks enecumene pero por propiedades no existe el peligro en que si se decide cambiar la carpeta (con la bd incluida ) se dañe la conexion?

[enecumene]

Thanks enecumene pero por propiedades no existe el peligro en que si se decide cambiar la carpeta (con la bd incluida ) se dañe la conexion?

Hola, si configuraste un ZConnection con una base de datos ubicada en una carpeta y lo mueves de su sitio es lógico que no te va a conectar, lo más recomendable es usando archivos .INI con los datos de conección antes mencionada, aquí te dejo un ejemplo conectando con .INI:

delphi

uses Inifiles;
 
procedure TFDatos.DataModuleCreate(Sender: TObject);
var Basedato,host,protocolo,Usuario,Clave: string;
    Inifile: TInifile;
begin
   SEOPC.Disconnect;
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Data.ini');
   Basedato :=  IniFile.ReadString('BASE','Database','');
   host := IniFile.ReadString('HOSTNAME','Localhost','');
   protocolo := IniFile.ReadString('PROTO','Protocole','');
   Usuario := IniFile.ReadString('USUARIO','User','');
   Clave := IniFile.ReadString('PASSWORD','Pass','');
   If Basedato = '' then begin
    ShowMessage('Error al cargar Base de Datos');
    Exit;
   End;
   SEOPC.Database := Basedato;
   SEOPC.User := Usuario;
   SEOPC.Password := Clave;
   SEOPC.HostName := host;
   SEOPC.Protocol := protocolo;
   SEOPC.Connect;
end;

y eso es el archivo .INI:

[BASE]
Database="Sigesped"
[HOSTNAME]
Localhost="Localhost"

[PROTO]
Protocole="mysql"
[USUARIO]
User="root"
[PASSWORD]
Pass="xxxx"

Así cuando muevas de sitio la base de datos, sólo debes modificar el archivo .INI y colocar la nueva ubicación, eso sí las propiedades en el ZConnection deben estar vacías para que funcione la conección por .INI.

Espero que te sirva,

Saludos.

[lKinGl]

delphi

var
Basedato,host,protocolo,Usuario,Clave: string;
Inifile: TInifile;
begin
ZConnection1.Disconnect;
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Data.ini');
Basedato :=  IniFile.ReadString('BD_PRUEBA','Database','');
host := IniFile.ReadString('localhost','Localhost','');
protocolo := IniFile.ReadString('firebird-2.0','Protocole','');
Usuario := IniFile.ReadString('SYSDBA','User','');
Clave := IniFile.ReadString('masterkey','Pass','');
  If Basedato = '' then
    begin
      ShowMessage('Error al cargar Base de Datos');
      Exit;
    End;
ZConnection1.Database := Basedato;
ZConnection1.User := Usuario;
ZConnection1.Password := Clave;
ZConnection1.HostName := host;
ZConnection1.Protocol := protocolo;
ZConnection1.Connect;

guiandome por tu codigo trate de personalizarlo pero nada que conecta
lo puse detro del createform y declaré inifiles en la uses

¿me faltara algo? gracias adelantadas

[enecumene]

Hola, ¿Llegaste a crear el archivo .INI con las informaciones de conección?.

Saludos.

[eduarcol]

Ejecutalo paso a paso y fijate que valores toma cada una de las propiedades y nos cuentas, una recomendacion: La clave de la BD no la coloques en el INI

[enecumene]

Yo lo que hago es que el archivo .INI lo pongo como oculto, y la modifico desde la aplicación y la clave la guardo codificada (MD5 o Hash) y antes de conectar la decodifico.

[eduarcol]

mucho problema por una clave que se recupera instalando y desisntalando jeje

[lKinGl]

pues no ese codigo lo puse fue en el create form

otra preguntica como se registra un hosting web en sql manager 2005 for interbase/firebird?

para manejar base de datos desde un servidor web

[lKinGl]

ahora tengo asi

esto en el formcreate

delphi

  ZConnection1.Disconnect;
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Data.ini');
  Basedato :=  IniFile.ReadString('BD_Prueba','Database','');
  host := IniFile.ReadString('localhost','Localhost','');
  protocolo := IniFile.ReadString('firebird','Protocole','');
  Usuario := IniFile.ReadString('SYSDBA','User','');
  Clave := IniFile.ReadString('masterkey','Pass','');
  If Basedato = '' then begin
   ShowMessage('Error al cargar Base de Datos');
   Exit;
  End;
  ZConnection1.Database := Basedato;
  ZConnection1.User := Usuario;
  ZConnection1.Password := Clave;
  ZConnection1.HostName := host;
  ZConnection1.Protocol := protocolo;
  ZConnection1.Connect;

y esto en data.ini

delphi

[BASE]
Database="BD_Prueba"
[HOSTNAME]
Localhost="Localhost"
 
[PROTO]
Protocole="Firebird"
[USUARIO]
User="SYSDBA"
[PASSWORD]
Pass="masterkey"

estoy usando firebird componentes zeos

mi BD es BD_Prueba el usuario es SYSDBA y la contraseña masterkey el host es localhost

please me interesa aprender de esto agradesco su ayuda

[eduarcol]

¿y eso te funciona?  :

si no funciona, debe ser por lo siguiente:

1.- Basedato debe ser la ruta completa con el nombre del archivo de la base de datos.

2.- El Protocolo debe ser segun la lista de las propiedades, no es solo Firebird

3.- Los valores no los encierres entre comillas, prueba esto y nos avisas como quedo.

[enecumene]

3.- Los valores no los encierres entre comillas, prueba esto y nos avisas como quedo.

¿No te falta algo?  :  :

[eduarcol]

no logro saber que, ¿como que me faltara?

[enecumene]

Si miras en la cita anterior donde puse en negrita "Prueba esto" me imagino que te refieres a algún código

[eduarcol]

que pruebe solucionar lo que le comente en los tres puntos.

algo me dice que lo que quieres es ganar post jajaja

[enecumene]

No hombre, eso fue lo que entendí