November 10
Visual Basic è un linguaggio di programmazione di Microsoft che è relativamente facile da usare e Microsoft Access ed Excel sono applicazioni offerti nella suite Microsoft Office. codice Visual Basic.NET è essenziale quando si lavora con fogli di calcolo Excel e la necessità di importare i dati da un database di Access. I dati possono essere necessari in Access per la manipolazione di ulteriori dati utilizzando strumenti di database.
1 Avviare un nuovo progetto Visual Basic.NET e aggiungere un "pulsante" per il modulo. Selezionare il menu "Progetto" e fare clic su "<nomeprogetto> Proprietà". Seleziona "Riferimenti" e fare clic su "Aggiungi". Selezionare "COM" e fare clic su "Microsoft Office 12.0 Object Library". Selezionare "OK".
2 Creare un nuovo foglio di calcolo Excel e aggiungere i dati seguenti:
Field1 Campo2
Data2 dati
Data2 dati
Salva in "C: \" come "ExcelToImport.xls."
3 Fare doppio clic su "Button1" sul modulo per aprire "Form1.vb". Digitare il seguente sotto "Button1_Click" per creare una chiamata sub:
importAllData ( "C: \ ExcelToImport.xls", "C: \ AccessFile.mdb")
MessageBox.Show("The import is complete!")
4 Digitare la seguente per creare una nuova sotto chiamato "importAllData" che creerà un nuovo file di database per l'importazione:
In comune (percorso_file ByVal come stringa, ByVal db_path come stringa) Sub importAllData
Dim accessDB As Microsoft.Office.Interop.Access.Application
AccessDB = Nuovo Microsoft.Office.Interop.Access.ApplicationClass ()
accessDB.Visible = False
accessDB.NewCurrentDatabase (db_path, Microsoft.Office.Interop.Access.AcNewDatabaseFormat.acNewDatabaseFormatAccess2007)
accessDB.CloseCurrentDatabase ()
accessDB.Quit (Microsoft.Office.Interop.Access.AcQuitOption.acQuitSaveAll)
AccessDB = Nothing
conn fioco come OleDb.OleDbConnection = MakeExcelConnection (file_path)
FillAccessDatabase (conn, db_path, percorso_file)
End Sub
5 Digitare la seguente per creare una nuova sotto denominata "FillAccessDatabase":
In comune Sub FillAccessDatabase (ByVal conn, ByVal db_path, ByVal percorso_file)
conn = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & file_path & ";" & "Extended Properties=Excel 12.0;"
collegamento fioco come OleDb.OleDbConnection = Nuovo OleDb.OleDbConnection (conn)
Dim _command Come OleDb.OleDbCommand = Nuovo OleDb.OleDbCommand ()
_command.Connection = collegamento
_command.CommandText = "SELECT * INTO [MS Access; Database =" & db_path & "] [Foglio1] FROM [Sheet1 $]."
connection.Open ()
_command.ExecuteNonQuery ()
connection.Close ()
End Sub
6 Digitare la seguente per creare una nuova funzione chiamata "MakeExcelConnection":
In comune Funzione MakeExcelConnection (ByVal nome del file come stringa) come OleDb.OleDbConnection
Dim conn As String
conn = "Provider = Microsoft.ACE.OLEDB.12.0;" E "Data Source =" & fileName & ";" E "Extended Properties = Excel 12.0;"
collegamento fioco come OleDb.OleDbConnection = Nuovo OleDb.OleDbConnection (conn)
il collegamento di ritorno
End Function
7 Eseguire il programma e fare clic su "Button1" per importare "Sheet1" del foglio di calcolo di Excel a tavola "Sheet1" in Access.