Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   procedimiento almacenado (https://www.clubdelphi.com/foros/showthread.php?t=59286)

JAI_ME 21-08-2008 15:52:11

procedimiento almacenado
 
buenas dias,
tengo una duda, la verdad no se si se pueda.

Necesito hacer un procedimiento almacenado que me diga si ya existe un cliente en mi tabla clientes, si no existe lo ingresa, de lo contrario lo edita.
tengo varios equipos en una vpn, para hacer los procesos mas optimos necesito hacer algo asi, es cuestion de velocidad.

// codigo dentro del procedimiento almacenado

Select IDcliente from cliente
from IDcliente = :ParIDCliente ---> ParIDCliente es un parametro.

if recordcount = 0 then
Guardar
else
Modificar;

Necesito saber si dentro de un procedimiento almacenado existe alguna funcion como el recordcount en delphi trabajo con firebird, o si existe alguna forma de hacerlo les agradesco de ante mano toda su ayuda y colaboracion.

ContraVeneno 21-08-2008 17:39:12

En SQL Server puedes utilizar la función EXISTS

JAI_ME 21-08-2008 17:45:01

hay alguna funcion en firebird ??

jorge82 21-08-2008 17:55:03

Hola, sólo se me ocurre lo siguiente:

Código SQL [-]
declare variable vCliente BigInt;

vCliente = null;
Select IDcliente from cliente
where IDcliente = :ParIDCliente
into vCliente;

if (vCliente = null) then-- Si es null, significa que no existe
Guardar;
else
Modificar;

Espero que te sirva. ;)

--
Un saludito.

JAI_ME 21-08-2008 21:11:40

si a simple vista parece muy logico, voy a probar este codigo y luego les cuento si me sirvio o no.
gracias

ozegarra 02-09-2008 16:24:58

para alguien que pueda necesitarlo...dentro del procedimiento almacenado

if (not exists
(Select IDcliente from cliente from IDcliente:ParIDCliente) then
begin
GUARDAR
else
MODIFICAR


La franja horaria es GMT +2. Ahora son las 03:33:51.

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