Cita:
|
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;
Cita:
|
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é.
Código:
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.
Código:
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.
