Fórum Ajudem por favor SQL Server 7.0 Filtragem #153468
09/04/2003
0
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
Curtir tópico
+ 0Posts
09/04/2003
Anonymous
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
09/04/2003
Anonymous
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
09/04/2003
Anonymous
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
09/04/2003
Anonymous
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
Clique aqui para fazer login e interagir na Comunidade :)