Ajudem por favor SQL Server 7.0 Filtragem

Delphi

09/04/2003

eu usava com o paradox e dava certo, agora estou usando o SQL Server 7.0 e dá
a seguinte mensagem ´qryCargo: Parameter ´Consulta´ not found.

o que será o erro. pois o Consulta estou dizendo que é do tipo string.
o que pode ser.

procedure TfrmCons_Cargos.edtConsCargoChange(Sender: TObject);
var
a,b,c:string;
begin
if qrycargo.RecordCount<> 0 then
begin
qryCargo.SQL.Clear;
a:=´Select * From Cargos´;
b:=´Where Cargo Like :Consulta´;
c:=´Order By Cargo´;
qryCargo.SQL.Add(a+b+c);
qryCargo.Params[0].AsString;
qryCargo.ParamByName(´Consulta´).AsString:=´´+´¬´+EdtConsCargo.Text+´¬´;
qryCargo.Close;
qryCargo.Open
end


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

09/04/2003

procedure TfrmCons_Cargos.edtConsCargoChange(Sender: TObject); 
var 
a,b,c:string; 
begin 
if qrycargo.RecordCount<> 0 then 
begin 
qryCargo.SQL.Clear; 
a:=´Select * From Cargos´; 
b:=´Where Cargo Like :Consulta´; 
c:=´Order By Cargo´; 
qryCargo.Close; 
qryCargo.SQL.Add(a+b+c); 
qryCargo.ParamByName(´Consulta´).AsString:=´´+´¬´+EdtConsCargo.Text+´¬´; 
qryCargo.Open 
end



GOSTEI 0
Anonymous

Anonymous

09/04/2003

procedure TfrmCons_Cargos.edtConsCargoChange(Sender: TObject); 
var 
a,b,c:string; 
begin 
if qrycargo.RecordCount<> 0 then 
begin 
qryCargo.SQL.Clear; 
a:=´Select * From Cargos´; 
b:=´Where Cargo Like :Consulta´; 
c:=´Order By Cargo´; 
qryCargo.Close; 
qryCargo.SQL.Add(a+b+c); 
qryCargo.ParamByName(´Consulta´).AsString:=´¬´+EdtConsCargo.Text+´¬´; 
qryCargo.Open 
end


Agora sim.

[]´s


GOSTEI 0
Anonymous

Anonymous

09/04/2003

Alan,

Você não precisa abrir a query todas as vezes que o conteúdo da caixa de texto for alterada.
Se a query já estiver aberta, pode-se trabalhar com filtro, o que é muito mais rápido pois é feito na estação local, não precisando trazer as informações do banco novamente.
Se precisares continuar trabalhando desta maneira, podes fazer o seguinte


[quote=´Alan Diego´]eu usava com o paradox e dava certo, agora estou usando o SQL Server 7.0 e dá
a seguinte mensagem ´qryCargo: Parameter ´Consulta´ not found.

o que será o erro. pois o Consulta estou dizendo que é do tipo string.
o que pode ser.

procedure TfrmCons_Cargos.edtConsCargoChange(Sender: TObject);
begin
qryCargo.Close;
qryCargo.SQL.Clear;
a:=´Select * From Cargos´;
b:=´Where Cargo Like :Consulta´;
c:=´Order By Cargo´;
qryCargo.SQL.Add(´SELECT *´);
qryCargo.SQL.Add(´ FROM CARGOS´);
qryCargo.SQL.Add(´ WHERE CARGO LIKE ´ + QuotedStr(´¬´ + EdtConsCargo.Text + ´¬´));
qryCargo.Open;
end;


GOSTEI 0
Anonymous

Anonymous

09/04/2003

Concordo contigo, fica muito mais simples.

procedure TfrmCons_Cargos.edtConsCargoChange(Sender: TObject);
begin
qryCargo.Close;
qryCargo.SQL.Clear;
qryCargo.SQL.Add(´SELECT *´);
qryCargo.SQL.Add(´ FROM CARGOS´);
qryCargo.SQL.Add(´ WHERE CARGO LIKE ´ + QuotedStr(´¬´ + EdtConsCargo.Text + ´¬´));
qryCargo.Open;
end;


GOSTEI 0
POSTAR