Fórum Sintaxe (02) #177410
25/08/2003
0
Se o resultado da pesquisa for nulo, como faço para refazer a pesquisa?
Quero que re-execute a partir do with
with QryBus do
begin
Close;
CommandText := ´´;
CommandText := SQL;
Open;
if RecordCount = 0 then
Inc( Cod01 );
end;
Quero que re-execute a partir do with
with QryBus do
begin
Close;
CommandText := ´´;
CommandText := SQL;
Open;
if RecordCount = 0 then
Inc( Cod01 );
end;
Havilux
Curtir tópico
+ 0
Responder
Posts
25/08/2003
Biscoitorfa
Da um execSQL
Responder
Gostei + 0
26/08/2003
Bacalhau
Define uma variável encontrado : boolean;
Depois fica assim
encontrado := false;
repeat
with QryBus do
begin
Close;
CommandText := ´´;
CommandText := SQL;
Open;
if RecordCount = 0
then Inc( Cod01 )
else encontrado := true;
end;
until encontrado;
Agora tem cuidado porque podes cair num ciclo infinito. Testa bem que o Cod1 seja sempre encontrado
abraço do bacalhau
Depois fica assim
encontrado := false;
repeat
with QryBus do
begin
Close;
CommandText := ´´;
CommandText := SQL;
Open;
if RecordCount = 0
then Inc( Cod01 )
else encontrado := true;
end;
until encontrado;
Agora tem cuidado porque podes cair num ciclo infinito. Testa bem que o Cod1 seja sempre encontrado
abraço do bacalhau
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)