Fórum Busca não exata #322017
24/05/2006
0
Olha como to fazendo:
user.Close;
user.SQL.Clear;
user.SQL.Add(´SELECT Nome,Cpf,Tel,DDD_Tel´);
user.SQL.Add(´FROM Clientes´);
user.SQL.Add(´WHERE Nome LIKE ´ + QuotedStr(´¬´ + Edit1.Text + ´¬´));
user.SQL.Add(´Order By Nome´);
user.Open;
if (user.Fields.FieldByName(´Nome´).Value=edit1.Text)then
begin
ShowMessage(´Cliente encontrado!´);
DBGrid1.DataSource:=DataSource3;
end
else
ShowMessage(´CLiente não encontrado!´);
Tiago_hs
Curtir tópico
+ 0Posts
24/05/2006
Rjun
Gostei + 0
24/05/2006
Maiconseccatto
if (user.RecordCount > 0)then
begin
ShowMessage(´Foram encotrados ´+inttostr(user.RecordCount)+´ com o nome ´+edit1.text);
DBGrid1.DataSource:=DataSource3;
end
else
ShowMessage(´Não foi encotrado nenhuma ocorrencia com o nome ´+edit1.text);
Gostei + 0
24/05/2006
Mordred
user.Close; user.SQL.Clear; user.SQL.Add(´SELECT Nome,Cpf,Tel,DDD_Tel FROM Clientes WHERE Nome CONTAINING ´ + QuotedStr(Edit1.Text))+´ Order By Nome´); user.Open; ou seja, SELECT * FROM TABELA WHERE CAMPO CONTAINING ´TESTE´
Gostei + 0
24/05/2006
Tiago_hs
Caso tenha 2 nomes aparece os 2!
>>>>>>>>>>>>>>>maiconseccatto
ta funcinou mas no else n rodou mais.
>>>>>>>>>>>>>>>Mordred
deu erro de sintax lembrando q eu uso o SQL Server por OLE!
Gostei + 0
24/05/2006
Maiconseccatto
nessa linha aqui
user.SQL.Add(´WHERE Nome LIKE ´ + QuotedStr(´¬´ + Edit1.Text + ´¬´));
tente fazer assim
user.SQL.Add(´WHERE Nome LIKE ´ + QuotedStr( Edit1.Text + ´¬´));
Abraços
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)