Busca em campo Dbmemo
Eu gostaria de fazer + ou - assim:
if ComboBox2.Text=´Por Nome´then begin
Query1.SQL.Clear;
a:=´Select * From Teste ´;
b:=´Where Nome Like:Consulta ´;
c:=´Order By Nome´;
Query1.SQL.Add(a+b+c);
Query1.Params[0].AsString;
Query1.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit2.Text+´¬´;
Query1.Close;
Query1.Open
Porém meu campo é dbmemo e não consigo criar um índice para fazer um sistema de busca dentro do dbmemo, nem sei se é possível criar índice.
if ComboBox2.Text=´Por Nome´then begin
Query1.SQL.Clear;
a:=´Select * From Teste ´;
b:=´Where Nome Like:Consulta ´;
c:=´Order By Nome´;
Query1.SQL.Add(a+b+c);
Query1.Params[0].AsString;
Query1.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit2.Text+´¬´;
Query1.Close;
Query1.Open
Porém meu campo é dbmemo e não consigo criar um índice para fazer um sistema de busca dentro do dbmemo, nem sei se é possível criar índice.
Norotico
Curtidas 0
Respostas
Sam
05/11/2003
Amigão creio que o caminho seja esse mesmo, mas vc utiliza o método ´PRA QUE FACILITAR SE A GENTE PODE COMPLICAR´, he he he brincadeira, eu faço assim colocando as clausulas diretamente sem utilizar PARAMETROS:
Qry.Sql.clear
Qry.Sql.Add(´Select * from teste´);
Qry.Sql.Add(´Where (CampoMemo Like ´¬´+EditConsulta.text+´¬´)´);
Qry.Active := true;
Abraços !!!
Qry.Sql.clear
Qry.Sql.Add(´Select * from teste´);
Qry.Sql.Add(´Where (CampoMemo Like ´¬´+EditConsulta.text+´¬´)´);
Qry.Active := true;
Abraços !!!
GOSTEI 0