|
Connaître comment ajouter un nouveau champ à une table de base de données Microsoft Office Access en utilisant Visual Basic.NET peut rendre votre programme plus dynamique. Access est un système de gestion de base de données relationnelle inclus dans la suite Microsoft Office . VB.NET est un langage de programmation informatique orienté objet souvent préféré par les programmeurs pour sa facilité d'utilisation . En quelques étapes, vous pouvez écrire du code VB.NET pour créer une nouvelle table, puis utilisez l'instruction " ALTER TABLE" pour créer un nouveau champ. Instructions
1 Ouvrez Microsoft Visual Basic Express et cliquez sur "Nouveau projet ... " Dans le volet gauche de votre écran . Double -cliquez sur " Application console " dans le volet central du "Nouveau projet" Fenêtre.
2 Appuyez sur "Ctrl " et "A ", puis appuyez sur "Supprimer " pour supprimer tout le code existant.
3 Copiez et collez ce code dans votre module " Module1.vb " .
Imports System.Data.OleDb
Module Module1
< p> Sub Main ( )
de myConnection As OleDbConnection
Dim myCommand Comme OleDbCommand
mySQLString Dim As String
myConnection = new OleDbConnection _
( "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = D: \\ Temp \\ myTextData.mdb ;")
myConnection.Open ()
mySQLString = " CREATE cutomers TABLE ( FIRST_NAME TEXT, LAST_NAME texte) "
myCommand = New OleDbCommand ( mySQLString , myConnection )
myCommand.ExecuteNonQuery ()
mySQLString = " INSERT INTO VALUES cutomers ( 'Jean' , 'Smith' ) "
myCommand = New OleDbCommand ( mySQLString , myConnection )
myCommand.ExecuteNonQuery ()
mySQLString = " INSERT INTO VALUES cutomers (' JOHN ' , ' Smith ' ) "
myCommand = New OleDbCommand ( mySQLString , myConnection )
myCommand.ExecuteNonQuery ()
mySQLString =" ALTER TABLE cutomers ajouter du texte entre les sexes; "
myCommand = New OleDbCommand ( mySQLString , myConnection )
myCommand.ExecuteNonQuery ()
MsgBox (" Vous avez créé la table des clients et a ajouté un nouveau champ avec succès! " ) Photos End Sub End Module
4 Modifier cette ligne de code et tapez le nom de votre base de données Access .
( "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C : \\. CustomerData.mdb ; ")
exécuter votre programme en appuyant sur la touche" F5 "
|
