Verificando si un registro existe

[[AzidRain]]

Aunque efectivamente es una forma de hacerlo, personalmente lo considero una chapuza ya que a todas luces no es óptimo.

Cuando introducimos subquerys (selects dentro de selects) el subquery se ejecuta por cada registro que resulte del query principal. En querys pequeños no se nota tanto pero en tablas de miles de registros el resultado si es deplorable. Hay situaciones, sin embargo, en donde la única solución es usar subqueries. Obviamente no es el caso.

Si partimos de que para determinar si un registro está o no duplicado nos tenemos que basar en sus claves primarias. Según la teoría de Entidad-Relación, al diseñar una tabla debemos buscar que cada registro sea identificable por uno o más campos denominados claves primarias. Dichas claves o la combinación de ellas deberán ser únicas e irrepetibles.

Así tenemos que por ejemplo si queremos hacer una tabla de coches, podemos tomar como clave primaria la matrícula, ya que no puede haber 2 autos con la misma. Si hacemos una de personas podemos tomar varios parámetros Nombre, Apellidos y Fecha de Nacimiento por ejemplo, aunque todavía es posible que existan dos personas llamadas igual y que hayan nacido en la misma fecha. Y así sucesivamente.

Por supuesto, hay casos en los que la propia tabla no nos ayuda para determinar cual puede ser la clave, es entonces cuando creamos claves artificiales, las cuales por lo regular son campos autoincrementados que identifican a cada registro.

Si en el diseño lo hicimos bien, tendremos forma de identificar de manera individual todos y cada uno de los registros de las mismas. De manera que para verificar su existencia meidante un select sencillo.

Ahora bien, generalmente deseamos saber si un registro ya existe cuando vamos a insertar uno nuevo de manera que no se dupliquen. Esto ya lo hace por nosotros el motor de base de datos el cual no permitirá que se inserte un registro cuyas claves primarias coincidan con alguno que ya exista. De ser así el motor genera un error y para el caso de Delphi una excepción.

En Delphi simplemente procedemos a hacer nuestra operación de inserción "como si nada" y capturando la posible excepción, que es la que nos dirá que el registro ya existía:

Código Delphi [-]
  try
     MiQuery.ExecSQL; //Ejecutamos el query que contiene un INSERT
  except
     //Aquí ponemos lo que vamos a hacer si el motor nos indica que ya existe el registro
  end;