Registro Duplicado

[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.

[igamerpc]

Una tema complicado sobre duplicacion. Cuando hay autonumeración o no hay llave se puede duplicar?

[ecfisa]

Hola.

Si la columna no tiene una restricción al respecto, no hay problema con duplicarla. ¿ Con que gestor de base de datos estas trabajando ?

Saludos

[igamerpc]

En phpmyadmin lo d localhost. Las restricciones solo un campo primary key se que no puede duplicar. Si pongo otro campo con autonumeración yo imagino se puede duplicar. Aun no comprobe. Lo estoy estudiando como funciona. Es un poco lio de eso.

[ecfisa]

Hola.

No conozco MySQL pero no tiene mucho sentido crear una columna auto numérica para luego permitir valores duplicados en ella; se supone que la función de esas columnas es no repetir valores.

Creo que si deseas permitir valores duplicados tendrías que quitar la restricción, v.gr.:

Código SQL [-]
ALTER TABLE nombre_de_tu_tabla DROP INDEX nombre_de_columna

Saludos

[igamerpc]

Drop index es eliminar el indice, eso es verdad, y asi se puede duplicar.
Entonces empiezo trabajar delphi con esa ejecucion.
Gracias 😁

[igamerpc]

Código SQL [-]
ALTER TABLE nombre_de_tu_tabla DROP INDEX nombre_de_columna

Ese no puede usar en delphi.

Ejemplo:

Código Delphi [-]
MOD.MyCommand1.SQL('ALTER TABLE nombre_de_tu_tabla DROP INDEX nombre_de_columna');