Estou Usando o IBDataset Corretamente?

Firebird

26/08/2004

gostaria de saber se está correto o uso do ibdataset::

//**************insere dados***************
dm.IBDSCONTASPAGAR.Open;
dm.IBDSCONTASPAGAR.Insert;
dm.IBDSCONTASPAGARNCONTA.Value:=strtoint(edconta.Text);
dm.IBDSCONTASPAGARFORNECEDOR.Value:=strtoint(edcodforn.Text);
dm.IBDSCONTASPAGARORIGEM.Value:=edorigem.Text;
dm.IBDSCONTASPAGARNDOC.Value:=edndoc.Text;
dm.IBDSCONTASPAGARDATA.Value:=STRTODATE(mskentrada.Text);
dm.IBDSCONTASPAGARVALOR.Value:=STRTOFLOAT(edvalor.Text);
dm.IBDSCONTASPAGARPARCELA.Value:=´1´;
dm.IBDSCONTASPAGARVENCIMENTO.Value:=STRTODATE(mskvencimento.Text);
dm.IBDSCONTASPAGARFORMAPGTO.Value:=cbpagto.Text;
dm.IBDSCONTASPAGAROBS.Value:=memo.Lines.Text;
dm.IBDSCONTASPAGARPAGO.Value:=´False´;
dm.IBDSCONTASPAGARREFERENCIA.Value:=edref.Text;
dm.IBDSCONTASPAGARNBOLETO.Value:=ednboleto.Text;
dm.IBDSCONTASPAGARNCHEQUE.Value:=edcheque.Text;
dm.IBDSCONTASPAGARBANCO.Value:=1;

//**************insere dados***************
dm.IBDSCONTASPAGAR.ApplyUpdates;
dm.IBTransaction.Commit;


Tap_pedroso

Tap_pedroso

Curtidas 0

Respostas

Afarias

Afarias

26/08/2004

quase!

mude a linha

dm.IBDSCONTASPAGAR.ApplyUpdates;

por

dm.IBDSCONTASPAGAR.Post;


e, vc pode otimizar MUITO seu programa se não usar VALUE, mas AsString, AsInteger, As...


T+


GOSTEI 0
Tap_pedroso

Tap_pedroso

26/08/2004

qual a diferença entre [b:3244630a94].value e .asstring ou asinteger ?[/b:3244630a94]


GOSTEI 0
Afarias

Afarias

26/08/2004

Value é um VARIANT e variants são *muito* lentos!


T+


GOSTEI 0
POSTAR