Club Delphi  
    FTP   CCD     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 Buscar en Tema Desplegado
  #1  
Antiguo 12-02-2004
¥0n1 ¥0n1 is offline
Miembro
 
Registrado: May 2003
Posts: 33
Poder: 0
¥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
Poder: 17
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
Poder: 11
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 Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
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 09:50:25.


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