[Ledian_Fdez]

Hola amigos de este foro:

Trabajo con delphi7 y la BD es en Microsoft Office Access 2003, me conecto a través de ADO. Intento hacer la siguiente consulta o algo similar pero me da error. podrían ayudarme por favor.

CREATE PROCEDURE Actualiza
@OldCod VARCHAR(2),
@Cod VARCHAR(2),

AS

Código SQL [-]
IF (@OldCod <> @Cod )
  BEGIN
     UPDATE Tipo
     SET Codigo = :Cod,
             Descripcion= escrip
      WHERE Codigo = :OldCod
  END
ELSE
  BEGIN
     UPDATE Tipo
     SET Descripcion= escrip
      WHERE Codigo = :OldCod
  END

GO

gracias de antemano,
salu2,
Ledian.