¿Como creo una tabla desde un fichero .ini?

[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')

[[maeyanes]]

Hola...

La sentencia INSERT está mal generada, le falta el paréntesis final, de seguro te envía una excepción, la cual estás escondiendo en tu código. La forma correcta sería:

Código Delphi [-]
sSQL := 'insert into TUsuarios values(1, ''admin'', ''0000'');'

Saludos...

[Thoma]

OK, lo encontre. me faltaba separar con la ',' entre (admin) y (0000)
voy a probar como tu me dices.

[Thoma]

con este script si me funciona.

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

me faltaba poner el último +')';