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 Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-02-2005
Bitbanner Bitbanner is offline
Miembro
 
Registrado: ene 2005
Posts: 46
Poder: 0
Bitbanner Va por buen camino
COmo genero un mensaje antes de un Sysutils.Abort

Hola estoy con una base de datos acces y lo que quiero que me controle es cuando no se ha metido un campo requerido, ya he metido en BeforePost el sysutils.abort pero me falta mostrar un mensaje de error para el usuario.


gracias
Responder Con Cita
  #2  
Antiguo 11-02-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
En lugar de hacer un Abort (Que es una exception silenciosa) hacé un raise de un Exception.

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 13-02-2005
Bitbanner Bitbanner is offline
Miembro
 
Registrado: ene 2005
Posts: 46
Poder: 0
Bitbanner Va por buen camino
ejemplo por favor

me puedes poner un ejemplo por favor no se como hacerlo, lo que yo tengo puesto es esto:



sysutils.Exception.Create('Debes de rellenar todos los campos en rojo');

y lo tengo puesto en la table en el evento BeforePost.


GRACIAS
Responder Con Cita
  #4  
Antiguo 13-02-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
De acuerdo, creas la excepción, solo falta lanzarla al mercado laboral

raise Exception.Create("Rellena todos los campos en rojo ");

saludos
Responder Con Cita
  #5  
Antiguo 13-02-2005
Bitbanner Bitbanner is offline
Miembro
 
Registrado: ene 2005
Posts: 46
Poder: 0
Bitbanner Va por buen camino
problema

ya lo he echo pero no mr sale nada de nadsa lo tengo de esta manera:

En el BeforePost de la table tengo puesto:

If (DataMopduleModuloDatos.AdoTableClientesNombre.IsNull = True) then
Begin
sysutils.exception.create ('debes de rellenar los rojos');
end;

GRACIAS Y PERDONAR MI INGENUIDAD
Responder Con Cita
  #6  
Antiguo 14-02-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por Bitbanner
ya lo he echo pero no mr sale nada de nadsa
No, no lo has hecho. Vuelve a leer con cuidado el mensaje de Lepe

// Saludos
Responder Con Cita
  #7  
Antiguo 14-02-2005
Bitbanner Bitbanner is offline
Miembro
 
Registrado: ene 2005
Posts: 46
Poder: 0
Bitbanner Va por buen camino
ok lo siento

ya me sale pero me manda un erro y la aplicacion se para y tengo que iniciarla lo que me gustaria que saliera es un mensaje como si fuera de un Showmessage o un MessageDlg si no es mucho pedir y perdonarme !!!
Responder Con Cita
Respuesta



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 11:06:52.


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