Fórum Sintaxe #177393
25/08/2003
0
with QryBus do
begin
Close;
CommandText := ´´;
CommandText := SQL;
Open;
if RecordCount = 0 then
Inc( Cod01 );
end;
Como eu faço para que se RecordCount for igual a zero ele execute a linha debaixo e depois a parte do ´WITH QryBus DO´ denovo?
begin
Close;
CommandText := ´´;
CommandText := SQL;
Open;
if RecordCount = 0 then
Inc( Cod01 );
end;
Como eu faço para que se RecordCount for igual a zero ele execute a linha debaixo e depois a parte do ´WITH QryBus DO´ denovo?
Havilux
Curtir tópico
+ 0
Responder
Posts
25/08/2003
4_olho
Havilux,
o comando with não é um laço recursivo. Ele simplesmente evita ter de escrever sempre a mesma coisa como:
O que deu a entender é que se sua pesquisa der resultado nulo, você quer refazer a pesquisa. Certo?
o comando with não é um laço recursivo. Ele simplesmente evita ter de escrever sempre a mesma coisa como:
qryBus.Close; qryBus.CommandText:=´´; qryBus.CommandText := SQL; qryBus.Open; if qryBus.RecordCount = 0 then Inc( Cod01);
O que deu a entender é que se sua pesquisa der resultado nulo, você quer refazer a pesquisa. Certo?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)