campos repetidos

[kryna]

Hola

como hago para que cuando voy a insertar un registro..
si el codigo ya esta en la base de datos me emita un mensage "el codigo ya existe"..

Osea como hago la comparacion ente el edit y la tabla...

[Neftali [Germán.Estévez]]

Creo que lo más normal sería tener en la Base de Datos un índice único/restricción en ese campo para evitar repetidos y al guardar en la Base de Datos (sea mediante Post o SQL) capturar la posible excepción resultante y devolver un error al usuario.

[Lepe]

para qué base de datos? paradox, access
para que gestor ? BDE, ADO ...

Usas Edits o bien DBEdits?

[kryna]

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

[Lepe]

Que ni pintado este hilo (http://www.clubdelphi.com/foros/showthread.php?threadid=4040&highlight=eKeyViol), 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:

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

[kryna]

Hola !!!

Como hago esto??

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.
Ademas ya revise la base de datos y tiene registros pero los que estoy tratando de incluir no.. de echo borre los datos (solo deje uno) y al tratar de agregar otro registro me aparece el comentario..
Y si la tabla2 y la tabla1 tiene un campo en comun codigo??

[Lepe]

-Abres el Database desktop, abres la tabla en cuestion
-Menú Table --> Reestructure
-En la ventana que se abre, en el unico combobox que hay, eliges Secondary Index.
- Pulsa abajo el boton Define...
- elige el campo de fechas y pasalo a la lista de la derecha, usando el boton con dibujito de flechas
- Abajo marca las casillas Unique y Maintained
- Acepta la pantalla, te pedirá el nombre que le quieres dar a es indice que estas creando, yo suelo darle un nombre asi: idxCodigoAsc, de esta forma, todos mis indices tienen la forma: 'idx' + Nombre del campo + Ascendente o descendente
- Acepta todas las pantallas y cierra el database desktop

En delphi, dale un clic a tu tabla, en el Inspector de objetos, dale un doble clic al evento OnPostError y dentro de ese evento escribe:

midbError(dataset, E)

saludos

[kryna]

gracias voy ha probarlo!!


sin embargo lo hice de la siguiente manera y me funciona bien..


if codigo <> nil then
qry1.Close;
qry1.ParamByName('codigo').AsInteger := StrToInt(codigo.text);
data1.dataset := qry1;
qry1.open;

if qrybus.EOF then
begin
// aqui inserto
end else
ShowMessage('EL CODIGO YA EXISTE!!');

Sin embargo ahora tengo otro problemilla.... cuando modifica en vez de sobre escribirme en el registro activo lo que me hace es que me agrega otro registro a mi tabla..

yo lo hago de sta forma

MessageDlg('ESTA SEGURO Q DESEA MODIFICAR ESTE REGISTRO???', mtCONFIRMATION, [mbOk], 0)
Tb1.Edit;
Tb1.FieldByName('especialidad').AsString := edit1.text;
Tb1.FieldByName('codigo).AsString := edit2.text;
Tb1.Post;
Tb1.Next;
Tb1.FlushBuffers;
Tb1.Close;

Tb2.Edit;
Tb2.FieldByName('especialidad').AsString := edit1.text;
Tb2.FieldByName('descripcion').AsString := edit3.text;
Tb2.post;
Tb2.Next;
Tb2.FlushBuffers;
Tb2.Close;

ShowMessage('EL REGISTRO FUE MODIFICADO CON EXITO!!');
end;

Donde tengo el error