Fórum ERRO ao executar stored procedure #193466
07/11/2003
0
[b:5ed8adbc32][color=red:5ed8adbc32]Tenho a seguinte procedure no sql server[/color:5ed8adbc32][/b:5ed8adbc32]
CREATE PROCEDURE SELECAO @DATACAD CHAR(3)
AS
IF @DATACAD <> ´´
BEGIN
SELECT * FROM CADASTRO WHERE DATACADASTRO = @DATACAD
END
[color=red:5ed8adbc32][b:5ed8adbc32]FAÇO ESTA CHAMADA NO PROGRAMA[/b:5ed8adbc32][/color:5ed8adbc32]
procedure TForm1.SpeedButton1Click(Sender: TObject);
VAR DATA,DATACAD: STRING;
begin
DATA:=inputbox(´DATA´,´Digite a DATA para a pesquisa´,´´);
DATACAD:= COPY(DATA,4,2)+´/´+COPY(DATA,1,2)+´/´+COPY(DATA,7,4);
WITH QUERYPROC DO
BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD(´EXEC SELECAO ´+QUOTEDSTR(DATACAD));
OPEN;
END;
end;
E ESTÁ DANDO ERRO..
TOKEN NOT FOUND
TOKEN: EXEC
ONDE ESTOU ERRANDO?
CREATE PROCEDURE SELECAO @DATACAD CHAR(3)
AS
IF @DATACAD <> ´´
BEGIN
SELECT * FROM CADASTRO WHERE DATACADASTRO = @DATACAD
END
[color=red:5ed8adbc32][b:5ed8adbc32]FAÇO ESTA CHAMADA NO PROGRAMA[/b:5ed8adbc32][/color:5ed8adbc32]
procedure TForm1.SpeedButton1Click(Sender: TObject);
VAR DATA,DATACAD: STRING;
begin
DATA:=inputbox(´DATA´,´Digite a DATA para a pesquisa´,´´);
DATACAD:= COPY(DATA,4,2)+´/´+COPY(DATA,1,2)+´/´+COPY(DATA,7,4);
WITH QUERYPROC DO
BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD(´EXEC SELECAO ´+QUOTEDSTR(DATACAD));
OPEN;
END;
end;
E ESTÁ DANDO ERRO..
TOKEN NOT FOUND
TOKEN: EXEC
ONDE ESTOU ERRANDO?
Eric.miranda
Curtir tópico
+ 0
Responder
Posts
07/11/2003
Edjafa
Utilize os seguintes comandos:
Queryproc.close;
Queryproc.SQL.clear;
Queryproc.SQL.Add(´Execute SELECAO ´+QUOTEDSTR(DATACAD));
Queryproc.execsql;
Queryproc.close;
Queryproc.SQL.clear;
Queryproc.SQL.Add(´Execute SELECAO ´+QUOTEDSTR(DATACAD));
Queryproc.execsql;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)