Executar Stored Procedure IB no Delphi como.
05/12/2003
0
Olá galera,
Seguinte gostaria de saber como faço pra executar a stored procedure do IB no delphi, escolhendo um dos ´TIPO´, segue abaixo a stored procedure criada:
Então por exemplo se eu escolho o ´TIPO 1´ como faço no Delphi, é que eu aprendi no SQL Server de um jeito, como vou trabalho com o IB6 não seu como fazer. Pode ser um exemplo basico por exemplo usando o ´TIPO 1´ que me viro.
Abraços a Comunidade do Forum ClubeDelphi
Sandro C. Oliveira
Seguinte gostaria de saber como faço pra executar a stored procedure do IB no delphi, escolhendo um dos ´TIPO´, segue abaixo a stored procedure criada:
/* Procedure GERCLIENTE */
CREATE PROCEDURE GERCLIENTE (
TIPO CHAR(1),
CLI_ID INTEGER,
CLI_NOME VARCHAR(60),
CLI_ENDERECO VARCHAR(60),
CLI_BAIRRO VARCHAR(30),
CLI_CIDADE VARCHAR(30),
CLI_UF VARCHAR(2)
) AS
BEGIN
[color=red:69859b2518][b:69859b2518]IF (:TIPO = ´1´) THEN[/b:69859b2518][/color:69859b2518]
BEGIN
INSERT INTO ´CLIENTE´(´CLI_NOME´,´CLI_ENDERECO´,´CLI_BAIRRO´,´CLI_CIDADE´,´CLI_UF´) VALUES
(:CLI_NOME,:CLI_ENDERECO,:CLI_BAIRRO,:CLI_CIDADE,:CLI_UF);
END
[color=red:69859b2518][b:69859b2518]IF (:TIPO = ´2´) THEN[/b:69859b2518][/color:69859b2518]
BEGIN
UPDATE ´CLIENTE´ SET ´CLI_NOME´=:CLI_NOME,
´CLI_ENDERECO´=:CLI_ENDERECO,
´CLI_BAIRRO´=:CLI_BAIRRO,
´CLI_CIDADE´=:CLI_CIDADE,
´CLI_UF´=:CLI_UF
WHERE ´CLI_ID´=:CLI_ID;
END
[color=red:69859b2518][b:69859b2518]IF (:TIPO = ´3´) THEN [/b:69859b2518][/color:69859b2518]
BEGIN
DELETE FROM ´CLIENTE´ WHERE ´CLI_ID´=:CLI_ID;
END
END
---
Então por exemplo se eu escolho o ´TIPO 1´ como faço no Delphi, é que eu aprendi no SQL Server de um jeito, como vou trabalho com o IB6 não seu como fazer. Pode ser um exemplo basico por exemplo usando o ´TIPO 1´ que me viro.
Abraços a Comunidade do Forum ClubeDelphi
Sandro C. Oliveira
Garas-man
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)