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.
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
Curtir tópico
+ 0
Responder
Posts
28/07/2003
Glauciene Silva
Apenas:
DM.IBQConpag.commit;
DM.IBQConpag.commit;
Responder
Gostei + 0
28/07/2003
Espiridiao
em vês de
faz:
este é o metodo que eu uso.
DM.IBQConpag.execsql;
faz:
DM.IBQConpag.active:=TRUE; IBTransaction.Commit ;
este é o metodo que eu uso.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)