Sintaxe

Delphi

25/08/2003

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?


Havilux

Havilux

Curtidas 0

Respostas

4_olho

4_olho

25/08/2003

Havilux,

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?


GOSTEI 0
POSTAR