stand |
28-07-2010 07:46:05 |
actualizar registros
Hola, disculpen estoy haciendo una pequeña aplicacion que esta conectada a una base de datos, en el que la actualizacion de resgristros es la siguiente
Código SQL [-]with DataModule2.query1.SQL do
begin
DataModule2.query1.SQL.Clear;
DataModule2.query1.SQL.Add ('UPDATE Cliente SET Nombre_cliente=:nc,Apellidos_cliente=:ac,Direccion_cliente=:dc,Telefono_cliente=:tc');
DataModule2.query1.SQL.Add ('WHERE Id_cliente=:ic');
DataModule2.query1.ParamBYName('ic').AsInteger := StrToInt(edit1.text);
DataModule2.query1.ParamByName('nc').AsString := edit2.text;
DataModule2.query1.ParamBYNAme('ac').AsString := edit3.text;
DataModule2.query1.ParamByname('tc').AsInteger := StrToInt(edit4.text);
DataModule2.query1.ParamByName('dc').AsString :=edit5.text;
DataModule2.query1.ExecSQL;
end
aqui se actualizan los campos de nombre cliente, apellido,telefono, y direccion, con el id del cliente. Al momento de la ejecucion me sale un error interno de automatizacion Ole, me podrian decir que es lo que esta mal, estan mal las sentencias?
|