Muitas vezes você precisa para exportar dados para acesso a partir de Visual Basic , se você precisar manipular ainda mais os dados por meio de consultas no Access. No VB você pode usar o " OleDbConnection " para fazer uma conexão com o Access e , em seguida, a classe " OleDbCommand " é usado para criar tabelas ou inserir dados em tabelas do Access . Um controle de exibição de grade de dados é comumente usado em VB para exibir dados em um formato tabular semelhante a uma tabela de banco de dados . Usando um controle de exibição de grade de dados para exibir dados é útil para o usuário e para os programadores ao exportar para uma tabela do Access . Instruções
1
Inicie o Microsoft Visual Basic Express , clique em " New Project ... " no painel esquerdo da tela. Selecione " Windows Forms Application ". Clique em " OK".
2
duplo clique em " DataGridView " no painel " Toolbox" para adicionar um novo controle de exibição de grade de dados. Adicione um novo botão usando a mesma técnica .
3
Clique duas vezes no formulário para criar um evento de carregamento do formulário. Digite o código a seguir para adicionar dados para o controle de grade :
Me.DataGridView1.ColumnCount = 2
Com DataGridView1
RowHeadersVisible = False
. . Colunas (0). Name = "Digite "
Colunas. (1). Name = "Status"
. SelectionMode = DataGridViewSelectionMode.FullRowSelect
End With
Dim row0 As String () = {" iPad ", " Esgotado "}
Dim row1 As String () = { "Monitor ", " Em estoque "}
Com Me.DataGridView1.Rows
. Add ( row0 )
. Add ( linha1 )
End With
4
Clique em " Form1.vb [Design ] " e clique duas vezes em " Button1 "para criar um evento de clique do botão. Digite o seguinte código para declarar novas variáveis que você vai usar para exportar os dados de exibição de grade de dados:
Dim dbconn Como OleDbConnection
Dim DBCommand Como OleDbCommand
Dim SQLString As String
5
Digite o seguinte para criar e abrir a conexão para o Access :
dbconn = New OleDbConnection ( "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C: \\ Adamastor 2007.accdb ; ")
dbConn.Open ()
6
Criar uma nova tabela no Access , onde os dados serão exportados para :
SQLString =" CREATE TABLE gridData ( tipo de texto , texto de status ) "
DBCommand = New OleDbCommand ( SQLString , dbconn )
dbCommand.ExecuteNonQuery ()
7
loop através de cada célula no controle de exibição de grade de dados e exportar os dados para a tabela do Access que você criou no passo anterior , adicionando o seguinte código:
para cada linha Como DataGridViewRow em DataGridView1.Rows
SQLString = " INSERT INTO gridData (Type, Estado ) "
SQLString = SQLString & " VALUES ( '" & row.Cells.Item ( "tipo") . Value & " ' , "
SQLString = SQLString & "'" & row.Cells.Item ( "Status" ) . Value & " ')"
DBCommand = New OleDbCommand ( SQLString , dbconn )
dbCommand.ExecuteNonQuery ()
Próxima
dbConn.Close ()
8
Pressione " F5" para executar o programa e clique em " Button1 " para exportar os dados para o Access. < br >
