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'