Fórum pegar o ultimo gravado em um campo 1 #365453
24/10/2008
0
uso delphi 7 e bd informix.
[color=red:ca83aa808e]
-----------------------------------------------------------------------------
procedure Tfrm_form1.BitBtn3Click(Sender: TObject);
var
codigo : integer;
begin
codigo := qry_tela1.fieldbyname(´num_cod´).AsInteger;
codigo := codigo+1;
qry_salvar.Params[0].AsString := inttostr(codigo); {contador }
-------------------------------------------------------------------------------[/color:ca83aa808e][/code]
Motoqueiro10
Curtir tópico
+ 0Posts
27/10/2008
Juniorvieira
na qry_Salvar.
A senquencia é.
Fecha -> passa parametro ->abre ->insert
logo..
qry_salvar.close;
qry_salvar.params[0].asinteger := -1 ; (para inserir nao traga registro)
qry_salvar.open;
qry_salvar.insert;
qry_salvar.fieldbyname(´COD_XXX´).asinteger := codigo;
qry_salvar.post;
-----------AGORA EU PREFIRO ESSA (CRIA O INSERT NA MÃO SACOU)
qry_salvar.close;
qry-salvar.sql.add(´INSERT INTO TABELA(COD_XXX)values(:COD_XXX)´)
qry_salvar.params[0].asinteger :=codigo;
qry_salvar.execsql;
fuiiiii :lol:
Gostei + 0
27/10/2008
Pestana_
esta aparecendo algum erro, qual?
Gostei + 0
04/11/2008
Motoqueiro10
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)