Problemas para controlar la duplicidad de registros

[loquillo3]

Saludos, he creado este hilo debido a que tengo un pequeño inconveniente para controlar la duplicidad de registros dentro de una misma tabla y a la misma vez en tablas diferentes, he utilizado el siguiente codigo en dos pasos:

PASO 1:

Código SQL [-]
Select * from tbeneficiario2
where cedula2 =: pcedula

Nota: tbeneficiario2 es el nombre de la tabla, Cedula2 es el nombre del campo en la tabla. Pcedula es el parametro que se evaluara con Cedula2.


PASO 2:
Tomando en cuenta que el codigo se encuentra en el evento OnExit del DbEdit (que en este caso es dbCedula2). El Query enn este caso es (qCedula2), ek nombre del DataModulo es DataModule1, el nombre de la tabla es TBeneficiario2, el dbedit1 es el nombre del dbedit que ira el foco una vez haya cancelado la insercion.

Código Delphi [-]
with DataModule1.qCedula2 do
begin
close;
ParamByName(´pCedula´).value:=dbCedula2.text;
Open;
if not IsEmpty then
begin
ShowMessage(´Esta Cedula Existe´);
Datamodule1.tBeneficiario2.cancel;
end
else
Begin
dbedit1.SetFocus;
end;
end;

pero con este codigo no he tenido resultado alguno.

De antemano les agradeceria cualquier sugerencia

[ecfisa]

Hola loquillo3.

Si no te interpreté mal, esto tendría que funcionarte:

Código Delphi [-]
procedure TForm1.DBCedula2Exit(Sender: TObject);
begin
  with DataModule1.qCedula2 do
  try
    Close;
    ParamByName('PCEDULA').AsString := DBCedula2.Text;
    Open;
    if not isEmpty then
    begin
      MessageBox(Self.Handle, 'Cédula existente', '', MB_ICONERROR + MB_OK);
      DBEdit1.SetFocus;
      Abort
    end
  finally
    Close
  end;
end;

Saludos.

[loquillo3]

Empezado por ecfisa

Hola loquillo3.

Si no te interpreté mal, esto tendría que funcionarte:

Código Delphi [-]
procedure TForm1.DBCedula2Exit(Sender: TObject);
begin
  with DataModule1.qCedula2 do
  try
    Close;
    ParamByName('PCEDULA').AsString := DBCedula2.Text;
    Open;
    if not isEmpty then
    begin
      MessageBox(Self.Handle, 'Cédula existente', '', MB_ICONERROR + MB_OK);
      DBEdit1.SetFocus;
      Abort
    end
  finally
    Close
  end;
end;

Saludos.

ecfisa, unos de los errores me lo da en el ParamByName en cierto modo no me reconoce ese comando, pero intentare con el que me has dado

[ecfisa]

Empezado por loquillo3

ecfisa, unos de los errores me lo da en el ParamByName en cierto modo no me reconoce ese comando, pero intentare con el que me has dado

Hola.

No habías mencionado un problema en la sentencia SQL. Pero si la copiaste textualmente, el error está en que no debe existir espacio entre los dos puntos y el nombre del parámetro:

Código SQL [-]
SELECT * 
FROM TBENEFICIARIO2
WHERE CEDULA2 = :PCEDULA

Saludos.

[loquillo3]

Empezado por ecfisa

Hola.

No habías mencionado un problema en la sentencia SQL. Pero si la copiaste textualmente, el error está en que no debe existir espacio entre los dos puntos y el nombre del parámetro.
Saludos.

El espacio lo puse ya que me presentaba una carita

[ecfisa]

Empezado por loquillo3

El espacio lo puse ya que me presentaba una carita

Entiendo.

Bueno entonces quedamos a la espera del resultado de tu prueba...

Saludos.