Club Delphi  
    FTP   CCD     Enlaces   Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Desplegado
  #1  
Antiguo 12-02-2004
¥0n1 ¥0n1 is offline
Miembro
 
Registrado: may 2003
Posts: 33
¥0n1 Va por buen camino
Eliminar registro de un .mdb con ADO

Hola, quizas la pregunta que voy a hacer sea muy sencilla pero espero que puedan brindarme cualquier tipo de ayuda y de seguro la agradecería muchísimo. Entrando ya en la pregunta; estoy trabajando con un .mdb manipulandolo con ADO; para moverme por la tabla, agregar nuevos registros y cosas así, uso el componente DBNavigator estandar que viene con Delphi pero quiero cambiar el mensaje de confirmación de borrado para que no sea en ingles y mostrar un mensaje que yo haga por programación, ya puse en False la propiedad ConfirmDelete del DBNavigator y el mensaje que muestro lo programo en el evento OnBeforeDelete del query que se conecta a esa tabla de la que quiero eliminar el registro, les pongo a continuación un ejemplo del código que estoy usando para realizar esto que quiero:

if MessageDLG('Está seguro que desea eliminar los siguientes datos???', mtConfirmation, [mbYes,mbNo], 0) <> mrYes then SysUtils.Abort;

pero no funciona; si se responde NO en el mensaje que se muestra no se elimina el registro y si se responde YES tampoco lo elimina, simplemente muestra el mensaje pero ni se da por enterado de lo demás; en esencia eso es lo que sucede, como ya les dije agradecería cualquier tipo de ayuda que puedan brindarme para solucionar esto, chao.

PD. Uso Delphi 6 con Windows 2000 y el .mdb está creado también con Access 2000.
Responder Con Cita
  #2  
Antiguo 12-02-2004
cadetill cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
cadetill Va por buen camino
Ya que utilizas un DBNavigator, yo personalmente utilizaría sus eventos para hacer lo que pretendes. En concreto el OnBeforeAction

Código:
procedure TConsultas.NavegadorBeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  case Button of
    nbDelete :
      begin
        if Application.MessageBox('Realmente quiere borrar el registro seleccionado?',
                      'Atención',
                      MB_ICONWARNING or MB_YESNO or MB_APPLMODAL) = mrNo then
          Abort;
      end;
  end;
end;
Responder Con Cita
  #3  
Antiguo 07-11-2007
fide fide is offline
Miembro
 
Registrado: oct 2006
Posts: 331
fide Va por buen camino
Lightbulb

Asi mismo lo hago yo.

o sin usar el DBNavigator seria

Código Delphi [-]
if MensajeDeConfirmacion  = Si then 
 AdoTable1.Delete;
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 23:40:31.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi