Pesquisa/Consulta em ADO com Access 2000
18/07/2004
0
Gostaria de saber o que substitui em ADO o SetKey e FindKey.
Pois quero realizar uma pesquisa em ADO só que com FindKey e SetKey, não consigo, se poderem me mandar um exemplo de como posso fazer uma consulta/Pesquisa em ADO e que tambem substitua o exemplo abaixo, eu agradeço.
Desde já OBRIGADO
Dm.TbManifesto.SetKey;
Dm.TbManifesto.FieldByName(´CMAN_MAN´).AsString := Trim(EdtManif.Text);
if not Dm.TbManifesto.FindKey([Trim(EdtManif.Text)]) then
begin
TOper := ´I´;
MskCMot.Enabled := True;
end;
Pois quero realizar uma pesquisa em ADO só que com FindKey e SetKey, não consigo, se poderem me mandar um exemplo de como posso fazer uma consulta/Pesquisa em ADO e que tambem substitua o exemplo abaixo, eu agradeço.
Desde já OBRIGADO
Dm.TbManifesto.SetKey;
Dm.TbManifesto.FieldByName(´CMAN_MAN´).AsString := Trim(EdtManif.Text);
if not Dm.TbManifesto.FindKey([Trim(EdtManif.Text)]) then
begin
TOper := ´I´;
MskCMot.Enabled := True;
end;
![Canastra Canastra](https://www.devmedia.com.br/imagens/fotoscolunistas/avatar/avatar-2.png)
Canastra
Curtir tópico
+ 0
Responder
Posts
18/07/2004
Bon Jovi
Substituto acho q não tem. Mas tem uma alternativa que é o Locate:
Exemplos:
if not ADODataSet1.Locate(´CMAN_MAN´, Trim(EdtManif.Text), []) then
...
if ADODataSet1.Locate(´NOME´, edtNome.Text, [loPartialKey]) then
...
Exemplos:
if not ADODataSet1.Locate(´CMAN_MAN´, Trim(EdtManif.Text), []) then
...
if ADODataSet1.Locate(´NOME´, edtNome.Text, [loPartialKey]) then
...
Responder
Clique aqui para fazer login e interagir na Comunidade :)