Att veta hur man lägger till ett nytt fält i en Microsoft Office Access databastabell med hjälp av Visual Basic. NET kan göra ditt program mer dynamisk . Access är en relationsdatabas som ingår i Microsoft Office-paketet. VB. NET är ett objektorienterat programmeringsspråk språk ofta föredras av programmerare för dess användarvänlighet . I några få steg kan du skriva VB. NET kod för att skapa en ny tabell , använd sedan " ALTER TABLE " uttalande för att skapa ett nytt fält
1 .
Öppna Microsoft Visual Basic Express och klicka på " Nytt projekt . . . " i den vänstra rutan på skärmen . Dubbelklicka på " Console Application " i mitten rutan i " Nytt projekt " Fönster .
2 .
Tryck på " Ctrl " och " A "och sedan trycka på "Delete " för att radera alla befintlig kod .
3 .
Kopiera och klistra in den här koden till din " Module1. vb " modul .
Import System. Data. OleDb
Modul Module1
Sub Main ( )
Dim myConnection Som OleDbConnection
Dim myCommand Som OleDbCommand
Dim mySQLString As String
myConnection=Nya OleDbConnection _
( " Provider=Microsoft . Jet. OLEDB. 4. 0 , Data Source=D : \ Temp \ myTextData. mdb ; ")
myConnection. Open ( )
mySQLString=" CREATE TABLE cutomers (förnamn TEXT , efternamn text) "
myCommand=Nya OleDbCommand ( mySQLString , myConnection )
myCommand. ExecuteNonQuery ( )
mySQLString=" INSERT INTO cutomers VALUES ( ' John ' , 'Svensson' ) "
myCommand=Nya OleDbCommand ( mySQLString , myConnection )
myCommand. ExecuteNonQuery ( )
mySQLString=" INSERT INTO cutomers VALUES ( ' John ' , 'Svensson' ) "
myCommand=Nya OleDbCommand ( mySQLString , myConnection )
myCommand . ExecuteNonQuery ( )
mySQLString=" ALTER TABLE cutomers ADD KÖN text, "
myCommand=Nya OleDbCommand ( mySQLString , myConnection )
myCommand. ExecuteNonQuery ( )
MsgBox ( " Du har skapat tabellen Kunder och lagt ett nytt område med framgång ! " )
End Sub
ändmodul
4 .
Redigera denna kodrad och typ namnet på din Access-databas .
( " Provider=Microsoft . Jet. OLEDB. 4. 0 , Data Source=C: \ CustomerData. mdb ; " )
Kör ditt program genom att trycka "F5 "
.
Previous:nothing Next:hur man använder ett Räknare i Visual Basic