ops ...
with TSQLQuery.Create(Nil) do
try
SQLConnection := SQLConnection1;
try
vSQL := 'SQL';
SQL.Add(vSQL);
OPEN;
except
on E : Exception do
ShowMessage(E.Message);
end;
finally
Free;
end;
Melhorou ...
Gera��o windows copiei e esqueci de tirar algumas coisas ...
Eduardo
----- Original Message -----
From: Eduardo
To: [email protected]
Sent: Monday, May 02, 2005 1:32 PM
Subject: Re: [delphi-br] Criar SQLQuery em rum time
s� faltou o SQLConection.
mas vc pode fazer assim:
with TSQLQuery.Create(Nil) do
try
SQLConnection := SQLConnection1;
try
vSQL := 'SQL';
SQL.Add(vSQL);
OPEN;
except
on E : Exception do
ShowMessage(E.Message);
end;
finally
Label5.Caption := FormatDateTime('DD/MM/YYYY HH:NN:SS', Date +
Time);
Label6.Caption := TimeToStr(Time - Cont);
SalvaLogLocal('Tempo de corrido : ' + Trim(Label6.Caption),
Codigo);
Free;
end;
Eduardo
----- Original Message -----
From: Emerson Moreno
To: [email protected]
Sent: Monday, May 02, 2005 9:46 AM
Subject: [delphi-br] Criar SQLQuery em rum time
Ola amigos, gostaria de saber com fa�o pra criar um TSQLQuery em tempo
de execu��o, pois preciso inplementar um procedure e preciso de Query
criada em tempo de execu��o.
Estou fazendo uma rotina e log onde crie uma procedure veja o escopo abaixo:
E me digam o que est� errado por favor.
Procedure GravaLog(SenhaOperador, CodigoRotina: Integer); Forward;
Procedure GravaLog(SenhaOperador, CodigoRotina: Integer);
Var
QryGravarLog : TSQLQuery;
Begin
QryGravarLog := TSQLQuery.Create(Sender);
QryGravarLog.Close;
QryGravarLog.SQL.Clear;
QryGravarLog.SQL.Text := 'INSERT INTO LOG VALUES (' +
QuotedStr(SenhaOperador) +
',' +
QuotedStr(InttoStr(CodigoRotina)) +
')' ;
QryGravarLog.ExecSQL(True);
QryGravarLog.Free;
end;
--
[]'s
Emerson Moreno
--
<<<<< 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]
Yahoo! Grupos, um servi�o oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc� faz do Yahoo! Grupos est� sujeito aos Termos do
Servi�o do Yahoo!.
[As partes desta mensagem que n�o continham texto foram removidas]
--
<<<<< 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]
Yahoo! Grupos, um servi�o oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que voc� faz do Yahoo! Grupos est� sujeito aos Termos do Servi�o
do Yahoo!.
[As partes desta mensagem que n�o continham texto foram removidas]
--
<<<<< 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
