Hola Kapcomx, gracias por interesarte, y responder.
procedure TForm2.Button1Click(Sender: TObject);
begin
edit1.text:= DataModule5.ADOQuery1.FieldValues['Nombre'];
DataModule5.ADOQuery1.Close;
DataModule5.ADOQuery1.SQL.Text:=
'DELETE * from Herramientas WHERE Nombre=' + '"' + Edit1.Text + '"';
DataModule5.ADOQuery1.Open;
end;
Este es el código.
hay algo curioso, lo borra, pero inmediatamente lanza un error que dice: "ADOQuery1: CommandText does not return a result set."
|