Como fazer uma busca caracter a caracter
21/12/2005
0
Chip_set
Posts
21/12/2005
Franthesco
eu uso um sql e faço assim:
var a,b,c: String;
begin
Query1.SQL.Clear;
a:=´Select * From TABELA ´;
b:=´Where CAMPO Like:Consulta ´;
c:=´Order By CAMPO´;
Query1.SQL.Add(a+b+c);
Query1.Params[0].AsString;
Query1.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
Query1.Close;
Query1.Open;
end;
É isso. Coloca no onchange, ou no onkeydown...
Vlw!
21/12/2005
Martins
begin Queryx.Close; Queryx.SQL.Clear; Queryx.Sql.Add(´Select * From TABELA Where CAMPO Like:Consulta Order By CAMPO´); Queryx.SQL.ParamByName(´Consulta´).AsString := ´¬´ + Editx.Text +´¬´ ; Queryx.Open; end;
Agora se vc tá usando table então tente assim no OnChange do Edit.
Tablex.FindNearest([Editx.Text]);
Boa Sorte!!!
21/12/2005
Chip_set
procedure TForm_agenda.Edit1Change(Sender: TObject);
var
OldStart : Integer;
begin
With Edit1 do
if Text <> ´´ then
begin
OnChange := NIL;
OldStart := SelStart;
Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
SelStart := OldStart;
OnChange := Edit1Change;
end;
bancos.IBT_agenda.FindNearest([edit1.text]); <<<< ta aqui o erro eu acho.
end;
21/12/2005
Martins
Com paradox pode funcionar na boa, mas se vc tá usando o IB, olhe o código em SQL que eu postei logo acima.
21/12/2005
Chip_set
21/12/2005
Martins
Sendo assim vc poderá usar então o código abaixo, veja.
IBTable1.Locate( ´Nome´, Edit1.Text, []);
ou
IBTable1.Locate( ´Nome´, Edit1.Text, [loPartialKey]);
O Locate vc poderá usar em qualquer campo (String, Inteiros, Float, Date) mesmo que estes não sejam campos chave ou indexados.
Boa Sorte!!
21/12/2005
Chip_set
[Error] fbm_agenda.pas(99): Undeclared identifier: ´loPartialKey´
eu ja havia tentado o locate só na sabia sobre lopartialkey o que significa ele apesar que deu erro. :(
21/12/2005
Martins
[code]
//Faz diferença se está em maiuscula ou minuscula
IBTable.Locate( ´nome´, edit1.text , [loCaseInsensitive] );
//Localiza por aproximação
IbTable.Locate( ´nome´, edit1.text , [loPartialKey] );
[code]
Posta o código q vc colocou aqui para eu ver.
21/12/2005
Chip_set
if key=13 then
begin
bancos.IBT_agenda.Locate(´nome´, edit1.text,[loPartialKey]);
end;
end;
:cry: :cry: :cry:
22/12/2005
Martins
:shock:
Nobre colega, tente com o código abaixo por favor!.
Esse código deve ser colocado no OnChange do Edit, assim quando vc começar a digitar o nome q deseja encontrar, não importa se em maiúscula ou minúscula ele te levará até o registro q satisfaça sua condição.
procedure TForm1.Edit1Change(Sender: TObject); begin //Localiza por aproximação sem fazer diferença se está em maiúscula ou minúscula IbTable1.Locate(´Nome´, Edit1.Text, [loPartialKey, loCaseInSensitive]); end;
Se com o código acima não funcionar como vc quer, então não entendi o q vc deseja.
Boa sorte!!
22/12/2005
Chip_set
[Error] fbm_agenda.pas(116): Undeclared identifier: ´loPartialKey´
[Error] fbm_agenda.pas(116): Undeclared identifier: ´loCaseInSensitive´
o código usado foi esse:
procedure TForm_agenda.Edit1Change(Sender: TObject);
begin
bancos.IBT_agenda.Locate(´Nome´, Edit1.Text, [loPartialKey, loCaseInSensitive]);
end;
eu ja olhei la no help do delphi e localizei as opções acima (lopartialkey) não consigo entender pq o erro retornado é undecared indentifier sendo que o mesmo é nativo do delphi. :cry: :cry: :cry:
22/12/2005
Martins
Nobre colega, coloque na Uses do seu form a seguinte unit [b:54c53fcc84]IBTable[/b:54c53fcc84], pois ela não existe em seu form, ao colocá-la, tudo funcionará perfeitamente.
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, IBTable, StdCtrls;
Boa Sorte!!!
22/12/2005
Chip_set
22/12/2005
Martins
:D
Relaxa!
Já poderiamos ter resolvido isso antes.
