Comment définir une colonne DataTable VB.NET comme clé primaire après la création

Question

J'importe Tableaux d'une base de données Oracle, en utilisant un VB.NET dataAdapter. J'utilise la commande "fill" pour ajouter les données importées à un DataSet. Comment est-il possible de définir une colonne spécifique d'un DataTable comme PrimaryKey, après la DataTable est déjà rempli de données?

Answer 1

Vous pouvez définir la clé primaire d'une table par:

Dim table As New DataTable() 

    table.Columns.Add(New DataColumn("MyColumn")) 

    Dim primaryKey(1) As DataColumn 
    primaryKey(1) = table.Columns("MyColumn") 
    table.PrimaryKey = primaryKey 

Pour pouvoir utiliser la clé primaire, vous devez vous assurer que toutes les valeurs de la colonne donnée sont uniques.

Je travaille principalement en C# et ont deux méthodes d'extension que j'utilise pour « ranger » les appels que je dois faire, que vous voudrez peut-être envisager de traduire à VB et en utilisant:

public static void SetPrimaryKey(this DataTable value, string columnName) 
    { 
     value.PrimaryKey = new DataColumn[] { value.Columns[columnName] }; 
    } 

    public static DataRow FindByPrimaryKey(this DataTable value, object key) 
    { 
     return value.Rows.Find(key); 
    } 

    // I can then do: 

    DataTable table = CallToRoutineThatGetsMyDataTable(); 
    table.SetPrimaryKey("PKColumnName"); 
    DataRow result = table.FindByPrimaryKey("valueToFindWith"); 

Answer 2

Tant que les valeurs de la colonne sont uniques

table.PrimaryKey = new DataColumn[] { table.Columns["Id"] }; 

pour régler vos noms de colonnes.

Answer 3

Voici un one-liner dans VB (la question était avec "using VB.NET"). Cet exemple est avec 2 colonnes indexées:

table.PrimaryKey = New DataColumn() {table.Columns("column1"), _ 
            table.Columns("column2")} 

Mise à jour: Et voici une autre en une ligne sur la façon d'utiliser cet index 2 colonnes pour trouver une ligne:

table.Rows.Find(New Object() {value1, value2}) '<- DataRow returned 

Answer 4

Merci pour la réponse Rob - il y a un léger problème avec la version vb bien que l'indice devrait être basé sur zéro:

Dim table As New DataTable() 

table.Columns.Add(New DataColumn("MyColumn")) 

Dim primaryKey(1) As DataColumn 
primaryKey(0) = table.Columns("MyColumn") 
table.PrimaryKey = primaryKey