[Resolvido] para usar a função Locate...

[wilsoncrescencio 1]

Olá pessoal... estive afastado desta área... por necessidade....

 

O afastamento do Delphi e me esquecer algumas coisas, para que isso funcione:

 

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

eu tenho que declarar alguma função ou coisa parecida em algum lugar?

[marcio.theis 3]

Dessa forma deveria de funcionar ?

Esta tendo algum problema com o comando ? Qual o erro exibido...

[wilsoncrescencio 1]

Olá Márcio... é um grande prazer poder "falar" com você

Sim... estou com dois erros um para localizar o regitro na tabela do BD e outro para gravar a data de forma automática...

as minhas linhas de código são:

 

procedure TFSimullado.lancariumClick(Sender: TObject);
begin
dm1.tab_simulado.FieldByName('data').AsDate:=now;//gravação da data automaticamente
end;

procedure TFSimullado.Button3Click(Sender: TObject);
 begin
if not dm1.tab_alunonome.Locate('nome',Editnome.Text,[loCaseInsensitive, loPartialKey]) then
	   ShowMessage('Nome de aluno não encontrado!');//localizar o nome do aluno

As mensagens de erro:

[Error] Usimulado.pas(183): Undeclared identifier: 'AsDate'
[Error] Usimulado.pas(352): Undeclared identifier: 'Locate'
[Fatal Error] Projeto_Simulado.dpr(6): Could not compile used unit 'Usimulado.pas'

Obrigado novamente pela prestimosidade...

[marcio.theis 3]

Para o primeiro caso, tente colocar somente .Value:

dm1.tab_simulado.FieldByName('data').Value:=now;//gravação da data automaticamente

Para o segundo comando, qual é a paleta de componentes que esta usando ? E qual componente é tab_alunonome ?

[wilsoncrescencio 1]

Delphi7 - AdoConnection - ACCESS

 

No primeiro caso já se tornou funcional... ok... O VALUE funcionou perfeitamente http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

 

Para o segundo comando estou utilizando um TEdit onde o texto(nome do aluno) será digitado e um Tbutom com o código para busca na tabela tab_aluno.

[marcio.theis 3]

Putz, agora vi o problema, você esta colocando tab_alunonome, precisa somente colocar tab_aluno, ou seja, somente o nome da tabela... testa ai:

 

if not dm1.tab_aluno.Locate('nome',Editnome.Text,[loCaseInsensitive, loPartialKey]) then
	   ShowMessage('Nome de aluno não encontrado!');//localizar o nome do aluno

Ah... E bem vindo novamente ao fórum... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[wilsoncrescencio 1]

Nossa... que cabeça dinossauro que eu sou... também nem me toquei... http://forum.imasters.com.br/public/style_emoticons/default/sick.gif

Agora funcionou....

 

Muito obrigado... jovem mestre... http://forum.imasters.com.br/public/style_emoticons/default/worshippy.gif

[marcio.theis 3]

:huh: beleza... bom que deu certo... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[wilsoncrescencio 1]

Muito obrigado novamente.... tópico encerrado!