como llamar TUPdateSql desde delphi

[lucasarts_18]

Hola:

http://www.clubdelphi.com/foros/showthread.php?t=20155

Espero que te sirva

Saludos.
Aaron.

[kryna]

Hola... sera que me puedes explicar mejor lo de TUpdateSql. Es que realmente no lo entiendo.. Lo que quiero saber es


/// en este caso dentro de las comillas no va nada... solo coloco estas lineas y ya?

  With UpdateSQL1 DO
  Begin
  modifySQL.Text:=('');
  InsertSQL.Text:=('');
  DeleteSQL.text:=('');
  end;

/// necesito un query parala insercion. modificacion y delete??

  With Query1 DO
  Begin
  Close;
  Unprepare;
  SQL.Clear;
  SQL.Add('Update empleados_datos Set Nombre= :ParametroNombre ');
  SQL.ADD('Where ID= :ParametroID');
  ParamByName('ParametroNimbre').AsString:=Edit1.Text;
  ParamByName('ParametroID').AsInteger:=StrToInt(Edit2.Text);
  Prepare

[lucasarts_18]

Hola Krina:

Cómo te habrás dado cuenta en el mensaje que te envié, yo tampoco me manejo mucho con este componente.
Pero veré si te sirve lo que yo he hecho (un ejemplo sencillo por supuesto)

procedure TForm1.FormActivate(Sender: TObject);
begin
query1.SQL.Add('Select * from productos');
query1.Open;
query1.Active := True;
end

Con este procedimiento activo el TQuery y le agrego una sentencia simple SQL y pasa a hacer solo de lectura.
Éste Query está asignado a un Grid, en el cual se pueden modificar sus campos cuando el usuario edita la grilla, qué realmente este es el fin del TUpdateSQL, poder actualizar un TQuery de solo lectura.

procedure TForm1.Button1Click(Sender: TObject);
begin
UpdateSQL1.ModifySQL.Add('Update Productos set');
UpdateSQL1.ModifySQL.Add('Id_Producto = :Id_Producto');
UpdateSQL1.ModifySQL.Add('Where Id_Producto = :OLD_Id_Producto');
query1.ApplyUpdates;
query1.CommitUpdates;
end;

OLD_Id_Producto, ésta variable vendría siendo el campo del TQuery asociado al TUpdateSQL, de está forma el TUpdateSQL sabe que campo debe actualizar.
Con respecto al Insert o Delete es algo similar.

Espero que te sirva

Saludos
Aarón.