Erro Consulta ADOQuery

Delphi

08/04/2003

Tenho a seguinte query:

//Executa a Consulta
qry_CarregaDados.Close;
qry_CarregaDados.SQL.Clear;
qry_CarregaDados.SQL.Add(´SELECT *´);
qry_CarregaDados.SQL.Add(´ FROM Tabea WHERE ´);
qry_CarregaDados.SQL.Add(´Nome_Familia = :EVE and Nome_Classe = :EVE1´);
qry_CarregaDados.SQL.Add(´ ORDER BY Codigo ´);
qry_CarregaDados.Parameters.ParamByname(´EVE´).Value := edt_Familia.Text;
qry_CarregaDados.Parameters.ParamByname(´EVE1´).Value := edt_Classe.Text;
qry_CarregaDados.Open;

Quando executo dá um erro de Parâmetros insuficiêntes que Eram Esperados 3.


Anonymous

Anonymous

Curtidas 0

Respostas

Thales

Thales

08/04/2003

Tente fazero seguinte:

procedure.....
var
str1, str2, str3: string;

begin
//Executa a Consulta
qry_CarregaDados.Close;
qry_CarregaDados.SQL.Clear;
str1 := ´ SELECT * ´;
str2 := ´ FROM Tabea WHERE ´;
str3 := ´ Nome_Familia = :EVE and Nome_Classe = :EVE1 ´;
qry_CarregaDados.SQL.Add(str1 + str2 + str3+ ´ ORDER BY Codigo ´);
qry_CarregaDados.Parameters.ParamByname(´EVE´).Value := edt_Familia.Text;
qry_CarregaDados.Parameters.ParamByname(´EVE1´).Value := edt_Classe.Text;
qry_CarregaDados.Open;


GOSTEI 0
Anonymous

Anonymous

08/04/2003

Verifique a quantidade de paramentros da propriedade Parameters do camponente ADOQuery.


um abraço,
Rafael Helm.


GOSTEI 0
POSTAR