Ver Mensaje Individual
  #3  
Antiguo 15-10-2007
luchifer luchifer is offline
No confirmado
 
Registrado: jul 2007
Ubicación: Santa Cruz - Bolivia
Posts: 50
Reputación: 0
luchifer Va por buen camino
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;
Responder Con Cita