Respondiendo a la actualizacion en SQl server
Es bastante comodo utilizar el Tadotable sin embargo me ocaciono varios problemas de actulizacion al menos con grandes volumenes de informacion por eso te recomiendo usar tAdosql para las diferentes consultas con una rutina de actualizacion en tablas similar a la siguiente:
dmodulo.basedatos.BeginTrans;
try
consulta:='insert into lcos_for (codpro, tipo, codins, cant_mae, desins, por_ins, cant_ins, uman, precio, valorbs)'
+'values ('+car+cb_produc.KeyValue+car+','
+ car+cb_tipo.KeyValue+car+','
+ car+wcodpro.Text+car+','
+ wcantmae.Text+','
+ car+wdescri.Text+car+','
+ floattostr(wporcen)+','
+ wcant.Text+','
+ car+dbuman.Caption+car+','
+ wprecbs.Text+','
+ wvalbs.Text+')';
DModulo.QConsulta.Close;
DModulo.QConsulta.sql.Clear;
DModulo.QConsulta.sql.add(consulta);
DModulo.QConsulta.ExecSQL;
Dmodulo.basedatos.CommitTrans;
Except
DModulo.BaseDatos.RollbackTrans;
showMessage('Los Datos no se gravaron...'+#13+'Revise los campos...');
exit;
end;
|