¿Como creo una tabla desde un fichero .ini?

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

[[Lepe]]

En lugar de un Memo, sugiero un componente SynEdit, gratuito y open source, en apenas 10 segundos ya reconoce el SQL (colores en palabras reservadas y demás), se recomienda su uso.

[Thoma]

¿Puedo utilizar el Script para insertar un registro en la tabla?
he utilizado el:

Código Delphi [-]
 
    Script.LoadFromFile(sSQL);

para crear la tabla en la base de datos, y quisiera insertar el primer registro pero sin utilizar un archivo externo (.sql) sino desde el mismo delphi

Código Delphi [-]
   Script.Clear;
   sSQL:='';
   sSQL:='INSERT INTO TUsuarios (IDUSUARIO,USUARIO,CLAVEACCESO) values (1,'  + QuotedStr('') + ',' + QuotedStr('0000');
   Script.¿? 
   ExecuteScript;

de este modo si me funciona

Código Delphi [-]
       //------------------------------------------------------------------
       //*********** [ Creamos el primer registro en la tabla ]
       //------------------------------------------------------------------
       sCad:= unidadBD+ruta+'regusuarios.sql';
       sSQL:=LeerCampoIni('RegUsuario','RegUsuarios',sCad);
       if sSQL<>'' then begin
          with DMSistema.ScriptBD do try
             Script.Clear;
              Script.LoadFromFile(sSQL);
              ExecuteScript;
           except
            end;
        end;

[[maeyanes]]

Hola...

Código Delphi [-]
Script.SQL.Text := sSQL; // Sustituyes todo el script
// o
Script.SQL.Add(sSQL); // Agregar la línea al script existente

Solo tienes que checar que cada línea termine con ;...


Saludos...

[Thoma]

Hola maeyanes.
no me salen las propiedades .SQL.Text del Script

[DCC Error] URutinas.pas(193): E2003 Undeclared identifier: 'SQL'
[DCC Error] URutinas.pas(193): E2066 Missing operator or semicolon
[DCC Fatal Error] Gestion.dpr(13): F2063 Could not compile used unit 'FrIndex.pas'

[[maeyanes]]

Hola...

Disculpa, me confundí con el nombre de la propiedad:

Código Delphi [-]
with DMSistema.ScriptBD do 
  try
    // Si vas a usar Script.Add
    Script.Clear;
    Script.Add(sSQL);
    // Si vas a usar Script.Text
    Script.Text := sSQL;
    ExecuteScript;
  except
  end;

Saludos...

[Thoma]

ahora me compila bien, pero con este código no me inserta el registro en la tabla

Código Delphi [-]
   Script.Clear;
   Script.Text := 'INSERT INTO TUsuarios (IDUSUARIO,USUARIO,CLAVEACCESO) values (1,' + QuotedStr('admin')+ QuotedStr('0000')+')';
   ExecuteScript;

sin embargo desde el editor SQL del IBExpert si me inserta el registro

Código Delphi [-]
  INSERT INTO TUsuarios (IDUSUARIO,USUARIO,CLAVEACCESO) values (1,'admin','0000')