FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Ejemplos IBScript
Hola amigos y amigas del foro.
Mi pregunta es muy sencilla alguien sabe donde puedo encontrar ejemplos donde muestren el manejo de IBScript, ya he realizado busquedas y he entrado a la página de la Borland pero no he localizado nada. Me genera un error donde me dice que la propiedad Terminator no existe Si pueden ayudame les estare muys agradecido. |
#2
|
||||
|
||||
checa esto....
La propiedad Terminator te indica el simbolo con que terminará el Script, yo lo dejo en punto y coma ( ; ) si no lo tiene al final del script te marca el error....
Saludos. Última edición por AGAG4 fecha: 19-05-2005 a las 01:52:11. Razón: Corrección |
#3
|
|||
|
|||
Entendido pero como logro generar un procedimiento almacenado el cual debe devolver algún valor? por ejemplo
Código:
.......... with IBScript1 do begin Script.Clear; Script.Add('SET TERM ^;'); Script.Add('CREATE PROCEDURE PROCEDIMIENTO_PRUEBA'); Script.Add('AS DECLARE VARIABLE CODANE VARCHAR(16);'); Script.Add('DECLARE VARIABLE NOMBRE VARCHAR(100);'); Script.Add('AS BEGIN'); Script.Add('SELECT CODIGO_DANE, ESTAB_NOMBRE'); Script.Add('FROM ESTABLECIMIENTOS'); Script.Add('INNER JOIN NUCLEOS ON (ESTAB_NUC_NUMERO=NUC_NUMERO)'); Script.Add('INNER JOIN SECRETARIAS ON (NUC_SEC_CODIGO=SEC_CODIGO)'); Script.Add('INNER JOIN MUNICIPIOS ON (SEC_MUN_CODIGO=MUN_CODIGO)'); Script.Add('WHERE (MUN_CODIGO = ''70001'')'); Script.Add('FOR SELECT ESTAB_CODIGO_DANE, ESTAB_NOMBRE'); Script.Add('FROM ESTABLECIMIENTOS'); Script.Add('INNER JOIN NUCLEOS ON (ESTAB_NUC_NUMERO=NUC_NUMERO)'); Script.Add('INNER JOIN SECRETARIAS ON (NUC_SEC_CODIGO=SEC_CODIGO)'); Script.Add('INNER JOIN MUNICIPIOS ON (SEC_MUN_CODIGO=MUN_CODIGO)'); Script.Add('WHERE (MUN_CODIGO = ''70001'')'); Script.Add('INTO :CODANE, :NOMBRE DO'); Script.Add('BEGIN'); Script.Add('UPDATE TEMP_EVAL_INT_GRAF_ADMIN'); Script.Add('SET ESTAB_NOMBRE = :NOMBRE'); Script.Add('WHERE CODIGO_DANE =:CODANE;'); Script.Add('SUSPEND;'); Script.Add('END^'); Script.Add('SET TERM ;^'); end; IBScript1.ExecuteScript; .......... |
#4
|
||||
|
||||
ok
Quieres CREAR ó LLAMAR un Proc. Almacenado ????
Por lo que veo quieres crearlo, pero tengo entendido que no es de esa forma para hacerlo para crear un store procedure yo lo hago por medio del IBExpert puedes bajartelo en www.ibexpert.com y si quieres llamarlo en la paleta de Interbase de delphi viene un componente ibStoredProc aqui puedes mandar a llamarlo. Saludos.... Última edición por AGAG4 fecha: 19-05-2005 a las 16:50:56. Razón: Corrección |
#5
|
||||
|
||||
resp
Aqui tienes un ejemplo
http://www.clubdelphi.com/foros/showthread.php?t=21477 Y para llamarlo simplemente has un select como si lo hiciera sobre uan tabla y si recibe prametro pasales en la llamada ejlp
__________________
Todo se puede, que no exista la tecnología aun, es otra cosa. |
#6
|
|||
|
|||
Si te entiendo, crearlo en la misma base de datos ya sea con el IBConsole, EMS, IBExpert, con cualquier programa que te permita crearlo, pero el problema es crearlo en tiempo de ejecución he alli el dilema
Gracias- |
|
|
|