Fórum USANDO INTERBASE CON APPEND #611023
01/06/2020
0
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
Curtir tópico
+ 0Post mais votado
01/06/2020
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.
Leandro Carvalho
Gostei + 1
Mais Posts
01/06/2020
Leandro Carvalho
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
01/06/2020
Lucas
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
01/06/2020
Lucas
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.
Gostei + 0
01/06/2020
Leandro Carvalho
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.
Beleza.
Seguinte, tem que colocar também no evento AfterDelete o mesmo código.
IBDatabase.ApplyUpdates([IB_CartProv]);
Gostei + 0
01/06/2020
Lucas
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.
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
01/06/2020
Leandro Carvalho
No evento AfterPost do IB_CartProv coloque: IBDatabase.ApplyUpdates([IB_CartProv]);
Onde IBDatabase coloque o nome que você atribuiu a esse componete.
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
Clique aqui para fazer login e interagir na Comunidade :)