Visual Basic er et Microsoft programmeringsspråk som er relativt enkelt å bruke og Microsoft Access og Excel er programmer som tilbys i Microsoft Office-pakken. Visual Basic.NET kode er viktig når du arbeider med Excel regneark og trenger å importere dataene til en Access database. Dataene kan være nødvendig i Access for ytterligere data manipulasjon ved hjelp av databaseverktøy. Instruksjoner
en

Start en ny Visual Basic.NET prosjektet og legge til en " Button" i skjemaet. Velg " Prosjekt "-menyen og klikk " Egenskaper". Velg "Referanser" og klikk " Legg til". Velg " COM " og klikk " Microsoft Office 12.0 Object Library. " Velg " OK ".
2

Opprett en ny Excel-regneark og legge til følgende data : en

Felt1 felt2

data Data2

data Data2

Lagre den på "C : \\ " som " . ExcelToImport.xls "
3

Dobbeltklikk på " Button1 " på skjemaet for å åpne " Form1.vb . " Skriv inn følgende under " button1_click " for å lage en sub samtale : en

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

MessageBox.Show ( " importen er fullført ")
4

Skriv inn følgende for å opprette en ny sub som heter" importAllData " som vil skape en ny database fil for import :

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

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

accessDB = Ny Microsoft.Office.Interop.Access.ApplicationClass ( )

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Ingenting

Dim conn Som OleDb.OleDbConnection = MakeExcelConnection ( Filbane )

FillAccessDatabase ( conn, db_path , Filbane )

End Sub
5

Skriv inn følgende for å opprette en ny sub som heter " FillAccessDatabase " : en

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

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

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

_command.Connection = forbindelse

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

Skriv inn følgende for å opprette en ny funksjon kalt " MakeExcelConnection " : en

Private Delt Funksjon MakeExcelConnection ( ByVal fileName As String ) As OleDb.OleDbConnection

Dim conn As String

conn = " Provider = Microsoft.ACE.OLEDB.12.0 ; " & "Data Source = " & fileName & "," & " Utvidet Properties = Excel 12,0 ; "
< p > Dim forbindelse Som OleDb.OleDbConnection = Ny OleDb.OleDbConnection ( conn )

Returtilkobling

End Function
7

Kjør programmet og klikk på " Button1 " å importere " Ark1 " av Excel regneark til " Ark1 " tabellen i Access.