¿Como creo una tabla desde un fichero .ini?

[Thoma]

Teniendo resuelto el problema de como crear una BD si esta no existe, ahora vuelvo a apelar a vuestra sabiduría.
Mi idea es crear las tablas necesarias desde un fichero .INI
(He oído hablar de archivos .cmp donde pones las sentencias SQL, pero no sé como se usan).
¿Que componente puedo utilizar para cuando lea una sección del fichero .INI ejecute la sentencia SQL?

[TUSUARIOS]
CREATE TABLE TUSUARIOS
(
"IDUSUARIO" INTEGER NOT NULL,
"USUARIO" VARCHAR(50) ,
"CLAVEACCESO" VARCHAR(50) ,
"FECHACADUCIDAD" TIMESTAMP ;
CONSTRAINT "TUSUARIOSPRIMARYKEY" PRIMARY KEY ("IDUSUARIO")
);
CREATE UNIQUE INDEX "USUARIOKEY" ON "TUSUARIOS"("USUARIO");

[[maeyanes]]

Hola...

Falta información, que base de datos y que componentes estás usando para conectarte a esa base de datos...



Saludos...

[Thoma]

Utilizo Firebird, y para la creación de la BD estoy utilizando el TIBDataBase

[[maeyanes]]

Hola...

Si usas Firebird y los componentes IBX, estos tienen un componente llamado TIBScript que te puede servir para lo que necesitas.

Ahora, los archivos INI usan un formato específico para guardar los valores y no funcionan de la forma como quieres hacerlo. Yo te recomendaría que crees archivos de script (.sql) con la definición de la tabla y en el ini hagas referencia a este archivo.

Archivo INI:

[Tablas]
TUsuarios=DefTablas\usuarios.sql

usuarios.sql:

Código SQL [-]
create table TUsuarios(
IdUsuario integer not null,
usuario varchar(50),
/* etc */
);
create unique index UsuarioKey on TUsuarios(usuario);

Desde tu aplicación lees el archivo INI, obtienes la ruta del archivo SQL, lo cargas en el componente TIBScript y ejecutas el script.



Saludos...

[Thoma]

maeyanes, ante todo darte las gracias por tu ayuda.
A ver si capto un poco como funciona.
Tengo un TIBDataBase: Name: dbCrearBD
E añadido un TIBScript: Name ScriptBD
DataBase: dbCrearBD
En c:\BD\tbsistema.ini
[Tablas]
TUsuarios=c:\BD\usuarios.sql

En c:\BD\usuarios.sql
CREATE TABLE TUSUARIOS
(
"IDUSUARIO" INTEGER NOT NULL,
"USUARIO" VARCHAR(50) ,
"CLAVEACCESO" VARCHAR(50) ,
"FECHACADUCIDAD" TIMESTAMP ;
CONSTRAINT "TUSUARIOSPRIMARYKEY" PRIMARY KEY ("IDUSUARIO")
);
CREATE UNIQUE INDEX "USUARIOKEY" ON "TUSUARIOS"("USUARIO");

Código Delphi [-]
function LeerCampoIni(etiqueta,texto,campo:string):string;
begin
   Result:='';
   with TIniFile.Create(sFileIni) do
   try
     Result:=ReadString(etiqueta,texto,'');
     Free;
   finally
     Free;
   end;
end;
--------------------------------------------------------------------------
sSQL:=LeerCampoIni('Tablas','TUsuarios','');
if sSQL<>'' then begin
  if dbCrearBd.Connected then dbCrearBd.Connected:=False;
  dbCrearBd.DatabaseName:=NameBD;
  dbCrearBd.Connected:=True;
  with ScriptBD do try
    ScriptBD.Script :=sSQL;
  except

  end;
end;

Me da el siguiente error
[DCC Error] E2010 Incompatible types: 'TStrings' and 'string'

[[maeyanes]]

Hola...

Tú código está bien, solo que estás obteniendo mal la información. Una version corregida sería:

Código Delphi [-]
// La función obtiene la ruta del archivo SQL desde el archivo INI
function GetFilePath(const Section, Key, Value: string): string;
begin
  with TIniFile.Create(sFileIni) do
    try
      Result := ReadString(Section, Key, Value)
    finally
      Free
    end
end;

// Usamos la función:
ScriptFilePath := GetFilePath('Tablas', 'TUsuarios', 'C:\DB\usuarios.sql');
// Configuras componentes
ScriptDB.Script.LoadFromFile(ScriptFilePath); // Cargas el script desde el archivo directamente en la propiedad.
ScriptDB.ExecuteScript;

Saludos...