Problemas de actualización con los DBGrid

[Dexter182]

Empezado por iuqrul

No creo que Access -ni ninguna base de datos- permita
sustituir la base de datos en caliente, tendrás que desconectarte de ella para
realizar esa operación. Otra cosa es usar un servicio de restauración de
copias de seguridad en caliente, pero no es este caso, ni access lo permite.

Como siempre windows, en lugar de bloquearte para que no puedas realizar
algo 'incorrecto', te deja hacer, pero se queda con el archivo guardado para
mantener su integridad a salvo de torpes*, tú das por correcta la copia del
archivo, pero te das cuenta que la cosa no funciona, el problema es que un
archivo que el sistema está usando, y más en el caso de una base de datos
debe liberarse de su uso antes de ser sobreescrito.

Como bien dijiste, el problema estaba en que la BD estaba siendo usada, por
lo cual, si bien la copia del archivo se realizaba a la perfección, no lo podía
usar hasta tanto no reiniciara la aplicación.
Pero cuando ya estaba por rendirme, se me ocurrió usar un ADOConnection
(antes simplemente me conectaba desde la propiedad ConnectionString del
ADOQuery).
Entonces lo pude solucionar de la siguiente manera:

ADOConnection.Connected := FALSE;
CopyFile('Datos.bkp', 'Datos.mdb', FALSE);
ADOConnection.Connected := TRUE;

Empezado por vtdeleon

Vamos por paso:
1) Que movimientos haces en el Query? o Base de datos?, antes de
actualizar!
2) Los movimientos se guardan, a pesar de que no se muestra en el DbGrid?
3) Puedes mostrarno el codigo?.

Bien, con respecto a esto te comento que los cambios se guardaban en la
base sin ningún tipo de problemas. Lo único que pasaba era que los resultados
tardaban su tiempito en aparecer en el DBGrid.
Intentaré describir la situación y mostraré código fuente. Y luego explicaré
como lo solucioné.

procedure TForm_Venta.Button_AddClick(Sender: TObject);
//Agrega al DBGrid de Ítems el Artículo seleccionado
// en el DBGrid de Resultados
var
Aux1:Integer;
Aux2:Currency;
begin
If (DBGrid_Resultado.SelectedField.Text <> '') AND (SpinEdit_Cantidad.Value > 0) then
	begin
	 //Busca los datos del Artículo seleccionado
	 Aux.Active := FALSE; // Aux es una variable de tipo TADOQuery
	 Aux.SQL.Clear;
	 Aux.SQL.Add('SELECT * FROM TablaAux WHERE Descripcion
='''+DBGrid_Resultado.Fields[0].Text+'''');
	 Aux.Active := TRUE;
	 If not Aux.IsEmpty then
		begin
		 Aux1 := Aux.FieldByName('Cantidad').AsInteger;
		 Aux1 := Aux1 + SpinEdit_Cantidad.Value;
		 //Agrega al DBGrid de Ítems el Artículo seleccionado si la cantidad
		 //solicitada es menor o igual al stock actual del mismo. Además
		 //realiza las actualizaciones correspondientes de stock y subtotal
		 If Aux1 <= StrToInt(DBGrid_Resultado.Fields[1].Text) then
			begin
			 Aux2 := Aux.FieldByName('Precio Unit').AsCurrency;
			 Aux2 := Aux1 * Aux2;
			 Aux.Active := TRUE;
			 Aux.SQL.Clear;
			 Aux.SQL.Add('UPDATE TablaAux SET Cantidad =
					'+InttoStr(Aux1)+' , Subtotal = "'+FloatToStr(Aux2)
					 +'" WHERE Descripcion =
				   '''+DBGrid_Resultado.Fields[0].Text+'''');
			 Aux.ExecSQL;
			end;
		end
	 else
		begin
		 Aux.Active := TRUE;
		 Aux.SQL.Clear;
		 Aux.SQL.Add('INSERT INTO TablaAux VALUES
			   '''+DBGrid_Resultado.Fields[0].Text+''',
			   '+IntToStr(SpinEdit_Cantidad.Value)+',
			   "'+DBGrid_Resultado.Fields[2].Text+'" ,
			   "'+FloatToStr(SpinEdit_Cantidad.Value*
			   StrToFloat(DBGrid_Resultado.Fields[2].Text))+'")');
		 Aux.ExecSQL;
		end;
	 Modulo.ConsultaAux.Active := FALSE;
	 Modulo.ConsultaAux.Active := TRUE;
	 //Actualiza el máximo valor del SpinEdit y en caso de ser igual
	 //a cero, lo deshabilita. Además limpia su contenido.
	 SpinEdit_Cantidad.MaxValue := SpinEdit_Cantidad.MaxValue
- SpinEdit_Cantidad.Value;
	 If SpinEdit_Cantidad.MaxValue = 0 then
		SpinEdit_Cantidad.ReadOnly := TRUE
	 Else
		SpinEdit_Cantidad.ReadOnly := FALSE;
	 SpinEdit_Cantidad.Value := 0;
	 //Actualiza el monto total de la venta o presupuesto
	 ViewTotal;
 
	end;
end;

Como verán el código era un despelote (ni yo lo entendía).
Lo que intentaba de hacer era que cuando el usuario clickeara el botón Add,
agregara el artículo que se había seleccionado en el DBGrid_Resultados
(muestra el resultado de una búsqueda y permite encontrar un Artículo en
particular) al DBGrid de Ítems (muestra los artículos que posteriormente se
facturarán, mostrando descripción, cantidad a vender, precio unitario y
subtotal.
Hasta acá era fácil. El problema era que yo necesitaba saber si ese artículo ya
se encontraba en el DBGrid de Ítems, y luego dependiendo de eso, debía o
actualizar la cantidad a vender o simplemente agregar el artículo.
Y bueno, no se si era por la cantidad de consultas sobre la misma base o por
alguna otra razón que desconozco, la cuestión que cuando clickeaba mi botón
ADD, el DBGrid se tomaba un tiempito para actualizar (si es que lo lograba).
Entonces decidí cambiar de estrategia y directamente no permitir ingresar el
artículo nuevamente.
Así, si realmente se arrepintió de la cantidad ingresada y quería agregar más a
ese artículo, debe primero quitarlo y luego agregarlo nuevamente con la
cantidad deseada.
Esto no solo simplificó mi código (tanto de este evento como de todos los
posteriores), si no que además ahora anda.
El código actual es el siguiente.

procedure TForm_Venta.Button_AddClick(Sender: TObject);
//Agrega al DBGrid de Ítems el Producto seleccionado
begin
If (DBGrid_Resultado.SelectedField.Text <> '') AND (SpinEdit_Cantidad.Value > 0) then
	begin
	 //Busca el Producto seleccionado en la tabla de ítems a facturar / presupuestar
	 Aux.Active := FALSE;
	 Aux.SQL.Clear;
	 Aux.SQL.Add('SELECT * FROM TablaAux WHERE Descripcion =
					   '''+DBGrid_Resultado.Fields[1].Text+'''');
	 Aux.Active := TRUE;
	 If Aux.IsEmpty then
		begin // Agrega el producto a la lista de ítems
		 Aux.Active := TRUE;
		 Aux.SQL.Clear;
		 Aux.SQL.Add('INSERT INTO TablaAux VALUES
			   '''+DBGrid_Resultado.Fields[1].Text+''',
			   '+IntToStr(SpinEdit_Cantidad.Value)+',
			   "'+DBGrid_Resultado.Fields[2].Text+'" ,
			   "'+FloatToStr(SpinEdit_Cantidad.Value*
			   StrToFloat(DBGrid_Resultado.Fields[2].Text))+'")');
		 Aux.ExecSQL;
		 Modulo.ConsultaAux.Active := FALSE;
		 Modulo.ConsultaAux.Active := TRUE;
 
//Actualiza el monto total de la venta o presupuesto 
		 VerTotal;
		end
	 else // Si Aux no esta vacío
		MessageBox(Handle, 'El producto ya existe en la lista de ítems',
		'ERROR', MB_OK+MB_ICONEXCLAMATION);
	end;
end;

Bueno, espero que se entienda algo de todo esto.
Desde ya les agradezco sus respuestas y les pido disculpas por no poder
contestarles rápidamente.
Un saludo y gracias de nuevo.