USANDO INTERBASE CON APPEND

Delphi

01/06/2020

ESTOU USANDO INTERBASE
ESTOU INSERINDO UM REGISTRO NO BANCO DESSE JEITO
dm.IB_CartProv.Append;
cString := InttoStr(cartao);
dm.IB_CartProv.FieldByName('CodigoDeBarras').Value := cString ;
dm.IB_CartProv.FieldByName('NUM_CARTAO').Value := cString;
dm.IB_CartProv.FieldByName('COD_PESSOA').AsString := '';
dm.IB_CartProv.FieldByName('DarBaixa').Value := 0;
dm.IB_CartProv.FieldByName('Offline').Value := 0;
dm.IB_CartProv.FieldByName('SemDigital').Value := 0;
dm.IB_CartProv.FieldByName('EnviadoListaSemDigital').Value := 0;
dm.IB_CartProv.Post;

POREM N ESTA ADICIONANDO O REGISTRO NO MEU BANCO
Lucas

Lucas

Curtidas 0

Melhor post

Leandro Carvalho

Leandro Carvalho

01/06/2020

Faz o seguinte:
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.

GOSTEI 1

Mais Respostas

Leandro Carvalho

Leandro Carvalho

01/06/2020

ESTOU USANDO INTERBASE
ESTOU INSERINDO UM REGISTRO NO BANCO DESSE JEITO
dm.IB_CartProv.Append;
cString := InttoStr(cartao);
dm.IB_CartProv.FieldByName('CodigoDeBarras').Value := cString ;
dm.IB_CartProv.FieldByName('NUM_CARTAO').Value := cString;
dm.IB_CartProv.FieldByName('COD_PESSOA').AsString := '';
dm.IB_CartProv.FieldByName('DarBaixa').Value := 0;
dm.IB_CartProv.FieldByName('Offline').Value := 0;
dm.IB_CartProv.FieldByName('SemDigital').Value := 0;
dm.IB_CartProv.FieldByName('EnviadoListaSemDigital').Value := 0;
dm.IB_CartProv.Post;

POREM N ESTA ADICIONANDO O REGISTRO NO MEU BANCO


Caro amigo, a priori esse código está correto, acredito que o problema esteja no componente de acesso. Qual é esse componente IB_CartProv?
É um IBQuery? Da paleta InterBase?
GOSTEI 0
Lucas

Lucas

01/06/2020

ESTOU USANDO INTERBASE
ESTOU INSERINDO UM REGISTRO NO BANCO DESSE JEITO
dm.IB_CartProv.Append;
cString := InttoStr(cartao);
dm.IB_CartProv.FieldByName('CodigoDeBarras').Value := cString ;
dm.IB_CartProv.FieldByName('NUM_CARTAO').Value := cString;
dm.IB_CartProv.FieldByName('COD_PESSOA').AsString := '';
dm.IB_CartProv.FieldByName('DarBaixa').Value := 0;
dm.IB_CartProv.FieldByName('Offline').Value := 0;
dm.IB_CartProv.FieldByName('SemDigital').Value := 0;
dm.IB_CartProv.FieldByName('EnviadoListaSemDigital').Value := 0;
dm.IB_CartProv.Post;

POREM N ESTA ADICIONANDO O REGISTRO NO MEU BANCO


Caro amigo, a priori esse código está correto, acredito que o problema esteja no componente de acesso. Qual é esse componente IB_CartProv?
É um IBQuery? Da paleta InterBase?

seria um ibtable da paleta interBase
GOSTEI 0
Lucas

Lucas

01/06/2020

Faz o seguinte:
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.

DEU BOM VLW
GOSTEI 0
Leandro Carvalho

Leandro Carvalho

01/06/2020

Faz o seguinte:
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.

DEU BOM VLW


Beleza.
Seguinte, tem que colocar também no evento AfterDelete o mesmo código.
IBDatabase.ApplyUpdates([IB_CartProv]);
GOSTEI 0
Lucas

Lucas

01/06/2020

Faz o seguinte:
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.

DEU BOM VLW


Beleza.
Seguinte, tem que colocar também no evento AfterDelete o mesmo código.
IBDatabase.ApplyUpdates([IB_CartProv]);

e para quando eu usar o delete ?
e para mim usar edit tenho que por alguma coisa ?
GOSTEI 0
Leandro Carvalho

Leandro Carvalho

01/06/2020

Faz o seguinte:
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.

DEU BOM VLW


Beleza.
Seguinte, tem que colocar também no evento AfterDelete o mesmo código.
IBDatabase.ApplyUpdates([IB_CartProv]);

e para quando eu usar o delete ?
e para mim usar edit tenho que por alguma coisa ?

e para quando eu usar o delete ? basta colocar a mesma linha de comando no AfterDelete do IB_CartProv como comentei antes.
e para mim usar edit tenho que por alguma coisa ? a priori não.
GOSTEI 0
POSTAR