Evitar que se cierre la aplicación al introducir un dato repetido

[ermac]

Dni es de tipo int not null unique.. y saque el locate porque no me funcionaba, el error que me tira es el siguiente:

s2.subirimagenes.com /otros/previo/thump_9574199error.jpg

(entre com y la / hay un espacio xq no me deja subir enlaces ni imagenes el foro)

[[AgustinOrtu]]

Como escribiste el metodo locate? En donde lo pusiste? Que componentes de acceso a datos estas usando?

[ermac]

Empezado por AgustinOrtu

Como escribiste el metodo locate? En donde lo pusiste? Que componentes de acceso a datos estas usando?

el metodo de locate lo borre asi que no tengo ningun control ahora.

Los componentes de datos que uso son:
Adoconnection, adotable, dbgrid y para agregar,modificar,etc uso el dbnavigator..

cree 3 botones nuevos para que quede mas claro que hace cada uno y puse el dbnavigator como invisible, y los botones son agregar, guardar, eliminar y cada boton solo tiene asignado "Dbnavigator1.BtnClick(Nbinsert);" (nbedit,nbpost y nbdelete)

lo que me faltaria saber es como tendria que ser el control y si me conviene ponerlo en el guardar para verificar que "X" dni no existe y si existe que me muestre un cartel diciendo "tal dni ya existe"

[jafera]

Buenas.

Yo no utilizo SQL, utilizo Firebird e IBX, pero imagino que lo podras adaptar, yo hago la consulta dentro del DataModule lanzando una query accesoria en el OnChange del campo a comprobar.

Código Delphi [-]
procedure TF_ModulDades.CamionsMATRICULAChange(Sender: TField);
var
        Matri: string;
begin
        if F_ModulDades.CamionsMATRICULA.Value <> '' then
        begin
                Camio_Ex.Close;
                Camio_Ex.ParamByName('MATRICULA').AsString := F_Camions.DBEdit3.Text;             
                Camio_Ex.Open;
                Matri := F_Camions.DBEdit3.Text;
                if Camio_Ex.RecordCount > 0 then
                begin
                        Showmessage('Camió existent a la base');
                        Camions.Cancel;
                        F_Camions.ToolBar2.Visible := False;
                        F_Camions.ToolBar1.Visible := True;
                        F_Camions.DBEdit1.Enabled := True;
                        if Camio_Ex.ParamByName('MATRICULA').AsString = Matri then
                        begin
                                Camions.Locate('MATRICULA', Matri, []);
                        end;                    
                end;
        end;
end;

Consulta accesoria

Código SQL [-]
SELECT * FROM BOM0001
WHERE MATRICULA=:MATRICULA

Espero te ayude

Saludos

[roman]

Yo diría que en términos generales hay dos maneras de lidiar con claves repetidas: prevención y atención. Prevención es la que intentaste primero y la que te expone jafera. Creo yo que si esa forma es la que deseas, es la que deberías seguir en lugar de simplemente decir "no me funcionó". Pon el código que tenías y ta podremos ayudar en ver porqué no te funciona.

De todas formas, no está de más conocer la segunda forma tratar las claves repetidas: atención. Los componentes DataSet (como el ADOTable) tienen el evento OnPostError que se lanza cuando la modificacíon o inserción de un registro produce un error en la base de datos. En ese evento tú decides qué hacer: corregir y reintentar o simplemente dar un aviso al usuario.

LineComment Saludos

[ermac]

Empezado por jafera

Buenas.

Yo no utilizo SQL, utilizo Firebird e IBX, pero imagino que lo podras adaptar, yo hago la consulta dentro del DataModule lanzando una query accesoria en el OnChange del campo a comprobar.

Código Delphi [-]
procedure TF_ModulDades.CamionsMATRICULAChange(Sender: TField);
var
        Matri: string;
begin
        if F_ModulDades.CamionsMATRICULA.Value <> '' then
        begin
                Camio_Ex.Close;
                Camio_Ex.ParamByName('MATRICULA').AsString := F_Camions.DBEdit3.Text;             
                Camio_Ex.Open;
                Matri := F_Camions.DBEdit3.Text;
                if Camio_Ex.RecordCount > 0 then
                begin
                        Showmessage('Camió existent a la base');
                        Camions.Cancel;
                        F_Camions.ToolBar2.Visible := False;
                        F_Camions.ToolBar1.Visible := True;
                        F_Camions.DBEdit1.Enabled := True;
                        if Camio_Ex.ParamByName('MATRICULA').AsString = Matri then
                        begin
                                Camions.Locate('MATRICULA', Matri, []);
                        end;                    
                end;
        end;
end;

Consulta accesoria

Código SQL [-]
SELECT * FROM BOM0001
WHERE MATRICULA=:MATRICULA

Espero te ayude

Saludos

Gracias con este lo pude solucionar y ya funciona