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 |
#2
|
|||
|
|||
Porque no tratas con esto, tal vez si haya un error pero no lo muestra
Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#3
|
||||
|
||||
Ok.
La hago ahora. |
#4
|
||||
|
||||
La propuest queda así:
Código:
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; try IBS1.ExecuteScript; except ShowMessage('Hay un error en la ejecución'); end; ibT1.Commit; end; |
#5
|
|||
|
|||
Solo una duda,
Porque estas usando un IBScript para borrar y agregar registros No te es suficiente un Procedimiento Almacenado o un IBSQL. Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney |
#6
|
||||
|
||||
Hola.
Bueno este código es parte de un script, que modifica la estructura de una base de datos, es decir modificar,borrar,crear: tabla, trigger, procedimiento almacenado, etc; y en esta tabla en concreto voy guardando la versión de la base de datos, la cual consulto para ver si se encuentra actualizada. El script que te comento, funciona correctamente desde ibExpert, pero como estoy creando un instalador , y un actualizador de la aplicación (InnoSetup), a la hora de actualizar con una nueva versión, me gustaría que tuviera la capacidad de modificar la estructura de forma automática. Espero haber resuelto tu duda. Saludos. |
#7
|
||||
|
||||
Resp
Pruebalo quitando el set term.
Ha tambien te faltan los ; al final de cada instruccion.
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa. |
#8
|
|||
|
|||
Enigma
Necesito que alguien me enseñe los conceptos basicos de Delphi para cuando termines los estudios poder empezar bien a programar.
¿Quien se apunta? Que foto mas rara tienes _Io ¬¬ |
#9
|
||||
|
||||
Cita:
Lo dicho, bienvenido al Club
__________________
Saludos Emilio |
|
|
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 |
|