Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como acessar o Visual Basic para Importar dados Excel
Visual Basic é uma linguagem de programação Microsoft que é relativamente fácil de usar e Microsoft Access e Excel são aplicativos oferecidos na suíte Microsoft Office. Código Visual Basic.NET é essencial quando você está trabalhando com planilhas do Excel e precisa importar os dados para um banco de dados Access. Os dados podem ser necessários no Access para posterior manipulação de dados usando as ferramentas de banco de dados . Instruções
1

Inicie um novo projeto Visual Basic.NET e adicionar um "botão" para sua forma. Selecione o menu " Project" e clique em "Propriedades ". Selecione "Referências" e clique em "Adicionar ". Selecione "COM" e clique em " Microsoft Office 12.0 Object Library. " Selecione "OK".
2

Crie uma nova planilha do Excel e adicionar os seguintes dados:

Campo1 Campo2

Dados Dados2

Dados Dados2

salvar no "C: \\". " ExcelToImport.xls " como
3

clique duas vezes em "Button1 " no seu formulário para abrir " Form1.vb. " Digite o seguinte em " Button1_Click " para criar uma sub chamada:

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

MessageBox.Show (" a importação é completo ")
4

Digite o seguinte para criar um novo sub chamado " importAllData ", que irá criar um novo arquivo de banco de dados para a importação :

privada Shared Sub importAllData ( ByVal file_path As String , ByVal db_path As String)

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

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

accessDB.Visible = False

accessDB.NewCurrentDatabase ( db_path , = Nada

Dim conn Como OleDb.OleDbConnection = MakeExcelConnection ( file_path )

FillAccessDatabase (conn , db_path , file_path )

End Sub
5 < p > Digite o seguinte para criar um novo sub chamado " FillAccessDatabase " :

privada Shared Sub FillAccessDatabase (ByVal conexão, ByVal db_path , ByVal file_path )

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

Dim conexão Como OleDb.OleDbConnection = Novo OleDb.OleDbConnection ( conn)
< p > Dim _command Como OleDb.OleDbCommand = Novo OleDb.OleDbCommand ()

_command.Connection = conexão

_command.CommandText = "SELECT * INTO [MS Access; banco de dados = " & db_path & " ] FROM . [ Sheet1 ] Sub
6

Digite o seguinte para criar uma nova função chamada " MakeExcelConnection " :

Privada MakeExcelConnection Shared Function (ByVal fileName As String) Como OleDb.OleDbConnection

Dim conn As String

conn = "Provider = Microsoft.ACE.OLEDB.12.0 ; " & " Data Source = " & fileName & "," & " Extended Properties = Excel 12.0 ; "
< p > conexão Dim OleDb.OleDbConnection = Novo OleDb.OleDbConnection ( conn)

Retornar conexão

End Function
7

Execute o programa e clique em " Button1 " para importar "Sheet1" da planilha Excel para a mesa "Sheet1" no Access.

Anterior :

Próximo : No
  Os artigos relacionados
·Como lançar um Shell De VBS 
·Como acessar e-mail Com o Visual Basic 
·Como remover Suportes de uma string em VBA 
·Como Exportar para o acesso a partir de Visual Basic 
·Como excluir LPT VBS 
·Como excluir uma tabela dinâmica em VBA 
·Como usar VBS para retornar um conjunto de registros 
·Como importar uma Rede Básica de planilha Visual 
·Como acessar Textbox truncar dados 
·Como calcular o perímetro e área de um retângulo com…
  Artigos em destaque
·Como criar um programa em C no Visual Studio 
·Como usar ReadOuterXml Recursively 
·Como atualizar uma tabela de Consulta Via Acesso Form 
·Como escrever Bash Script para aceitar parâmetros de e…
·PHP : Erros de fazer upload de arquivos 
·Como arquivo Download & exposição a partir de banco d…
·Como usar o carregador de Preferências em um iPhone 
·A função de passagem em Python 
·Como dobrar o tamanho de uma matriz em Java 
·Como acessar o FlexGrid em VB6 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados