Consulta SQL

Question

Gostaria de saber como fa�o para fazer uma consulta �incremental� ou seja o cara vai digitando no Edit e vai aparecendo no BDGrid conforme as letras que ele for digitando. Estou usando o banco InterBase e para fazer o conexao com o delphi estou usando os componentes da paleta DBExpress.

Agrade�o desde j�

Peninha · Answer

Amigo _celo, � + ou - assim.No evento OnkeyUp do seu edit use  seguinte c�digo:[code:1:151ac1a482]   DmBasedados.IBTab_Cliente.Locate(�Nome_cliente�,varArrayOf(&#91;EdtPesquisa.Text&93;),&91;LopartialKey&93;)[/code:1:151ac1a482] No evento OnkeyDown do seu form declare este c�digo:[code:1:151ac1a482] If (Key = VK_RETURN) Then      Perform(WM_NEXTDLGCTL,0,0);[/code:1:151ac1a482]Coloque na clausula Uses da Unit �DB� que � para vc poder usar o lopartialkey.No primeiro c�digo peguei um c�digo completo do meu programa, � so vc adptar para o seu.Qualquer coisa me envie um e-mail que eu te ajudo.Erivan....

Emersonclubedelphi · Answer

[quote:e566590600=�peninha�]Amigo _celo, � + ou - assim.No evento OnkeyUp do seu edit use  seguinte c�digo:[code:1:e566590600]   DmBasedados.IBTab_Cliente.Locate(�Nome_cliente�,varArrayOf(&#91;EdtPesquisa.Text&93;),&91;LopartialKey&93;)[/code:1:e566590600] No evento OnkeyDown do seu form declare este c�digo:[code:1:e566590600] If (Key = VK_RETURN) Then      Perform(WM_NEXTDLGCTL,0,0);[/code:1:e566590600]Coloque na clausula Uses da Unit �DB� que � para vc poder usar o lopartialkey.No primeiro c�digo peguei um c�digo completo do meu programa, � so vc adptar para o seu.Qualquer coisa me envie um e-mail que eu te ajudo.Erivan.[/quote:e566590600]Muito embora esta resposta esteja correta, n�o acho muito vi�vel voc� fazer isso, pois ter� um queda muito grande de performance na rede como um todo, principalmente se for banco de dados muito grande, o correto � vc usar sql e fazer uma pesquisar exata.t+...

_celo · Answer

Est� dando o seguinte erro:SQLTable1: Cannot Perform this operation on a closed dataset.Emerson como � que fa�o por SQL?...

Gandalf.nho · Answer

Voc� est� com o Table aberto?...

_celo · Answer

Como fa�o para abri-lo?...

Gandalf.nho · Answer

SQLTable1.Active = TrueouSQLTable1.Open;...

_celo · Answer

procedure TForm2.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
DM.SQLTable1.Locate(�Nome�,varArrayof([Edit1.Text]),[LopartialKey])
end;

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Key = VK_RETURN) Then
Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
Consulta.Locate(�Nome�, Edit1.Text, [loCaseInsensitive, loPartialKey]);
end;

Onde Colocaria o SQLTable1.open ?

Paulo_amorim · Answer

Ol�Antes de qualquer desses eventos. Talvez no FormShow...Ou ent�o, nesses eventos mesmo, com o c�digo[code:1:bf240c7733]if not Table.Active thenbegintry  Table.Open;except  ShowMessage(�Oops�);end;end;[/code:1:bf240c7733]...

Peninha · Answer

Paulo, gostei da sua dica irei trocar os c�digos das minhas pesquisas.Obrigado, Erivan....

_celo · Answer

J� tentei de tudo q � jeito mas num to conseguindo. Fazer a pesquisa Incremental

No evento OnKeyUp coloquei esse procedimento:

begin
if not DM.SQLTable1.Active then
begin
try
DM.SQLTable1.Open;
DM.SQLTable1.Locate(�Nome�,varArrayof([EdtConsultaNome.Text]),[LopartialKey]);
except
ShowMessage(�Oops�);
end;
end;
end;

No evento OnKeyDown do form coloquei esse procedimento:

begin
If (Key = VK_RETURN) Then
Perform(WM_NEXTDLGCTL,0,0);
end;
end.

Mas na execucao na hora da que digito no Edt nao aparece nada. Estou ligando o DBGrid no DataSource, O DataSouce no ClienteDataSet o ClienteDataSet no DataSetProvider e o DataSetProviner no SQLQuery

O que tem de errado? Agrade�o desde j� Marcelo :(

F�rum Consulta SQL #262008