[Resolvido] Como fazer uma busca de Nome e sobrenome?

[wilsoncrescencio 1]

Delphi7 + Zeos + MySql

 

Eu tenho na tabela aluno dois campos:

Nome e sobrenome...

 

Em botão de busca fiz assim:

procedure TF_Simulado_pontos.Button2Click(Sender: TObject);
begin
if not dm1.ZT_aluno.Locate('nome',Editnome.Text,[loCaseInsensitive, loPartialKey]) then
	   ShowMessage('Nome de aluno não encontrado!');

end;

Só que eu preciso que a busca seja por nome e sobrenome.

 

Como devo fazer?

[marcio.theis 3]

Seguinte, pode tentar desta forma:

 

 

if not dm1.ZT_aluno.Locate('nome;sobrenome',VarArrayOf([EditNome.Text,EditSobreNome.Text]),[loCaseInsensitive, loPartialKey]) then
	  ShowMessage('Nome de aluno não encontrado!');

Declare ainda no uses: Variants

[wilsoncrescencio 1]

Olá Márcio...

Deu certo... muito obrigado...

Tópico encerrado

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif