(Resolvido) Consulta SQL Erro EOleException

[Geomar Canjundo]

Olá Pessoal,

Estou tentando fazer uma consulta (AdoQuery e SQL SERVER) na qual me vai gerando a o seguinte erro:

"EOleException with Message: sp_cursoropen/sp_cursorprepare: The statement can only be a batch or a stored procedure with a single select, without FOR BROWSE, COMPUTE BY, or variable assignements "

A consulta é a seguinte

procedure AdicionaAoStockLoja(produto:Integer);
  begin
     With ModuloDados.QryStockLoja do
   begin
     Close;
     SQL.Add('SELECT L.*, C.DESCRICAO AS DS_CATEGORIA FROM COM_STOCK_LOJA L ,  OFI_CATEGORIAS C,');
     SQL.Add(' COM_PECAS P, SYS_EMPRESAS E WHERE L.CODIGO = '+ IntToStr(produto));
     SQL.Add(' AND L.CODIGO_CATEGORIA = P.CODIGO_CATEGORIA AND P.CODIGO_CATEGORIA = C.CODIGO AND');
     SQL.Add(' L.CODIGO_EMPRESA = E.CODIGO ORDER BY L.DESCRICAO ');
     Open;
end;

[Jhonas]

"EOleException with Message: sp_cursoropen/sp_cursorprepare: The statement can only be a batch or a stored procedure with a single select, without FOR BROWSE, COMPUTE BY, or variable assignements "

Erro: sp_cursoropen/sp_cursorprepare: A declaração só pode ser um lote ou um procedimento armazenado com uma única escolha, sem FOR BROWSE, COMPUTE BY, ou variável atribuida

reveja a sua declaração ... e atente para a mensagem de erro

abraço

[Geomar Canjundo]

"EOleException with Message: sp_cursoropen/sp_cursorprepare: The statement can only be a batch or a stored procedure with a single select, without FOR BROWSE, COMPUTE BY, or variable assignements "

Erro: sp_cursoropen/sp_cursorprepare: A declaração só pode ser um lote ou um procedimento armazenado com uma única escolha, sem FOR BROWSE, COMPUTE BY, ou variável atribuida

reveja a sua declaração ... e atente para a mensagem de erro

abraço

Jhonas, Confesso-te sinceramente que percebi nada da sua explicação.

[Progr'amador]

Olá Geomar,

tente fazer assim:

procedure AdicionaAoStockLoja(produto:Integer);
  begin
     With ModuloDados.QryStockLoja do
   begin
     Close;
     SQL.Add('SELECT L.*, C.DESCRICAO AS DS_CATEGORIA FROM COM_STOCK_LOJA L ,  OFI_CATEGORIAS C,');
     SQL.Add(' COM_PECAS P, SYS_EMPRESAS E WHERE L.CODIGO = '+''''+IntToStr(produto)+''''+'');
     SQL.Add(' AND L.CODIGO_CATEGORIA = P.CODIGO_CATEGORIA AND P.CODIGO_CATEGORIA = C.CODIGO AND');
     SQL.Add(' L.CODIGO_EMPRESA = E.CODIGO ORDER BY L.DESCRICAO ');
     Open;
end;

ou assim:

SQL.Add('SELECT L.*, C.DESCRICAO AS DS_CATEGORIA FROM COM_STOCK_LOJA L ,  OFI_CATEGORIAS C,');
     SQL.Add(' COM_PECAS P, SYS_EMPRESAS E WHERE L.CODIGO = :produto');
     SQL.Add(' AND L.CODIGO_CATEGORIA = P.CODIGO_CATEGORIA AND P.CODIGO_CATEGORIA = C.CODIGO AND');
     SQL.Add(' L.CODIGO_EMPRESA = E.CODIGO ORDER BY L.DESCRICAO ');
     Parameters.ParamValues['produto'] := produto;
     Open;
end;

Abs. Progr'amador

Editado Junho 10, 2011 por Progr'amador

[Geomar Canjundo]

Olá Geomar,

tente fazer assim:

procedure AdicionaAoStockLoja(produto:Integer);
  begin
     With ModuloDados.QryStockLoja do
   begin
     Close;
     SQL.Add('SELECT L.*, C.DESCRICAO AS DS_CATEGORIA FROM COM_STOCK_LOJA L ,  OFI_CATEGORIAS C,');
     SQL.Add(' COM_PECAS P, SYS_EMPRESAS E WHERE L.CODIGO = '+''''+IntToStr(produto)+''''+'');
     SQL.Add(' AND L.CODIGO_CATEGORIA = P.CODIGO_CATEGORIA AND P.CODIGO_CATEGORIA = C.CODIGO AND');
     SQL.Add(' L.CODIGO_EMPRESA = E.CODIGO ORDER BY L.DESCRICAO ');
     Open;
end;

ou assim:

SQL.Add('SELECT L.*, C.DESCRICAO AS DS_CATEGORIA FROM COM_STOCK_LOJA L ,  OFI_CATEGORIAS C,');
     SQL.Add(' COM_PECAS P, SYS_EMPRESAS E WHERE L.CODIGO = :produto');
     SQL.Add(' AND L.CODIGO_CATEGORIA = P.CODIGO_CATEGORIA AND P.CODIGO_CATEGORIA = C.CODIGO AND');
     SQL.Add(' L.CODIGO_EMPRESA = E.CODIGO ORDER BY L.DESCRICAO ');
     Parameters.ParamValues['produto'] := produto;
     Open;
end;

Abs. Progr'amador

Progr'amador,

Tentei as duas opções e continuo recebendo o mesmo erro.

[Jhonas]

voce esta usando uma stored procedure ( sp_cursoropen/sp_cursorprepare )

o erro refere-se: que voce deve usar uma stored procedure com uma única escolha

abraço

[Geomar Canjundo]

voce esta usando uma stored procedure ( sp_cursoropen/sp_cursorprepare )

o erro refere-se: que voce deve usar uma stored procedure com uma única escolha

abraço

Jhonas pode dar uma luz de como fazer stored procedure com uma única escolha?

[Jhonas]

veja

http://www.planetadelphi.com.br/delphi/apo...os/00003126.zip

abraço

[Geomar Canjundo]

Viva Amigos,

Mais uma vez devo agradecer a vossa prestabilidade.

Consegui superar o erro gerado pela consulta da seguinte forma:

Em vez de fazer a consulta no AdoQuery, fiz directamente na Base dados mediante Stored Procedure, adicionei um componente TAdoStoredProc e chamei a procedure a partir daí... Funcionou perfeitamente.

Valeu!!!