ayuda con base de datos paradox
 

Hola compañeros soy nuevo en esto e intento hacer un pequeño programa utilizando el paradox y delphi 7; lo que intento hacer es que no hayan registros duplicados ya que cuando los hay automaticamente me saca del programa, el codigo lo uso en el boton guardar y lo que se me ocurre es que primero antes de guardar recorrer la base de datos si encuentra un registro duplicado que me mande un mensaje que ya existe el registro y que me mantenga en el programa, y si este no existe que me lo almacene.
espero obtener su ayuda. gracias.....:) el codigo que uso es este:

if Messagedlg('¿Estas Seguro que deseas Guardar este registro?',mtconfirmation,[mbyes,mbno],0)= mryes then
datamodule1.tblClientes.Post
else
datamodule1.tblClientes.Cancel;
progressbar1.Position:= 0;
progressbar1.Max := 50 ;
for i := 0 to 50 do
begin
progressbar1.Position := i;
sleep(2);
end;
for i := 50 downto 0 do
begin
progressbar1.Position := i;
sleep(0);
end

end;

Como seria la estructura de tu tabla?????
Tienes algún campo marcado como cable primaria, si es así y ese campo no es auto numérico, pude que estés asignando un valor ya cargado…..

Saludos...

Hola cya2277
Bienvenido/a al club.
En realidad es muy simple, usa un query y haces una seleccion, si el dato existe te envia el mensaje de lo contrario lo graba.
Saludos

ayuda con base de datos paradox
 

:confused: no entendi bien lo que me dijeron, en este caso yo tengo declarado como llave secundaria un campo RFC que es el cual busco sin problema alguno, mi problema esta cuando intento meter un campo que ya existe me marca key violation y lo entiendo ya que estas duplicando un registro, en todo caso lo que necesito saber es como puedo hacerle para en mi codigo para que en vez que me saque del programa me mande un mensaje de que el campo que estoy intentando ingresar ya existe y no me saque del programa, es decir que me deje trabajar en el mismo..... agradeceria mucho su ayuda aca les dejo nuevamente el codigo que uso para guardar un registro.

if Messagedlg('¿Estas Seguro que deseas Guardar este registro?',mtconfirmation,[mbyes,mbno],0)= mryes then
datamodule1.tblClientes.Post
else
datamodule1.tblClientes.Cancel;
progressbar1.Position:= 0;
progressbar1.Max := 50 ;
for i := 0 to 50 do
begin
progressbar1.Position := i;
sleep(2);
end;
for i := 50 downto 0 do
begin
progressbar1.Position := i;
sleep(0);
end

Yo haria lo siguiente:

Código Delphi [-]
if Messagedlg('¿Estas Seguro que deseas Guardar este registro?',mtconfirmation,[mbyes,mbno],0)= mryes then begin
   try
          datamodule1.tblClientes.Post;
   except
      ShowMessage('Cliente ya existe');
   end;
end;

Bienvenido al foro y te recomiendo que leas la guia de estilos

Salud OS.

Cuidado. A partir del primero de enero de 2008 será ilegal el uso de paradox, y a partir de 2009 estará prohibido siquiera hablar de él. La prohibición es mundial.

// Saludos

Hola
Esto que, es broma tuya Roman?,
Las bases de datos, se vencen?
Las pueden prohivir sin mas?
O es apoyo a Firebird.:D
Saludos

Gracias
 

Gracias por el aporte EGOSTAR (me fue de muchisima ayuda), y a los que tuvieron el detalle de ayudarme ;).