Problemas para controlar la duplicidad de registros

[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.

[loquillo3]

bien, en el dia de mañana les informare, ya que donde me encuentro no es en mi mi casa ni mi area de trabajo

[loquillo3]

he probado con el codigo que me has dado y con otros, y en la mayoria me sale el siguiente error:

adoquery1: parameter 'pficha_cpu'not found

Código Delphi [-]
adoquery1.sql.text := ' select ficha_cpu from tcpu where ficha_cpu =:laficha';   adoquery1.parameters.ParamByName('laficha ').value := dbedit1.text;
adoquery1.Open;
if not adoquery1.IsEmpty then
begin    ShowMessage('el dni ya existe');
sysutils.Abort;
end;

Código Delphi [-]
with Adoquery1 do
try 
Close;
ParamByName('pficha_cpu').AsString := Dbedit1.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;

Código Delphi [-]
with Adoquery1 do
try
Close;
adoquery1.parameters.ParamByName('pficha_cpu').AsString := Dbedit1.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;

Código Delphi [-]
With tcpu do
begin
if Locate('ficha_cpu', DBEDIT1.TEXT,[]) then
Begin
application.MessageBox('Este ficha ya fué registrada',' ');
End
else
Begin
Dbedit1.setfocus;
Abort;
end
else
tcpu.Post;
end

[camiz]

loquillo3 hecha un vistaso este hilo, no soy experto pero yo tenia un problema parecido al tuyo queria que no se guarden repetidos, echale un vistaso al ultimo mensaje a ver si te sirve de algo.

http://www.clubdelphi.com/foros/showthread.php?t=78546

quizas no sea el codigo mas adecuado pero funciona.

[loquillo3]

Empezado por camiz

loquillo3 hecha un vistaso este hilo, no soy experto pero yo tenia un problema parecido al tuyo queria que no se guarden repetidos, echale un vistaso al ultimo mensaje a ver si te sirve de algo.

http://www.clubdelphi.com/foros/showthread.php?t=78546

quizas no sea el codigo mas adecuado pero funciona.

ya habia visto ese hilo y utilize tu codigo:

Código Delphi [-]
procedure TfrmAltaRepuestos.btn_arguardarClick(Sender: TObject); //buscamos y comparamos el codigo del TDBEdit    
if (frmConeccion.Repuesto_vista_02.Locate('CODIGO', txt_arcodigo_repuesto.Text, [])) and (frmConeccion.Repuesto_vista_02CODIGO.Text = txt_arcodigo_repuesto.Text) then
begin
Application.MessageBox('Este código ya existe, debe crear otro para este artìculo.', 'Mensaje', MB_ICONSTOP or MB_OK);   txt_arcodigo_repuesto.SetFocus;
Abort;
end
else
begin
frmConeccion.Repuesto_save2.Post;
end

me puedes explicar en esta parte del codigo

if (frmConeccion.Repuesto_vista_02.Locate('CODIGO', txt_arcodigo_repuesto.Text, [])) and (frmConeccion.Repuesto_vista_02CODIGO.Text = txt_arcodigo_repuesto.Text) then