Visual Basic er en Microsoft programmeringssprog, der er forholdsvis let at bruge og Microsoft Access og Excel er applikationer , der tilbydes i Microsoft Office-pakken. Visual Basic.NET kode er afgørende, når du arbejder med Excel regneark og har brug for at importere data til en Access-database. Dataene kan være behov i Access for yderligere data manipulation ved hjælp databaseværktøjer . Instruktioner
1

Start et nyt Visual Basic.NET projektet og tilføje et " knap" til formularen . Vælg " Projekt "-menuen og klikke på " Egenskaber". Vælg "Referencer" og klik på " Tilføj". Vælg " COM" og klik på " Microsoft Office 12,0 Object Library ". Vælg "OK".
2

Opret et nyt Excel- regneark, og tilføje følgende data : Hej

felt1 felt2

data Data2

data Data2

Gem til "C: \\ " som " . ExcelToImport.xls "
3

Dobbeltklik på " Button1 " på din formular til at åbne " Form1.vb . " Indtast følgende under " Button1_Click " for at oprette en sub opkald : Hej

importAllData ( "C: \\ ExcelToImport.xls ", " C: \\ AccessFile.mdb " )

MessageBox.Show ( " importen er færdig " )
4

Skriv følgende for at oprette en ny sub kaldet" importAllData ", som vil oprette en ny database -fil til import :

Private Shared sub ​​importAllData ( ByVal file_path As String , ByVal db_path As String )

Dim accessDB Som Microsoft.Office.Interop.Access.Application

accessDB = Ny Microsoft.Office.Interop.Access.ApplicationClass () < br >

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Nothing

Dim conn Som OleDb.OleDbConnection = MakeExcelConnection ( file_path )

FillAccessDatabase ( conn , db_path , file_path )

End Sub
5 < p > Skriv følgende for at oprette en ny sub kaldet " FillAccessDatabase " : Hej

Private Shared sub ​​FillAccessDatabase ( ByVal conn , ByVal db_path , ByVal file_path )

conn = " Provider = Microsoft.ACE.OLEDB .12.0 ; "& " Data Source = "& file_path & ", " &" Udvidede Properties = Excel 12,0 , "

Dim tilslutning Som OleDb.OleDbConnection = Ny OleDb.OleDbConnection ( conn )
< p > Dim _command Som OleDb.OleDbCommand = Ny OleDb.OleDbCommand ()

_command.Connection = tilslutning

_command.CommandText = "SELECT * INTO [ MS Access , Database = " & db_path & " ] . [ Ark1 ] FROM Sub
6

Skriv følgende for at oprette en ny funktion kaldet " MakeExcelConnection " : Hej

Private Shared Function MakeExcelConnection ( ByVal filnavn som String ) Som OleDb.OleDbConnection

Dim conn As String

conn = " Provider = Microsoft.ACE.OLEDB.12.0 , " & "Data Source = " & fileName & "," & " Udvidede Properties = Excel 12,0 , "

Dim tilslutning Som OleDb.OleDbConnection = Ny OleDb.OleDbConnection ( conn )

Return tilslutning

End Function
7

Kør dit program og klik på " Button1 " til at importere " Ark1 " i din Excel-regneark til " Ark1 " tabel i Access.