Fórum Estou Usando o IBDataset Corretamente? #46324

26/08/2004

0

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

Responder

Posts

26/08/2004

Afarias

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+


Responder

Gostei + 0

26/08/2004

Tap_pedroso

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


Responder

Gostei + 0

26/08/2004

Afarias

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


T+


Responder

Gostei + 0

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

Aceitar