Ver Mensaje Individual
  #1  
Antiguo 28-07-2010
stand stand is offline
Registrado
 
Registrado: jul 2010
Posts: 1
Reputación: 0
stand Va por buen camino
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?
Responder Con Cita