Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-04-2011
rrf rrf is offline
Miembro
 
Registrado: ago 2003
Ubicación: S/C Tenerife, España
Posts: 454
Poder: 21
rrf Va por buen camino
Crear una base de datos Firebird por código con los ZEOS

Hola.

Estoy usando Lazarus+Zeos 6.6.6+Firebird 2.1.3.

Quiero crear una base de datos Firebird por código con los ZEOS, pero no he logrado hacerlo.

Usando Delphi 7+ IBX + Firebird lo hacía usando un código que posiblemente encontrara aquí, en clubdelphi. Intenté adaptar ese código para usarlo con los componentes ZEOS, pero no logré que se creara el archivo.

¿Alguien sabe cómo hacerlo o un enlace donde expliquen cómo realizarlo?

Gracias de antemano y saludos.
Responder Con Cita
  #2  
Antiguo 08-04-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Y cómo lo estás haciendo?
¿Has probado ejecutando las utilidades de consola que trae firebird?
Responder Con Cita
  #3  
Antiguo 08-04-2011
rrf rrf is offline
Miembro
 
Registrado: ago 2003
Ubicación: S/C Tenerife, España
Posts: 454
Poder: 21
rrf Va por buen camino
Casimiro, aquí incluyo un ejemplo:

Código Delphi [-]
var
   DataBase: TIbDataBase;
   Fich, aa : string ;
begin
        fich := 'c:\BdeDatos.fdb' ;

                    // Crear la BD vacía
                    //-------------------
         DataBase := TIbDatabase.Create(Application);
         try
            //Configura el objeto DataBase
            Database.DatabaseName := Fich ;
            Database.SQLDialect := 3;
            with Database.Params do
            begin
               Clear;
               Add('user ''SYSDBA''');
               Add('password ''masterkey''');
               Add('page_size = 1024');
    //           Add('default character set ISO8859_1');
            end;    
            Database.CreateDatabase;
         finally
            FreeandNil(DataBase);
            DModule.Dbase.Connected := false ;
         end;

Con ese código y los componentes IBX se crea, por código, la BD en Firebird. Luego se le añaden las tablas, datos, etc.

Lo que quiero es hacer eso con los componentes Zeos,... si se puede, claro.

Un saludo.

P.D.: Mientras escribía este comentario se añadió el mensaje de Ecfisa. Ya había leido ese manual, pero ignoré esa parte porque estaba iniciándome con los Zeos (y el tema estaba fuera de lo que intentaba aprender) y tu mensaje me ha permitido ver que puede ser posible.
Espero probarlo mañana y poder contar que tal me fue.
Muchas gracias.

Última edición por rrf fecha: 08-04-2011 a las 02:08:57. Razón: añadir comentario
Responder Con Cita
  #4  
Antiguo 08-04-2011
rrf rrf is offline
Miembro
 
Registrado: ago 2003
Ubicación: S/C Tenerife, España
Posts: 454
Poder: 21
rrf Va por buen camino
Hola de nuevo.

Ecfisa, el manual que me indicaste tenía la solución a la creación de una BD Firebird por código con Zeos.

Aquí está una adaptación de ese código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  aa : string ;
begin
         // Crea la Base de Datos Firebird, ...
  aa := ExtractFilePath ( Application.ExeName ) + 'base_datos.fdb' ;

  ZConnection1.Database := aa ;
  ZConnection1.Protocol := 'firebird-2.1';
  ZConnection1.Properties.Add (
    'CreateNewDatabase=CREATE DATABASE ' + QuotedStr ( aa )
  + ' USER  ' + QuotedStr ('sysdba') + ' PASSWORD  ' + QuotedStr ('masterkey')
  + ' PAGE_SIZE 4096'
//  + ' DEFAULT CHARACTER SET ISO8859_1'
  );

  ZConnection1.User     := 'sysdba' ;
  ZConnection1.Password := 'masterkey' ;

  ZConnection1.Connect;

end;

Problema resuelto y dejo el código por si le sirve a alguien más.

Gracias Casimiro y Ecfisa.
Responder Con Cita
  #5  
Antiguo 08-04-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola rrf.

Encontre este tutorial , donde creo que explica como crear una nueva base de datos desde los componentes. (Busca: CreateNewDatabase).
Lamento no poder aportarte más datos pero no he usado esos componentes.

Si encuentro algo más te lo hago saber de inmediato.

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como Crear una base de datos Firebird desde delphi pmtzg Firebird e Interbase 14 08-06-2008 08:03:15
Crear base de datos de access por codigo principiante22 Conexión con bases de datos 4 29-06-2007 17:50:46
Conexión a Base de Datos MySQL desde Zeos [Gunman] Conexión con bases de datos 2 06-04-2006 11:36:39
Crear Base de Datos desde codigo Odnanref Tablas planas 5 15-09-2004 10:43:49
Crear Base de Datos en Firebird bajo Linux red hat 9 Choclito Firebird e Interbase 1 19-07-2004 09:40:50


La franja horaria es GMT +2. Ahora son las 15:50:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi