Problema con ado, necesito ayuda urgente

[montesoft]

Muy buenas, desde hace poco migré de paradox (bde) a ADO y he tenido problemas cuando elimino registros, uso el locate y lo "elimina bien":

With Tabla_ADO Do
Begin
Open;
If locate (etc) Then
Begin
Edit;
Delete;
end;
End;

La cuestion es que despues cuando registro con el mismo codigo (campo llave) me da el error de key violation. ¿Que estoy haciendo mal?, acaso quedan en la memoria los datos?, Si abro y cierro la tabla todo ok, pero no me parece optimo. Por cierto a veces que edito o registro tambien me manda errores o no se guarda como deberia. POR FAVOR AYUDA.
De antemano muchas gracias.

Desde Colombia, Jorge Luis Montes.

[[Caral]]

Hola
POST.
Saludos

[Casimiro Notevi]

Bienvenido a clubdelphi, no olvides leer nuestra guía de estilo y recuerda poner etiquetas al código. Gracias por tu colaboración.





.

[montesoft]

Buscando encontré que con la orden UpdateBatch despues del Post los datos en memoria se ingresaban ala tabla y listo.

Sin embargo aun no se como hacer esa accion despues de eliminar o cambiar datos con sql a traves del componente ADOQUERY, lo coloco despues de EXECSQL y me manda error de que no esta abierta la "consulta". Alguna idea de lo que pasa o debo hacer?.

De antemano muchas gracias.

[ContraVeneno]

El ExecSQL se utiliza cuando ya tienes todo listo.... no antes. Y solo para consultas de modificación o alteración de datos. Para un "select" normal, se utiliza open.

Código Delphi [-]
with TuADOQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Delete From TuTabla');
 SQL.Add('Where UnCampo = :UnValor');
 Parameters.ParamByName('UnValor').Value := 1
 ExecSQL;
end; //with

ese ejemplo borraría de la tabla todos los registros donde " UnCampo = 1 "

Saludos.

[montesoft]

Desde que usaba bde uso esas sentencias para eliminar, el caso es que con ADOQUERY aparentemente elimina pero cuando ingreso algun registro que supuestamente eliminó envia el Key Violation, entonces lo elimina de la tabla en memoria, pero no en la fisica. Coloqué el UpdateBatch despues del ExecSql pues imaginé que asi se reflejarian las eliminaciones en la tabla fisica pero manda error:

Código Delphi [-]
with Query1 do
  Begin
   SQL.Clear;
   SQL.Add('Delete From Estudiante');
   Sql.Add('Where Grado = "09"');
   ExecSQL;
   UpdateBatch();  //Aqui manda el error de consulta no abierta
  End;

¿Como debo codificar?

[[Caral]]

Hola

Código Delphi [-]
AdoConnection1.BeginTrans;
try
with Query1 do
  Begin
   SQL.Clear;
   SQL.Add('Delete From Estudiante');
   Sql.Add('Where Grado = "09"');
   ExecSQL;
  End;
AdoConnection1.CommitTrans;
except
     on E:Exception do AdoConnection1.RollbackTrans;
end;

Saludos

[montesoft]

Lo siento amigo Caral, el codigo no manda error pero los registros no se liberan de la memoria, abro la base de datos desde acces y no estan y en el programa si, las eliminaciones o cambios solo se aprecian si reinicio el programa, ¿raro no?.

Gracias por tu ayuda...

[[Caral]]

Hola
No entiendo la razon.
Si no es muy grande el programa y la BD enviamelos, lo reviso.
Saludos

[[Caral]]

Hola
No entiendo muy bien, explicame esto:
1. Cuando ejecuto el delete los registros SI se eliminan de la BD pero NO del programa ?.
2. Cuando ejecuto el delete los registros NO se eleminan de la BD ?.
3. NO hace nada .
Saludos

[montesoft]

Cuando ejecuto el delete los registros SI se eliminan porque (con el programa abierto) abro desde access la bd y ya no estan, cierro access y los busco dentro del programa y aun se encuentran. Acces no los muestra pero el programa si aun despues de "eliminarlos".

[[Caral]]

Hola
El componente donde los muestras me imagino que es un DBgrid.
Este componente tiene que estar ligado a algun otro (ADOTable o AdoQuery), por medio de un datasource.
Si cierras y abres estos entonces se actualizara el programa.
Ejemplo:
Digamos que el DBGrid esta ligado a un AdoTable y que el adoQuery solo ejecuta la accion de eliminar, entonces:

Código Delphi [-]
AdoConnection1.BeginTrans;
try
with AdoQuery1 do
  Begin
  SQL.text:= 'Delete From Estudiante Where Grado = "09"';
   ExecSQL; // ejecuto el query.
  End;
AdoConnection1.CommitTrans; // actualizo la BD
AdoTable.Close; // cierro la tabla.
AdoTable.Open; // abro la Tabla
except
     on E:Exception do AdoConnection1.RollbackTrans;
end;

Saludos

[montesoft]

No uso un dbgrid, busco el registro con locate (a traves del campo llave) y lo encuentra y sí.., si cierro y abro la tabla hace justo lo que necesito pero a mi parecer no es lo optimo pues cuando usaba bde no tenia que hacer eso y los cambios se reflejaban inmediatamente.

Será que no hay manera o solo como comentas, es decir cerrando y abriendo las tablas?

[[Caral]]

Hola
Que yo sepa la unica forma de actualizar los datos es:

1- Cerrando y abriendo la tabla.

Código Delphi [-]
try
with AdoQuery1 do
  Begin
  SQL.text:= 'Delete From Estudiante Where Grado = "09"';
   ExecSQL; // ejecuto el query.
  End;
AdoConnection1.CommitTrans; // actualizo la BD
AdoTable.Close; // cierro la tabla.
AdoTable.Open; // abro la Tabla
except
     on E:Exception do AdoConnection1.RollbackTrans;
end;

2- Haciendo un refrech del componente.

Código Delphi [-]
try
with AdoQuery1 do
  Begin
  SQL.text:= 'Delete From Estudiante Where Grado = "09"';
   ExecSQL; // ejecuto el query.
  End;
AdoConnection1.CommitTrans; // actualizo la BD
AdoTable.Refrech; // refresco la tabla
except
     on E:Exception do AdoConnection1.RollbackTrans;
end;

3- Haciendo un Requery.

Código Delphi [-]
try
with AdoQuery1 do
  Begin
  SQL.text:= 'Delete From Estudiante Where Grado = "09"';
   ExecSQL; // ejecuto el query.
  End;
AdoConnection1.CommitTrans; // actualizo la BD
AdoTable.Requery(); // actualizo la tabla
except
     on E:Exception do AdoConnection1.RollbackTrans;
end;

Saludos

[montesoft]

Listo compañero, le agradezco por la ayuda brindada.
Muchisimas gracias