Fórum Insercao de dados no IB, gostaria de uma opiniao. #171962

28/07/2003

0

Em um DataModule (DM) coloquei um IBDatabase, um IBQuery(IBQConpag)
e um IBTransaction com a propriedade DefaultAction TACommitRetaining
e abri o Transaction Editor e marquei a propriedade read_committed.
(acho que as propriedades acima nao farao efeito pq deixei a propriedade
Active como False)

Faco o sequinte procedimento para inserir dados em meu arquivo

DM.IBQConpag.Sql.Clear;
DM.IBQConpag.SQL.Add(´INSERT INTO CONPAG ´);
DM.IBQConpag.SQL.Add(´( ID_CONPAG, COD_PLA,CODIGO, COD_FOR,VALOR,EMISSAO)´ );
DM.IBQConpag.SQL.Add(´VALUES ´);
DM.IBQConpag.SQL.Add(´( gen_id(GEN_CONPAG,1),:COD_PLA ,:CODIGO,
:COD_FOR,:VALOR,:EMISSAO)´);
DM.IBQConpag.ParamByName(´COD_PLA´).AsString:=planilha;
DM.IBQConpag.ParamByName(´CODIGO´).AsString:=MECodigoDoc.Text;
DM.IBQConpag.ParamByName(´COD_FOR´).AsString:=fornecedor;
DM.IBQConpag.ParamByName(´VALOR´).AsFloat:=CEValor.Value;
DM.IBQConpag.ParamByName(´EMISSAO´).AsDateTime:=DTPEmissao.Date;
DM.IBQConpag.execsql;

Ta funcionando perfeitamente so que eu nao uso os Commandos Commit e Rollback eu gostaria de saber como eu faria pra usa-los na tabela acima pois eu sei que com isso teria mais seguranca na insersão de dados.

Ou ate mesmo se nao precisa.

Obrigado.


M@rcelo

M@rcelo

Responder

Posts

28/07/2003

Glauciene Silva

Apenas:

DM.IBQConpag.commit;


Responder

Gostei + 0

28/07/2003

Espiridiao

em vês de
DM.IBQConpag.execsql;

faz:
DM.IBQConpag.active:=TRUE;
IBTransaction.Commit ;


este é o metodo que eu uso.


Responder

Gostei + 0

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

Aceitar