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

[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