Ver Mensaje Individual
  #9  
Antiguo 10-11-2010
agustin173 agustin173 is offline
Miembro
 
Registrado: jun 2010
Posts: 158
Reputación: 17
agustin173 Va por buen camino
ecfisa tampoco me funciono me voy a explicar mejor

Lo que deseo es que cuando encuentre un registro en la base de datos ya sea por RNC, Suplidor, Telefono o Email me diga registro existe.

el codigo que puse al principio me lo dice osea funciona bien.

lo que deseo es que me diga si el registro encontrado igual en la base dec dato fue el RNC o si fue El Suplidor o si fue El telefono o Si fue el Email.

Ejemplo:

si digito el RNC y el Suplidor y los registro ya existe de ambos me diga RNC y Suplidor Existe y asi con los demas

Vuelvo a Colocar el Codigo

Código Delphi [-]
var
  Msk: string;
  Msk1: String;
begin
// Determina si Existe un Registro en la Base de Datos
 with temp do
  begin
    close;
    sql.Clear;
    Msk:= MERnc.EditMask;  // salvar mascara
    Msk1:= METelefono.EditMask;
    MERnc.EditMask:= '';   // borrarla
    METelefono.EditMask:= '';
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
    sql.Add('or Suplidor = '+QuotedStr(EDSuplidor.Text));
    sql.Add('or Telefono = '+QuotedStr(METelefono.Text));
    sql.Add('or Email = '+QuotedStr(EDEmail.Text));
    MERnc.EditMask:= Msk; // restaurarla;
    METelefono.EditMask:= Msk1;
    open
  end;
   if not temp.IsEmpty then
     raise exception.Create('Registro Existe');

Todo esto sucede antes de grabar la informacion en la base de dato estoy evitando duplicar informacion.

haber ecfisa y marcos si me pueden ayudar ahora que me explique mejor si no se entiene por favor haganmelo saber, es que el proyecto de la universidad tengo que entregarlo.
Responder Con Cita