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.
É 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
Curtir tópico
+ 0
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é+
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.
Obs. por isso eu querias o codigo para DBEdit pois nele eu sei enviar dados.
Obrigado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)