raffagia
04-02-2008, 05:59:59
Hola, despues de haber leido la mayoria de los post en cuanto al manejo de excepciones sigo sin poder resolver el problema.
Tengo ke insertar tuplas en una tabla pero no repetir tuplas existentes.
o sea ,, es un insert ke hago sin revisar ke la clave primaria no se repita, lo ke kiero es poder manejar la exepcion de CLAVE REPETIDA.
uso, Sqlserver 2000 y ADO conection.
el codigo es:
Código Delphi [-] (http://www.clubdelphi.com/foros/#)procedure TForm1.Button2Click(Sender: TObject);
begin insert.Close; insert.Parameters.ParamByName('id').value:= 10;
insert.Parameters.ParamByName('nombre').value:= 10;
insert.Parameters.ParamByName('telefono').value:= 10;
insert.Parameters.ParamByName('email').value:= 10;
insert.Prepared;
try insert.ExecSQL
except on e:Exception do begin MessageDlg('El registro que desea editar, ya está',mtError, [mbOK], 0);
raise;
end;
end;
end;
haciendo esto , no se porke nunca catura la excepcion y siempre se detiene el programa y sale el cartel de error del debuger "EOLEEXCEPTION"..
gracias por leer.
saludos
RAFFA
Tengo ke insertar tuplas en una tabla pero no repetir tuplas existentes.
o sea ,, es un insert ke hago sin revisar ke la clave primaria no se repita, lo ke kiero es poder manejar la exepcion de CLAVE REPETIDA.
uso, Sqlserver 2000 y ADO conection.
el codigo es:
Código Delphi [-] (http://www.clubdelphi.com/foros/#)procedure TForm1.Button2Click(Sender: TObject);
begin insert.Close; insert.Parameters.ParamByName('id').value:= 10;
insert.Parameters.ParamByName('nombre').value:= 10;
insert.Parameters.ParamByName('telefono').value:= 10;
insert.Parameters.ParamByName('email').value:= 10;
insert.Prepared;
try insert.ExecSQL
except on e:Exception do begin MessageDlg('El registro que desea editar, ya está',mtError, [mbOK], 0);
raise;
end;
end;
end;
haciendo esto , no se porke nunca catura la excepcion y siempre se detiene el programa y sale el cartel de error del debuger "EOLEEXCEPTION"..
gracias por leer.
saludos
RAFFA