¿Como creo una tabla desde un fichero .ini?

[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...

[Thoma]

de nuevo Gracias, ya no me da el error al compilar, pero parecer ser que me crea la BD (abriéndome una ventana para el usuario[SYSDBA] y password[masterkey])
sin la tabla.
Voy a hacer unas comprobaciones....

[Thoma]

Cuando me crea la BD según el código que os muestro a continuación, se me abre una ventana pidiéndome el usuario y la password
¿como es posible si lo tengo definido al crea la BD?

Código Delphi [-]


//------------------------------------------------------------------------------
//********************************************[ CReamos La Base De Datos ]******
//------------------------------------------------------------------------------
function crearBD (unidadBD, rutaBD, nameBD, extBD:string; empresaBD:Integer):Boolean;
var
   sEmp:string;
begin
  result := false;
  if empresaBD < 10 then begin
    sEmp:='0'+ IntToStr(empresaBD);
  end else begin
    sEmp:=IntToStr(empresaBD);
  end;
  if empresaBD=0 then sCad:= unidadBD+rutaBD+nameBD+extBD
                 else sCad:= unidadBD+rutaBD+nameBD+sEmp+extBD;
  try
    //--------------------------------------------------------------------------
    //*********** [ creamos la base de datos ]
    //--------------------------------------------------------------------------
    DMSistema.dbCrearBd.DatabaseName := sCad;
    DMSistema.dbCrearBd.Params.Clear;
    DMSistema.dbCrearBd.Params.Add('user ''SYSDBA''');
    DMSistema.dbCrearBd.Params.Add('password ''masterkey''');
    DMSistema.dbCrearBd.Params.Add('PAGE_SIZE = 4096');
    DMSistema.dbCrearBd.SQLDialect := 3;
    DMSistema.dbCrearBd.CreateDatabase;
    //--------------------------------------------------------------------------
    //*********** [ creamos la Tabla de usuarios ]
    //--------------------------------------------------------------------------
       sCad:= unidadBD+ruta+'usuarios.sql';
       sSQL:=LeerCampoIni('Tablas','TUsuarios',sCad);
       if sSQL<>'' then begin
         if DMSistema.dbCrearBd.Connected then DMSistema.dbCrearBd.Connected:=False;
          DMSistema.dbCrearBd.DatabaseName:=NameBD;
          DMSistema.dbCrearBd.Connected:=True;
          with DMSistema.ScriptBD do try
            DMSistema.ScriptBD.Script.LoadFromFile(sSQL);
            DMSistema.ScriptBD.ExecuteScript;
          except
          end;
       end;

    result := True;
  except
    result := false;
  end;
end;

[[José Luis Garcí]]

Hola Thoma, primero que nada me parece un buen trabajo el que estas desarrollando, yo lo que hago todo lo vuelco a un memo y luego creo la base de datos. En cuanto a tú pregunta en el IBDatabase sería

Código Delphi [-]
IBDatabase1.LoginPrompt:=False;

Espero te ayude.

[Thoma]

Hola Jose Luis, gracias por tu comentario, la verdad es me está costando un poco el Delphi, pero veo que es bastante potente y en ello estoy. Voy a probar lo que me dices del “LoginPrompt” y te comento.
¿Me podrías explicar un poco lo del memo que me comentas?
Un saludo..

[[José Luis Garcí]]

Te comento Thoma. lo que tu haces es volcarlo directamente al IbSript, en su SQL, en mi sistemacreo un init por taba con varias caracteristicas y entre lo que vuelco al init tengo en proyecto volcar la sentencia, para ello lo pasoa un memo en vez de el ibscript, con lo que puedo guardarlo independientemente, ver la sentencia antes de ejecutarla, etc, cargala es muy simple sólo tendrias que volcar el contenido del memo en el ibScript.