Agregar datos en grid llenado con dataset

[disturbednoise]

Hola a todos, espero y poder explicar de la mejor manera mi problema:

Cuento con un TADOStored Proc ligado a un DataSource para regresar datos y mostrarlos en una forma delphi usando un boton de la siguiente manera:

Código Delphi [-]
procedure TmoduloVentasW.agregarProducto(Sender: TObject);
begin
           
            dm.spAgregarArt.ProcedureName:='consultaArticuloVentaEx';
            dm.spAgregarArt.Parameters.Refresh;
               if codigoProducto.Text='' then
               begin
               showmessage('Es necesario agregar un código de producto');
               exit;
               end
               else
                dm.spAgregarArt.Parameters.ParamByName('@idArticulo').Value:= codigoProducto.Text;
                dm.spAgregarArt.Parameters.ParamByName('@articuloV').Value:= NULL;
                dm.spAgregarArt.ExecProc;
                valorVA:= dm.spAgregarArt.Parameters.ParamByName('@articuloV').value;

                if  (valorVA = 0)  then
                begin
                  showmessage('El artículo ingresado no existe');
                  codigoProducto.Text:='';
                  exit;

                end;
              if (valorVA = 1) then

                  //Aqui refresco y cambio los valores para asignar otro nombre de procedimiento almacenado al mismo TADOStored Proc
                     
                  dm.spAgregarArt.ProcedureName:='consultaArticuloVenta';
                  dm.spAgregarArt.Parameters.Refresh;
                  dm.spAgregarArt.Parameters.ParamByName('@idArticulo').Value:= codigoProducto.Text;
                  dm.spAgregarArt.Open;
          

end;

Funciona el código al presionar el boton una vez y me pasa los datos de la consulta, que es un "select" a un grid, pero al volver a dar click al botón me muestra el siguiente mensaje: spAgregarArt Cannot perform this operation on an open data set

Y era de esperarse, ya que deje el dm.spAgregarArt.Open, pero mi duda es si puedo recorrer ese data set y volver a usarlo para agregar otro elemento a mi grid o de que manera hacerlo?, para que al dar click cuantas veces desee, se me agreguen datos al grid usando la consulta y el stored procedure

Espero y puedan ayudarme, muchas gracias!!

[Casimiro Notevi]

Lo que no entiendo, en principio, es para qué haces una consulta si lo que quieres es agregar registros.

[disturbednoise]

Buen dia

El programa que estoy intentando desarrollar es sobre facturacion.

Cuento con un TextEdit que al momento de poner por ejemplo un ID de algún articulo y dar click en el botón llamado "agregar" en el evento onclick llamado "agregarProducto", quiero que se llene un grid con los datos del articulo, por ejemplo, descripción, precio, cantidad, etc. Para realizar una venta.

Si por ejemplo pusiera un nuevo ID, entonces desearía que mi grid se llenara con el nuevo articulo, sin borrar el anterior y así sucesivamente

El primer stored procedure llamado "consultaArticuloVentaEx" la realizo para comprobar si existe el ID en la base de datos, sino solamente regreso algun valor que me indica que no existe el articulo y muestro un mensaje.

El segundo stored procedure llamado "consultaArticuloVenta", lo mando llamar en caso de que si exista un ID válido y dejo el dm.spAgregarArt.Open; que en este caso si me llenaria mi grid con los datos correspondientes, saludos!

[ecfisa]

Hola disturbednoise.

Si no entiendo mal lo que estas buscando, un modo de hacerlo podría ser:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  DataSet.Open;
  StringGrid1.FixedCols:= 0;
  StringGrid1.FixedRows:= 1; // fila reservada para título
  StringGrid1.ColCount:= DataSet.FieldCount; // tantas columnas como campos
  // poner el nombre de campo como título de cada columna
  for i:= 0 to DataSet.FieldCount-1 do
    StringGrid1.Cells[i, 0]:= DataSet.Fields[i].DisplayLabel;
end;

procedure TForm1.btnAgregarClick(Sender: TObject);
var
  i: Integer;
begin
  // Si el dato ingresado existe, pasar campos al StringGrid
  if DataSet.Locate('NOMBRE_DEL_CAMPO_BUSCADO', Edit1.Text, []) then
  begin
    for i:= 0 to DataSet.FieldCount-1 do
      StringGrid1.Cells[i, StringGrid1.Row]:= DataSet.Fields[i].AsString;
    StringGrid1.Row:= StringGrid1.Row + 1; // nuevo dato
  end
  else  // si no existe mostrar error
    MessageBox(Handle, 'Artículo inexistente', '', MB_ICONERROR + MB_OK)
end;
...

Saludos.

[disturbednoise]

Hola ecfisa

Gracias por tu respuesta, lo que entendí de tu solución es por ejemplo traer dentro del dataset al crear la forma todos los datos de la tabla y hacer una búsqueda en el data set por el dato ingresado en mi text edit, si por ejemplo mi tabla va creciendo demasiado no existiría alguna manera de contar con dos data set o una tabla temporal en el que pueda ir abriendo y cerrando un data set, para hacer las llamadas a mi stored procedure pero al mismo tiempo ir grabando los datos a una tabla temporal para de ahí colgarlos al grid?

Disculpa la tardanza en contestar, pero me encontraba fuera de la ciudad, saludos!

[disturbednoise]

Mas concretamente lo que quiero hacer es un grid que contenga los detalles de Factura o de alguna venta.

Lo llevo a cabo con un datasource y de ahi ligado a mi grid agrego el resultado de la busqueda de un articulo, pero no puedo agregar varios articulos al grid, ya que al querer usar de nuevo el datasource, me dice que esta abierto, si lo cierro entonces mi grid se queda en blanco, espero y me explique un poco mejor, gracias!!