Registro Duplicado

[igamerpc]

Una pregunta el registro duplicado con ese se puede hacer.
Codigo: int --> Primary Key
Nombre: char

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  archivo: String;
  cod1  : Cardinal;
  nom: string;
begin
While Not MOD.Tabla2.Eof do
      Begin
        cod1:=MOD.Tabla2.fieldbyName('CODIGO').Value;
        nom:=MOD.Tabla2.fieldbyName('NOMBRE').Value;

        Insertar_Registro_Tabla_1('archivo', cod1, nom, Sender);
        CFG.MOD.Tabla2.Next;
      end;
end;


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
    MOD.MyCommand1.Execute;
    //memo1.lines.add('Ha insertado nuevo registro');
   

   Except

   End;
   MOD.Tabla1.Refresh;

end;

[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

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