campos repetidos

[kryna]

la base de datos es paradox y estoy usando dbedit.....

[[Lepe]]

Que ni pintado este hilo , oiga

Un saludo

[kryna]

Hola disculpen por no explicarme bien

Lo que sucede es que cuando trato de incluir no me genera ningun error solo me inserta el registro asi tenga yo en mi tabla un registro con los mismos parametros que ese.... y eso lo quiero evitar que en mi tabla no tenga ningun registro repetido.....

Estoy trabajando con delphi 7 y tablas paradox 7 y DBEdit..

Solo quiero que cuando trato de incluir el codigo, chequee en la tabla correspondiente y si el codigo ya existe no me permita incluirlo...

Gracias de ante mano...

[vtdeleon]

Saludos.

Usa el Locate:

Código Delphi [-]
if tabla1.locate('campo',edit.text,[]) then
messagebox('Dato ya existente');

Hasta luego

[kryna]

Hola!

Probe con la instruccion y cuando trato de incluir un registro aunq no este agregado en la tabla me aparece el mensaje que le codigo ya exite

if Mitabla.locate('codigo',codigo.Text,[]) then
ShowMessage('EL CODIGO YA EXISTE!!')
else begin
mitabla.insert
mitabla.FieldByName(codigo).AsString := codigo.Text;
.
.
.
mitabla.Post;
mitabla.Next;
mitabla.FlushBuffers;
mitabla.Close;
 
mitabla2.insert
mitabla2.FieldByName(codigo_d).AsString := codigo_d.Text;
.
.
.
mitabla2.Post;
mitabla2.Next;
mitabla2.FlushBuffers;
mitabla2.Close;
end;

como puedo resolverlo?

[vtdeleon]

Saludos.

Supongo que Codigo.text es un Dbedit.

Prueba usando un Edit.

Hasta luego

[[Lepe]]

Ponle un índice único, y por tanto mantenido a ese campo en el database Desktop.

Desde el evento OnPost error, llamas a midberror y listo. Quizás necesites añadirle que ese campo es requerido y no pueda ser nulo.

Haciendo esto, te olvidas de ver si existe el código, y le dejas el proceso al BDE y a la función midberror.

El hecho que comentas es bastante extraño, revisa con el database desktop, que valores hay ya en la base de datos.

Al parecer el código está formado por letras, ¿mayúsculas/ minúsculas? para este engorro puedes cambiarle las propiedades al DBEdit, para que solo acepte mayúsculas o minúsculas.

Lo del Flushbuffers, es mejor que lo pongas en el evento AfterPost de la tabla, así cuando llames al método Post, automáticamente se vacian los buffers.

No entiendo por qué llamas a Next despues de hacer el Post, supongo que tendrás algo en los eventos AfterScroll de la tabla... pero no puedo adivinar más..., en principio, el Next sobra.

La tabla2 depende de alguna forma con la tabla 1?? igual te dice que el codigo ya existe por otra causa.

Creo que deberías decir qué estas haciendo, factura, albaran, clientes....

Un saludo