Comment ajouter des champs à une table dans l'accès avec Visual Basic

Instructions

1. Ouvrez Microsoft Visual Basic Express, puis cliquez sur "Nouveau projet..." dans le volet gauche de votre écran. Double-cliquez sur "Application console." Appuyez "Ctrl" et "UN" puis appuyez sur "Effacer" pour retirer le code actuel.

2. Copiez et collez le code suivant à votre "Module1.vb" module pour exécuter une requête et ajoutez deux champs à la "Produits" table dans la base de données Northwind.

   Imports System.Data.OleDb

   Module Module1

   Sub Main ()
   Dim northwindConn Comme OleDbConnection
   
   
   SqlComm Dim Comme OleDbCommand
   Dim strSQL As String
   northwindConn = new OleDbConnection ("Provider = Microsoft.ACE.OLEDB.12.0-Data Source = C: Northwind 2007.accdb-")
   northwindConn.Open ()
   
   
   
   strSQL = "ALTER TABLE Produits " & _
   "ADD COLUMN Product_I texte (30), Product_II texte (30) -"
   sqlComm = New OleDbCommand (strSQL, northwindConn)
   sqlComm.ExecuteNonQuery ()
   MsgBox ("Ajout de deux champs avec succès à la table Products.")
   northwindConn.Close ()
   End Sub

   Module d'extrémité

3. Modifiez la ligne de code suivante et tapez le chemin d'accès à votre base de données:

   OleDbConnection ("Provider = Microsoft.ACE.OLEDB.12.0-Data Source = C: Northwind 2007.accdb-")

   Appuyez "F5" pour exécuter votre programme.