ERRO ao executar stored procedure
[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
Curtidas 0
Respostas
Edjafa
07/11/2003
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;
GOSTEI 0