Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-07-2007
Saltamontes Saltamontes is offline
Registrado
 
Registrado: dic 2006
Posts: 6
Poder: 0
Saltamontes Va por buen camino
Cual es la forma correcta de llamar y ejecutar un ProcAlmacenado en IB6 y Delphi 7???

Buenos(as) DIas/Tardes/Noches

Estoy trabajando en un proyectito con Delphi7 e InterBase 6, la cosa es que intento ejecutar un procedimiento almancenado y me salen errores al momento de ejecutarlo desde el delphi, porque no me muestran errores de sintaxis, el codigo del query en Delphi es:
Código Delphi [-]
pinventario := txt_inventario.Text; 
pmarca := txt_marca.Text; 
pmodelo := txt_modelo.Text; 
pserie := txt_serie.Text; 
pdescripcion := txt_descripcion.Text; 
pprecio := strToFloat(txt_precio.Text); 
pedofunc := txt_edofunc.Text; 
ptitular := txt_titular.Text; 
pfecha := DateToStr(DTPfecha.Date); 
pidArea := DBLCBox_Areas.KeyValue; 
DM.IBQ_Inventario.Close;
DM.IBQ_Inventario.SQL.Clear;
DM.IBQ_Inventario.SQL.Add('execute procedure PR_Ins_InvCatArea("' + pinventario + '"," + pmarca + "," + pmodelo + "," + pdescripcion + "," + pprecio + "," + pedofunc + "," + pfecha + "," + pidArea + "," + ptitular + ")');
DM.IBQ_Inventario.ExecSQL;
DM.IBQ_Inventario.Open;
y el procedimiento hecho en el InterBAse 6 es:
Código Delphi [-]
set term !!;
create procedure PR_Ins_InvCatArea(pinventario VARCHAR(12),pmarca VARCHAR(20),pmodelo VARCHAR(20),pserie VARCHAR(20),pdescripcion VARCHAR(50), pprecio FLOAT, pedofunc VARCHAR(15), pfechainv DATE, pidArea integer ,pdepositario VARCHAR(70))
as
  declare variable vidInventario integer;
Begin
insert into Inventario (Inventario,Marca,Modelo,Serie, Descripcion, Precio,EdoFuncional, Fecha_Inv)
          VALUES(:qinventario,:qmarca,:qmodelo,:qserie,:qdescripcion,:qprecio,:qedofunc,:qfechainv);

  select idInventario from Inventario where Inventario = :qinventario into :vidInventario;
  insert into Inv_CatAreas VALUES(:qidArea,:vidInventario,:qdepositario);
End!!
set term ;!!
y ya lo ejecute en el Interbase y si se deja, pero desde delphi no,
inclusive intente "insert into PR_Ins_InvCatArea VALUES(parametros)"
y pos tampoco.

Les agradezco su tiempo y la asesoria que me puedan brindar.
Sales pues
Nos vemos

Última edición por Saltamontes fecha: 08-07-2007 a las 14:31:51.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Cómo utilizar consultas con DISTINCT de forma correcta dec MySQL 9 19-09-2006 17:50:47
cual es la sintaxis correcta de ini_set para mandar mail sakuragi PHP 3 14-11-2005 15:24:43
cual es la mejor forma ? martita Varios 14 07-07-2005 19:35:55
Cual es la Forma Correcta de Guardar Texto en un IbDataset con TcpServer???? AGAG4 Varios 0 10-12-2004 22:14:41
Forma correcta de emigrar base de datos.. ronimaxh Firebird e Interbase 5 07-04-2004 23:34:38


La franja horaria es GMT +2. Ahora son las 17:17:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi