FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
IbScript¿?
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; ibT1 -> TIBTransaction ibS1 -> TIBScript dmDatos.ib_Global_Database -> TIBDatabase Esperando quedo... Muchas gracias |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
sp en IBScript? | subzero | Firebird e Interbase | 6 | 24-06-2011 18:18:42 |
¿IBScript? | subzero | Firebird e Interbase | 2 | 26-05-2005 05:51:43 |
¿IBScript? | subzero | Conexión con bases de datos | 1 | 26-05-2005 02:17:51 |
Ejemplos IBScript | subzero | Firebird e Interbase | 7 | 19-05-2005 19:00:33 |
Componente IBScript | guillotmarc | Firebird e Interbase | 2 | 07-07-2003 23:31:28 |
|