Selecao DevMedia QUERO SER PRIME

Fórum pegar o ultimo gravado em um campo 1 #365453

24/10/2008

0

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

Responder

Posts

27/10/2008

Juniorvieira

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:


Responder

Gostei + 0

27/10/2008

Pestana_

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?


Responder

Gostei + 0

04/11/2008

Motoqueiro10

vlw amigos vc me ajudaram muito ok!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar