Sapendo come aggiungere un nuovo campo a una tabella di database di Microsoft Office Access utilizzando Visual Basic.NET può rendere il programma più dinamico. Access è un relational database management system incluso nella suite Microsoft Office. VB.NET è un orientato programmazione lingua spesso preferito dai programmatori per la sua facilità d'uso. In pochi passi è possibile scrivere codice VB.NET per creare una nuova tabella, quindi utilizzare l'istruzione "ALTER TABLE" per creare un nuovo campo.
Istruzioni
1
Aprire Microsoft Visual Basic Express e fare clic su "Nuovo progetto..." nel riquadro sinistro dello schermo. Fare doppio clic su "Applicazione Console" nel riquadro centrale della finestra "Nuovo progetto".
2
Premere "Ctrl" e "A", quindi premere "Elimina" per eliminare tutto il codice esistente.
3
Copia e incolla questo codice per il modulo "Module1. vb".
Le importazioni System.Data.OleDb
Module Module1
Sub Main()
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim mySQLString As String
myConnection = New OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Temp\myTextData.mdb;")
myConnection.Open()
mySQLString = "CREATE TABLE cutomers (FIRST_NAME TEXT, LAST_NAME TEXT)"
myCommand = New OleDbCommand(mySQLString, myConnection)
myCommand.ExecuteNonQuery()
mySQLString = "INSERT INTO cutomers VALUES('JOHN','SMITH')"
myCommand = New OleDbCommand(mySQLString, myConnection)
myCommand.ExecuteNonQuery()
mySQLString = "INSERT INTO cutomers VALUES('JOHN','SMITH')"
myCommand = New OleDbCommand(mySQLString, myConnection)
myCommand.ExecuteNonQuery()
mySQLString = "ALTER TABLE cutomers ADD GENDER TEXT;"
myCommand = New OleDbCommand(mySQLString, myConnection)
myCommand.ExecuteNonQuery()
MsgBox("You created the customers table and added a new field successfully!")
End Sub
End Module
4
Modificare questa riga di codice e digitare il nome del database di Access.
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CustomerData.mdb;")
Eseguire il programma con il tasto "F5".