While... do
Begin
   Try
     SQLQuery1.Close;
     SQLQuery1.Clear;
     SQLQuery1.SQL.ADD(...);
     SQLQuery1.ParamByName(..).AsString;
     SQLQuery1.Open;
   Except
     on E: Exception do
     ShowMessage(E.Message);
   End;
End;

Sds,

Romario



Paulo Geloramo escreveu:
> Ola Pessoal,
> 
> Delphi 7
> DBExpress
> 
> Uma query vai ser preparada para ser executadas
> varias vezes, entao teremos:
> 
> Try
>    SQLQuery1.Close;
>    SQLQuery1.Clear;
>    SQLQuery1.SQL.ADD(...);
>    SQLQuery1.Prepared := True;
> 
>    While... do
>    begin
>        SQLQuery1.Close;   {este Close desprepara a Query??????????}
>        SQLQuery1.ParamByName(..).AsString;
>        SQLQuery1.Open;
>    end;
> 
>    if SQLQuery1.Prepared then
>       Message('Query1 continua preparada');
> 
>    SQLQuery1.Close;
> finally
>    SQLQuery1.Prepared := False;
> end;
> 
> O Close do loop desprepara a query?
> 
> Alguma sugestão melhor para montar esta query?
> 
> []s
> Paulo Geloramo


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 



Responder a