if Query.Active then
Query.Close;
Query.SQL.Text := Format('SELECT *, max(code) as maxCode FROM %s',
[TableName]);
Query.Open;
code := Query.FieldByName('maxCode').AsString;
Mude para:
if Query.Active then
Query.Close;
Query.SQL.Text := Format('SELECT max(%s.code) FROM
%s',[TableName,TableName]);
Query.Open;
code := Query.Fields[0].AsString;
talvez funcione
[]'s
Francisco Thiago de Almeida
Enter & Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]
http://enterplug.no-ip.com/sistema_ctrc/
_______________________________________________________
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e
anti-spam realmente eficaz.
http://mail.yahoo.com.br/
--
<<<<< 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]
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
