[igamerpc]

Empezado por ecfisa

Hola.

Si la columna CODIGO es primary key, no puede estar duplicada. Lo que se puede hacer es, mostrarle un mensaje al usuario que ese código ya está en uso y solicitarle otro o generarle uno automáticamente.

En cuanto al procedimiento que inserta un nuevo registro lo modificaría un poco:

Código Delphi [-]
procedure TForm1.Insertar_Registro_Tabla_1(NTabla:String; cod1:cardinal; nom:string; Sender: TObject);
begin
   If MOD.Conexion.Connected = False Then
       MOD.Conexion.Connected:=True;

    MOD.Tabla1.TableName := NTabla;
    MOD.Tabla1.Active    := True;

    MOD.MyCommand1.SQL.Clear;
    MOD.MyCommand1.sql.Add('INSERT INTO ' + NTabla+
      '(CODIGO,NOMBRE) VALUES(:Codigo,:Nombre)');
    MOD.MyCommand1.ParamByName('CODIGO').Value := cod1;
    MOD.MyCommand1.ParamByName('NOMBRE').Value := nom;

    try                       // Intentar la operación
      MOD.MyCommand1.Execute; // Insertar
      Inc(FCount);            // Incrementar el número de registros insertados
      MOD.Tabla1.Refresh;     // Actualizar
    except on E: Exception do       // ¿ Hubo algún error ?
      Application.ShowException(E); // Mostrarlo
    end;
end;

En este ejemplo y en el caso de existir una clave duplicada, se le avisa al usuario con un mensaje de error.

Saludos

Exacto. Muchas gracias. Sabia q primary key no puede duplicar.