Fórum Nova Dúvida com sistema de pesquisa #251214

20/09/2004

0

Olá Pessoal, tô com uma Dúvida.
É o Seguinte:
Se você observar bem, quando se esta dentro do begin de uma Procedure, e se começa a digitar um, código como por exemplo: FindNearest

Procedure ...
Begin
Table1.FindN(Procedure FindNearest
Function FindNext)
end;


Se observa que quando se digita o código acima, a cada letra inserida como por exemplo:
F,i,n,d,n,e,... o Delphi lista uma série de opções tais como o exemplo acima e a cada inserção, esta lista de opções vai se diminuindo.

O que eu queria era que ao digitar o nome de um determinado paciente num campo paciente DBEdit, como por exemplo: Carlos Alberto, a cada inserção de letras C,a,r,l,o,s,A,l,b,e,r,t,o, fosse feita uma pesquisa na tabela de pacientes e a cada inserção fosse listada uma série de nomes cadastrados seguindo a ordem alfabetica para que se possa selecionar, como no exemplo do procedure dado a cima.

Me aconselharam usar o seguinte código no evento change de um ComboBox:

QueryPacientes.Close;
QueryPacientes.SQL.Clear;
QueryPacientes.SQL.Add(´Select nome From Pacientes´);
QueryPacientes.Open;

QueryPacientes.first;
while not QueryPacientes.EOF do
begin
ComboBox1.Items.Add(VarToStr(QueryPacientes.Fields[0].value));
QueryPacientes.Next;
end;

Funcionou bem, porem com CombBox eu não consigo ligar Datasource para depois usar o DBNavigator e enviar este dado em outra Tabela MySql.
Daí preciso alterar este codigo para ser usado no DBEdit.

Estou usando:
Delphi 7
MySql 4.0.14b
Windows XP Professional

Obrigado por mais esta ajuda pessoal.


Carcleo

Carcleo

Responder

Posts

20/09/2004

Paulo_amorim

Olá

Talvez seja melhor vocÊ usar:

Select * from pacientes where nome_pac like :parametro

Assim diminui sua pesquisa aos poucos...

Espero que ajude
Até+


Responder

Gostei + 0

20/09/2004

Carcleo

Legal mas como vou fazer com que o combobox envie dados para outra tabela que nao seja a que ele esta usando na pesquiza.
Obs. por isso eu querias o codigo para DBEdit pois nele eu sei enviar dados.
Obrigado.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar