Como saber se uma pesquisa foi verdadeira ou false

Delphi

16/10/2003

Oi pessoal estou precisando saber se o eu pesquisei no meu banco de dados (paradox) existe ou não caso não exista me retorne uma mensagem. eu estou usando a seguinte linha de comando para pesquisar.


if checkbox1.Checked=true then
begin
if edit1.Text=´´ then
showmessage(´Você deve informar o número do oficio´) else
form_principal.tb_of_env.Locate(´Numero´, edit1.Text, []);
end;


Machado

Machado

Curtidas 0

Respostas

Luineumann

Luineumann

16/10/2003

faça

if tabela.locate (xxxx)
then achou
else não achou


GOSTEI 0
Machado

Machado

16/10/2003

faça if tabela.locate (xxxx) then achou else não achou


eu coloquei assim:

if form_principal.tb_of_env.locate(edit1.text) then
showmessage(´oficio localizado com sucesso´) else
showmessage(´Não foi possivel localizar o oficio´);

o sistema me mostra o seguinte erro

not enough actual parameters

porque?

eu tambem tentei usando uma variavel da seguinte forma:

var numero:string;

numero:=edit1.text;
if form_principal.tb_of_env.locate(numero) then
showmessage(´oficio localizado com sucesso´) else
showmessage(´Não foi possivel localizar o oficio´);

e o erro é o mesmo.


GOSTEI 0
Alexrol

Alexrol

16/10/2003

Tente isso

if form_principal.tb_of_env.locate([color=red:9dc3a328e1]´Numero´,edit1.text,[][/color:9dc3a328e1]) then
[color=red:9dc3a328e1]begin[/color:9dc3a328e1]
showmessage(´oficio localizado com sucesso´) ;
Exit;
[color=red:9dc3a328e1]end else begin [/color:9dc3a328e1]
showmessage(´Não foi possivel localizar o oficio´);
[color=red:9dc3a328e1]end;
end;[/color:9dc3a328e1]

Acho que isso resolve seu problema.


GOSTEI 0
POSTAR