Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-11-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Poder: 14
agustin173 Va por buen camino
Registro Existe

hola a todos espero que esten bien

Tengo un problema con un maskedit para que me diga si existe el registro en la base da dato me explico mejor:

Estoy usando delphi 7
Una Tabla llamada = Suplidor
con 4 campos llamados = RNC, Suplidor, Telefono y Email
Tengo 2 maskedit = (RNC y Telefono)
Tengo 2 Edit = (Suplidor y Email)
Tengo un boton llamado = SuplidorGuardar

Pongo el Codigo

Código Delphi [-]
// Determina si Existe un Registro en la Base de Datos
 with temp do
  begin
    close;
    sql.Clear;
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
//    sql.Add('and pais = '+QuotedStr(CBPaisBuscar.Text));
    open
  end;
   if not temp.IsEmpty then
     raise exception.Create('Registro Existe');

Lo que sucede es que cuando digito un RNC que ya existe en la base de datos no me dice que el registro existe el maskedit tiene una mascara y talvez sea por eso no se que hacer para resolver el caso

NOTA: Este codigo me funciona con los edit pero con los maskedit no, por favor ayudenme
Responder Con Cita
  #2  
Antiguo 06-11-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Agustín.

Debería bastar con que quites el check de Save Literal Characters en el editor de máscara del TMaskEdit.


Saludos.
Responder Con Cita
  #3  
Antiguo 06-11-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Poder: 14
agustin173 Va por buen camino
como estas ecfisa

no te entiendo ecfisa no se lo que es el check de save literal

si pudiera ser mas explicito, lo que pasa es que no se mucho de programacion
Responder Con Cita
  #4  
Antiguo 06-11-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Agustin.

Estando el componente MaskEdit seleccionado y haciendo doble click en el Object Inspector sobre la propiedad EditMask, se abre el editor de máscaras. Ahí tenés la opción que te comento arriba.

Otra forma podría ser quitar la máscara antes de operar y restaurarla luego:
Código Delphi [-]
...
var
  Msk: string;
begin
   Msk:= MaskEdit1.EditMask;  // salvar mascara
   MaskEdit1.EditMask:= '';   // borrarla
   {
    Operaciones que utilicen MaskEdit1.Text 
    Ejemplo;    SQL.Add(MaskEdit1.Text);
    ...
    ...
    }
   MaskEdit1.EditMask:= Msk; // restaurarla;
end;

Saludos.

Última edición por ecfisa fecha: 06-11-2010 a las 00:10:55.
Responder Con Cita
  #5  
Antiguo 06-11-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Poder: 14
agustin173 Va por buen camino
ecfisa mi hermano si me funciono muy bien muchas gracias te lo agradezco
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Determina si existe un registro agustin173 Varios 2 26-10-2010 00:50:24
registro no existe y consultarlos agustin173 Varios 11 13-10-2010 00:34:00
registro no existe agustin173 Varios 19 15-06-2010 23:56:14
saber que no existe registro de ese campo Petolansa SQL 4 31-07-2008 01:42:10
Verificando si un registro existe Angel Fernández Firebird e Interbase 9 26-03-2008 18:45:21


La franja horaria es GMT +2. Ahora son las 20:09:03.


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