Ver Mensaje Individual
  #1  
Antiguo 13-10-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Reputación: 15
agustin173 Va por buen camino
Eliminar Registro

hola muchachos Saludos para todos

Tengo un problema con un codigo que no quiere eleminarme no se porque me explico mejor

estoy usando delphi 7
Un Adoquery llamado = Temp
Una tabla llamada = Pais
Con tres campos llamados (Codigo, Fecha y Pais)
tres Edit llamados (EDCodBuscar, EDFechaBuscar y EDPaisBuscar)
y un boton llamado = Eliminar

el codigo es el siguiente:

Código Delphi [-]
// Elimina los Datos en la Base de Datos
 IF Application.MessageBox ('Desea Eliminar Este Registro'+
           Chr(13)+'',
          '',mb_YesNo+MB_IconStop) = idYes Then
    Begin
     Temp.SQL.Clear;
     Temp.Sql.Text:='Delete from Pais where Codigo = :Codigo and Fecha = :Fecha and Pais = :Pais';
     Temp.Parameters.ParamByName('Codigo').Value:= EDCodBuscar.text;
     Temp.Parameters.ParamByName('FECHA').Value:= FormatDateTime('yyyy/mm/dd',now);
     Temp.Parameters.ParamByName('Pais').Value:= EDPaisBuscar.text;
     Temp.ExecSQL;
     ShowMessage('Registro Eliminado');
     PaisModificar.Enabled := False;
     PaisEliminar.Enabled := False;
    End;

Por favor miren a ver porque no me elimina no entiendo que esta pasando
Responder Con Cita