pegar o ultimo gravado em um campo 1

Delphi

24/10/2008

não sei i que esta ocorrendo de errado com o código abaixo que não faz a soma. eu quero fazer um contador de registro gravado.

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

Motoqueiro10

Curtidas 0

Respostas

Juniorvieira

Juniorvieira

24/10/2008

Cara tá faltando código.
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
Pestana_

Pestana_

24/10/2008

não sei i que esta ocorrendo de errado com o código abaixo que não faz a soma. eu quero fazer um contador de registro gravado. uso delphi 7 e bd informix. [color=red:d5c078a421] ----------------------------------------------------------------------------- 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:d5c078a421][/code]


esta aparecendo algum erro, qual?


GOSTEI 0
Motoqueiro10

Motoqueiro10

24/10/2008

vlw amigos vc me ajudaram muito ok!


GOSTEI 0
POSTAR