|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Komma åt Visual Basic för att importera Excel Data

    Visual Basic är ett Microsoft programmeringsspråk som är relativt lätt att använda och Microsoft Access och Excel är program som erbjuds i Microsoft Office-paketet . Visual Basic.NET kod är viktigt när du arbetar med Excel och behöver importera data till en Access-databas . Uppgifterna kan behövas i Access för vidare uppgifter manipulation med databasverktyg . Instruktioner
    1

    Starta ett nytt Visual Basic.NET projekt och lägg en " knapp " på ditt formulär . Välj " Project " -menyn och klicka på " Egenskaper . " Välj " Referenser " och klicka på " Lägg till ". Välj " COM " och klicka på " Microsoft Office 12.0 Object Library . " Välj " OK ".
    2

    Skapa en ny Excel och lägga till följande uppgifter :

    Fält1 fält2

    Data Data2

    Data Data2

    Spara det till " C : \\ " som " . ExcelToImport.xls " Addera 3

    Dubbelklicka på " Button1 " på formuläret för att öppna " Form1.vb . " Skriv följande under " Button1_Click " för att skapa en sub samtal :

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

    MessageBox.Show ( " importen är klar " )
    4

    Skriv följande för att skapa en ny sub heter " importAllData " som kommer att skapa en ny databas fil för import :

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

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

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

    accessDB.Visible = False

    accessDB.NewCurrentDatabase ( db_path , = Nothing

    Dim conn Som OleDb.OleDbConnection = MakeExcelConnection ( file_path ) katalog

    FillAccessDatabase ( conn , db_path , file_path ) katalog

    End Sub
    5 < p > Skriv följande för att skapa en ny sub heter " FillAccessDatabase " :

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

    conn = " Provider = Microsoft.ACE.OLEDB .12.0 , " & " Data Source = " & file_path & " , " & " Utökade Egenskaper = Excel 12,0 ; "

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

    _command.Connection = anslutning

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

    Skriv följande för att skapa en ny funktion som kallas " MakeExcelConnection " :

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

    Dim conn As String

    conn = " Provider = Microsoft.ACE.OLEDB.12.0 , " & " Data Source = " & filnamn & " , " & " Utökade Egenskaper = Excel 12,0 ; "
    < p > Dim anslutning Som OleDb.OleDbConnection = Ny OleDb.OleDbConnection ( conn ) katalog

    Retur

    End Function
    7

    Kör programmet och klicka på " Button1 " att importera " Tabell1 " i ditt Excel-ark för att " Tabell1 " tabell i Access .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur byter jag namn på filer med VBS Script
    ·Hur: Läs Image Header i VB.Net
    ·Xcode Tutorial Webbläsare
    ·Hur man skapar ActiveX i VB
    ·Hur manuellt Konvertera FoxPro till VB6
    ·Hur ansluta VB6 till PHP Med ODBC
    ·Hur sortera från stora till små i VB.Net
    ·Hur man skriver en if-sats i Visual Basic
    ·Vad är OCX i Visual Basic
    ·Hur anmäler en User Terminal Service på VB.Net
    Utvalda artiklarna
    ·Hur Rita flera figurer i Java
    ·Hur man skapar en lista med färger i JSP
    ·Vad är Java TM 2 Platform
    ·Hur man identifierar storleken på en Viewport
    ·Hur du skriver ut en fil i ett e PHP
    ·Varför fungerar inte min Kryssruta Titta Disabled
    ·COBOL Fakta
    ·Hur man skickar en virtuell Basic fax
    ·Hur konvertera en BMP till en byte array
    ·Introduktion till Singulärvärdesuppdelning
    Copyright © Dator Kunskap http://www.dator.xyz