Sintaxe (02)
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
Curtidas 0
Respostas
Biscoitorfa
25/08/2003
Da um execSQL
GOSTEI 0
Bacalhau
25/08/2003
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
GOSTEI 0