Busquedas utilizando ADO

[tenporal]

Gracias por responder a este hilo, mas que nada el codigo que coloque al inicio del hilo, era para conocer si habia mas formas de validar cuando se esta insertando en una tabla que tiene un indice primario y que muestra la informacion en un campo dbedit, ya que si se trata de agregar una clave que ya existe en la tabla, manda un mensaje de error.

Caral, a lo mejor no me explique bien cuando puse codigo, se supone que tienes un boton para agregar un nuevo registro, pero antes de darle el

Código Delphi [-]
 adotable1.insert

Ya que inserta un registro en blanco y luego manda el error de excepcion, por eso debo verificar antes en la tabla si no existe una clave igual que la que se quiere introducir en ese momento, lo que se dice validar la insercion.

En alguna parte vi que se podia utilizar la funcion SEEK, pero no se como se utiliza en delphi con los ADOTABLE.

De antemano gracias por su ayuda.

[roman]

Si quieres verificar la existencia de una clave antes de la inserción, quizá lo más adecuado sería una consulta SQL del estilo:

Código SQL [-]
select count(clave) from tabla
where clave = clave_a_buscar

y examinar si el valor del registro que te regresa es mayor que cero. Por otra parte, quizá quieras considerar que el error que obtienes no es "malo", a fin de cuentas es otra manera de verificar lo mismo, sólo que lo hace a posteriori.

Como lo propones es:

IF ExisteRegistro THEN
  MuestraError
ELSE
  InsertaRegistro

De la otra forma es:

InsertaRegistro;
IF RegistroDuplicado THEN
  MuestraError;

O sea, virtualmente es lo mismo, lo que cambia es el momento en que se controla el error. Además, en este caso, quien hace la verificación es el servidor, y normalmente será más eficiente.

// Saludos