Saludos a todo el Foro.
No he podido encontrar ninguna ayuda sobre TIbscript, con lo cual estoy dando palos de ciego.
Aquí os dejo un código, haber si me podéis decir que es lo que esta mal, por que no me funciona. No me da ningún tipo de error, y la validación es correcta pues no sale el cuadro de dialogo, pero no funciona.
Código:
procedure TForm4.FormActivate(Sender: TObject);
begin
ibT1.Params.Clear;
ibT1.Params.Add('read_committed');
ibT1.Params.Add('rec_version');
ibT1.Params.Add('nowait');
ibT1.DefaultDatabase:=dmDatos.ib_Global_Database;
ibS1.Database:=dmDatos.ib_Global_Database;
ibS1.Transaction:=ibT1;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
ibS1.Script.Clear;
ibS1.Script.Add('SET TERM ^;');
ibS1.Script.Add('delete from CONTROL_BD^');
ibS1.Script.Add('insert into CONTROL_BD (VER_BD)');
ibS1.Script.Add('values('+QuotedStr('k-kk.kk.kk')+')^');
ibS1.Script.Add('SET TERM ;^');
ibT1.StartTransaction;
if ibS1.ValidateScript then
ibS1.ExecuteScript
else
showmessage('Error');
ibT1.Commit;
end;
Utilizo D6,Fb15, dbx.
ibT1 -> TIBTransaction
ibS1 -> TIBScript
dmDatos.ib_Global_Database -> TIBDatabase
Esperando quedo...
Muchas gracias