• 
  

  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 ( ' 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

Relaterade artiklar