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...