no se como hacer el Store Procedure

[[BlueSteel]]

Hola a todos...

Primero que nada quiero decir que he buscado musho en el foro y en otros lugares pero no logro entender

Actualmente tengo un sistema, en donde al agregar registro primero consulto si dicho registro ya esta ingresado.. todo esto con código SQL pero desde el cliente...

Código Delphi [-]
     If Key = #13 Then
        Begin
             IBQ_Edit.Close;
             IBQ_Edit.SQL.Clear;
             IBQ_Edit.SQL.Add('Select * From "Proveedor" Where "Pro_Rut"=:Var1');
             IBQ_Edit.Params[0].AsString := vRut.Text;
             IBQ_Edit.Open;
             If IBQ_Edit.Eof Then
                vRaz.SetFocus;
             Else
                Begin
                     ShowMessage('Ya fue registrado un proveedor con ese rut...');
                     vRut.Clear;
                     vRut.SetFocus;
                End;
        End;

ahora la idea es poder hacerlo con Store Procedure, por que según lei.. ahorra más tiempo.. ya que se ejecutan en el Servidor y no en el Cliente...


La idea es hacer una consulta aparentemente sencilla, en donde me diga si el proveedor que ingreso ya existe almacenado...

tambien quisiera saber como lo declaro desde delphi..

[[Lepe]]

De nuevo http://www.ibphoenix.com/main.nfs?a=..._documentation y www.firebird.com.mx en los pdf de interbase viene como hacerlo, además te recomiendo el IB Expert para crear los procedimientos almacenados.

Saludos

[ContraVeneno]

Lo que yo hago en esos casos, es determinar la llave en la tabla de la base de datos para que no se pueda duplicar le mismo número de proveedor.

despues:

try
 consulta sql: insert nuevo proveedor
except on EKeyViolation  then 
 "ya existe"

si defines bien tu llave, no será necesario un stored procedure para determinar si el registro ya existe, ya que si quieres guardar un registro duplicado, el DBA te dirá que hay una violación de llave primaria.