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]
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
