Borrar Registro de una tabla con sql desde Delphi

[Claudinho]

Hola a todos! Me gustaria ver si pueden ayudarme con esta consulta:
tengo una Tabla Estudiante_curso de la cual quiero borrar un registro, lo hago con este procedimiento:

procedure TForm11.Eliminar_curso();
begin
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('DELETE FROM Estudiante_curso WHERE Estudiante_curso.CEDULA=:Cedulabox AND Estudiante_curso.COD_CURSO=:Cursobox;');
Query3.ParamByName('Cedulabox').AsString:=form11.ComboBox_cedula.Text;
Query3.ParamByName('Cursobox').AsString:=form11.ComboBox_curso.Text;
Query3.ExecSQL;
DbiSaveChanges(Query3.Handle);
ShowMessage('Datos eliminados');
end;

Ejecuta el procedimiento pero no borra nada de la tabla.
alguna ayuda?

[roman]

¿Qué base de datos usas? ¿Cuál es el tipo de datos de los campos CEDULA y COD_CURSO?

// Saludos

[Casimiro Notevi]

Empezado por Claudinho

..

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[Claudinho]

Gracias por responder Roman uso una base de datos Paradox 7 los campos CEDULA Y COD_CURSO son de tipo String estan definidos en los parametros del query como ftstring. Te agradezco cualquier ayuda

[[Caral]]

Hola
En teoria deberia de funcionar, no le veo problemas.

Código Delphi [-]
procedure TForm11.Eliminar_curso();
 begin
 Query3.Close;
 Query3.SQL.text:= 'DELETE FROM Estudiante_curso WHERE Estudiante_curso.CEDULA = :Cedulabox AND Estudiante_curso.COD_CURSO = :Cursobox';
 Query3.ParamByName('Cedulabox').AsString:= ComboBox_cedula.Text;
 Query3.ParamByName('Cursobox').AsString:= ComboBox_curso.Text;
 Query3.ExecSQL;
 ShowMessage('Datos eliminados');
 end;

Saludos

[Claudinho]

Si pienso que deberia funcionar pero debe haber algo que estoy pasando por alto pues no borra el registro de la tabla. Agradezco de antemano cualquier ayuda!

[[Caral]]

Hola
Estas colocando dos condiciones, si no se cumple alguna de las dos no borrara nada.
Revisa que los combobox coincidan con los datos de los campos.
Saludos

[Claudinho]

Los datos de parametros estan en ftString y los campos CEDULA y COD_CURSO tambien son String

[[Caral]]

Hola
Si, pero son los correctos ?.
Estan esos mismos datos en las tabla ?.
Saludos

[Claudinho]

Si en efecto estan esos dos Campos en la Tabla CEDULA y COD_CURSO

[ecfisa]

Empezado por Claudinho

Si en efecto estan esos dos Campos en la Tabla CEDULA y COD_CURSO

Hola.

Tal vez se te haya deslizado un espacio al final de algún item de los combos.

Proba de este modo:

Código Delphi [-]
 with Query3 do
 begin
   Close;
   SQL.Clear;
   SQL.Add('DELETE FROM ESTUDIANTE_CURSO');
   SQL.Add('WHERE CEDULA = :CEDULABOX AND COD_CURSO = :CURSOBOX');
   ParamByName('CEDULABOX').AsString:= Trim(ComboBoxCedula.Text);
   ParamByName('CURSOBOX').AsString := Trim(ComboBoxCurso.Text);
   ExecSQL;
 end;

Saludos.

[Claudinho]

Intente tu codigo Ecfisa pero tampoco borro el registro, de verdad no se que pasa..

[ecfisa]

Hola Claudinho.

Cualquiera de los códigos de los mensajes #1 (exceptuando la llamada a DbiSaveChanges que no se que hace), #5 y #11, borrarán el o los registros que cumplan con la condición, así que el problema debe estar en otro lado...

Te hago dos consultas:
¿ Actualizas el TDataSet relacionado a el/los controles que visualizan los registros, luego del borrado ?
¿ Estas haciendo uso de CachedUpdates ?

Saludos.

[Claudinho]

tengo el cachedUpdate en true aparte de eso no hago mas actualizaciones

[Claudinho]

Gracias a todos por tomarse el tiempo para responderme el error era bien tonto de mi parte como dijo caral estaba recogiendo datos de donde no era, ya que comboBoxcurso no tenia la data de COD_CURSO, pero aprendi bastante con este hilo asi que muchas gracias, no me hubiese dado cuenta del error yo solo

[ecfisa]

Empezado por Claudinho

tengo el cachedUpdate en true aparte de eso no hago mas actualizaciones

Hola.

Me alegra que lo hayas solucionado

Pero estando CachedUpdates activado, para que cualquier acción quede plasmada, tendrías que usar el método ApplyUpdates.

No utilizo BDE pero en la ayuda de Delphi (TQuery -> Methods -> ApplyUpdates -> Delphi example) tenés un ejemplo del uso.

Saludos.

[Claudinho]

Gracias Ecfisa entonces tu recomendacion seria dejar el CachedUpdates en false?

[ecfisa]

Hola Claudinho.

Si no lo estas utilizando, sería conveniente.

Saludos.