hvordan du tilføjer feltadgangen med Visual Basic

Indlæg af Dan Dejligbjerg     opdateret: 2011-10-25

Vide, hvordan man tilføjer et nyt felt til en Microsoft Office Access -database tabel ved hjælp af Visual Basic. NET kan gøre dit program mere dynamisk . Access er en relationel database management system inkluderet i Microsoft Office-pakke. VB. NET er et objekt-orienteret programmering sprog foretrækkes ofte af programmører for sin brugervenlighed . I et par trin , du kan skrive VB. NET kode for at oprette en ny tabel , og derefter bruge " ALTER TABLE "-sætning for at skabe et nyt felt
1 .
Åbn Microsoft Visual Basic Express og klik på " Nyt projekt . . . " i venstre rude på skærmen . Dobbeltklik på " Console Application " i den midterste rude i " Nyt projekt " Window .
2 .
Tryk på " Ctrl " og " A ", og tryk derefter på "Slet " for at slette alle eksisterende kode .
3 .
Kopier og indsæt denne kode til din " Module1. vb "-modulet .
Import System. Data. OleDb

Modul Module1

Sub Main ( )

Dim MinForbindelse Som OleDbConnection

Dim myCommand Som OleDbCommand
Dim mySQLString As String

MinForbindelse=Ny OleDbConnection _
( " Udbyderen=Microsoft . Jet. OLEDB. 4. 0 ; Data Source=D : \ Temp \ myTextData. mdb " )
myConnection. Open ( )

mySQLString=" CREATE TABLE cutomers ( FIRST_NAME TEKST , Last_Name TEXT ) "
myCommand=Ny OleDbCommand ( mySQLString , MinForbindelse )
myCommand. ExecuteNonQuery ( )


mySQLString=" INSERT INTO cutomers VALUES ( 'John ', ' SMITH ') "
myCommand=Ny OleDbCommand ( mySQLString , MinForbindelse )

myCommand. ExecuteNonQuery ( )

mySQLString=" INSERT INTO cutomers VALUES ( 'John ', ' SMITH ') "
myCommand=Nye OleDbCommand ( mySQLString , MinForbindelse )
myCommand . ExecuteNonQuery ( )

mySQLString=" ALTER TABLE cutomers ADD KØN TEKST "
myCommand=Ny OleDbCommand ( mySQLString , MinForbindelse )

myCommand. ExecuteNonQuery ( )

MsgBox ( " Du har skabt tabellen Kunder og tilføjet et nyt felt med succes! " )


End Sub

endemodul
4 .
Rediger denne linje kode og type navnet på din Access -database .

( " Provider=Microsoft . Jet. OLEDB. 4. 0 ; Data Source=C : \ CustomerData. mdb " )

Kør dit program ved at trykke " F5 "
.


Previous:hvordan man får adgang tælle poster i forespørgslen Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change