campos repetidos

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