FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
ADOquery y MaskEdit
Hola amigos del clubdelphi, otra vez estoy por aquí con el asunto de los maskedit, tengo el siguiente código para realizar consulta por teléfono en este formato (999)999-9999.
funciona perfectamente si lleno por el completo el maskedit, el problema se presenta cuando por el ejemplo la realizo de forma incompleta como (809)999- y así sucesivamente, el caso es que no me dejar realizar consultas incompleta sin darme un error, claro se presuntarán ¿por qué realizar una consulta incompleta?, en realidad la pruebo de esta forma para evitar posibles errores de ejecución si algún usuario por cosa de la vida introduce un número incompleto. Este es el error que presenta: Cita:
|
#2
|
|||
|
|||
Rta...
Edité tu código y quedó algo así, creo debería funcionar, otra cosa
si pones un maskedit es para que el usuario no ingrese cualquier cosa, entonces por qué no validas que el ingreso sea correcto ? procedure TFrmConsultacontactos.Button5Click(Sender: TObject); begin Dmodulo.AQcontactos.Close; Dmodulo.AQcontactos.Sql.Clear; Dmodulo.AQcontactos.Sql.Text := 'SELECT * FROM Contactos WHERE Telefono1 LIKE ' + QuotedStr( MaskEdit1.Text + '%' ); Dmodulo.AQcontactos.Open; if Dmodulo.AQcontactos.EOF then begin showmessage( 'REGISTRO INEXISTENTE' ); MaskEdit1.Text := ''; MaskEdit1.SetFocus; end; end; Saludos y espero te sirva. Última edición por waly2k1 fecha: 24-09-2007 a las 04:03:19. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
MaskEdit | NuncaMas | Varios | 11 | 07-01-2010 13:11:08 |
Filtros con maskedit | novato03 | Conexión con bases de datos | 10 | 24-09-2007 11:56:23 |
Maskedit No Me Funciona | Andrés Aguirre | OOP | 4 | 04-05-2006 02:58:21 |
MaskEdit!! | JCarlos | OOP | 3 | 19-01-2005 20:45:32 |
MaskEdit | scooterjgm | OOP | 5 | 20-09-2004 07:13:12 |
|