Saber usar um DataSet para acessar as informações do banco de dados pode fazer sua aplicação mais dinâmica. Um DataSet contém informações a partir de dados obtidos através de uma fonte de dados, que é então acessado por meio de programação . Você pode usar o Microsoft Visual Basic.NET para acessar informações em um banco de dados Access. VB.NET é uma linguagem de programação de computador que os engenheiros de software usam para desenvolver Web , aplicações móveis e desktop. Você também pode usar um DataSet com outras linguagens de programação como C #. Instruções
1

Inicie o Microsoft Visual Basic Express, e clique em " New Project" no painel esquerdo da tela do computador . Clique em " Visual Basic" abaixo " modelos instalados ", e clique em " Windows Forms Application ". Clique em " OK".
2

duplo clique em " ListBox " no painel "Toolbox " para adicionar um novo controle de caixa de listagem para o seu formulário. Clique duas vezes em "Button" no painel "Toolbox " para adicionar um novo botão .
3

Clique duas vezes em "Button1 " para abrir o módulo " Form1.vb " . Digite o seguinte acima " Public Class Form1 " para declarar o namespace:

Imports System.Data.OleDb
4

Digite o seguinte abaixo " Button1_Click " para declarar as variáveis ​​: < br >

Dim oleDBConn Como OleDbConnection

Dim strSQL as String Dim

dset Como DataSet
5

Digite o seguinte para definir a string de consulta SQL e definir o conexão com o banco de dados Northwind :

strSQL = " . produtos selecionados * FROM produtos ; "

oleDBConn = New OleDbConnection _

( "Provider = Microsoft.ACE.OLEDB . 12,0 ; Data Source = C: \\ Adamastor 2007.accdb ; ")

Edite a seguinte linha de código , e digite o caminho eo nome do seu banco de dados Access :

( " Provider = Microsoft . ACE.OLEDB.12.0 ; Data Source = C: \\ Adamastor 2007.accdb ; ")
6

Digite o seguinte para fazer a conexão e para preencher o DataSet com os dados da tabela Produtos :

Dim makeConn Como OleDbConnection = New OleDbConnection

Dim dataAptr Como OleDbDataAdapter

dataAptr = New OleDbDataAdapter ( strSQL , oleDBConn )

dset = New DataSet

dataAptr.Fill ( dset , "Produtos" )
7

Digite o seguinte para acessar as colunas DataSet e adicionar informações da coluna para o controle de caixa de lista :

para Cada myRows em dSet.Tables ("Produtos "). Linhas

Me.ListBox1.Items.Add ( myRows ("Código do Produto" ) . ToString )

Me.ListBox1.Items.Add ( myRows . ( " Nome do Produto " ) ToString )

Próxima
8

Digite o seguinte para fechar a conexão :

makeConn.Close ()

Pressione " F5" para executar o programa e clique em "Button1 " para executar o código.