hur du lägger till fältet åtkomst med Visual Basic

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 ( &#039 John &#039 , &#039Svensson&#039 ) ”

myCommand=Nya OleDbCommand ( mySQLString , myConnection )

myCommand. ExecuteNonQuery ( )

mySQLString=” INSERT INTO cutomers VALUES ( &#039 John &#039 , &#039Svensson&#039 ) ”

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 ”
.