Validar registro antes de insertar

[jefferson]

hala pana.
en estos dias tenia problemas paresidos al que planteas.

y lo que hice en compañia de mis amigos fue:
hacer un procedimiento igual al insertar con la mismas condicion para poder insertar, pero con otra variable.

y en el bonton de insertar se pone una condicion que no permita que la insercion sea igual a la que ya este, en este caso seria el nombre.

ejemplo:

Código Delphi [-]
procedure TFrmcamaradecomercio.bibinsertarClick(Sender: TObject);
var
corrovorar:string;
begin
 corrovorar:=Ednombre.Text;
 pos:=empresa.repetirDato(corrovorar);
if pos>0 then
begin
    empresa.insertar(Ednombre.Text,EdNit.Text,EdPropietario.Text,EdDireccion.Text,EdTelefono.Text);
    biblimpiarclick(sender);
 end
 else
    ShowMessage('este arreglo ya esxiste');
end;

sin olvidar que antes se debe hacer el procedimiento para insertar, (preferiblemente en una unidad de codigo aparte), al igual que la incersion de validad que es = solo con otra variable.

saludos.

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

jefferson utiliza TAG's cuando escribas código delphi, por favor. Este se vuelve más legible.

[[Delphius]]

Como agregado, a lo que se ha dicho, a lo que apunta el compañero eduarcol es a que no es necesario un select, ni locate. Todo apunta a capturar la excepción adecuada.
Si se ha diseñado la tabla para que tenga un campo clave único, la base de datos nos puede advertir de cualquier intento de ingresar una clave repetida. ¿Para que darle el gusto de buscar si la misma base de datos nos va a saber decir si se puede o no?
¿Se entiende la idea?

En vez de que viajen muchos registros por la red, sólo hacemos que viaje uno (el que deseamos insertar). Si se puede o no, ya nos dirá la base de datos.

la cosa viene a ser algo así:

Código Delphi [-]
...
try
    // aqui intentamos insertar el regitro
except
    // capturamos la excepción que nos arroja la base de datos
    // mostramos algún mensaje
end;
....

El ejemplo de eduarcol es más ilustrativo.

Saludos,

[jefferson]

Hola
Mira pana esta muy buena tu idea y es mejor que la que yo (principiante) aporté.... Pero savemos como es la programacion y que esta se presta para hacer las cosas de distintas maneras... No se nos haga raro que alguien aparesca con una solucion mas sencilla y eficas. Pero bueno para eso estamos.
gracias por el dato. bye.