Insercao de dados no IB, gostaria de uma opiniao.

Delphi

28/07/2003

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

Curtidas 0

Respostas

Glauciene Silva

Glauciene Silva

28/07/2003

Apenas:

DM.IBQConpag.commit;


GOSTEI 0
Espiridiao

Espiridiao

28/07/2003

em vês de
DM.IBQConpag.execsql;

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


este é o metodo que eu uso.


GOSTEI 0
POSTAR