Microsoft Access é um pequeno motor de banco de dados utilizado por iniciantes ou para sites de pequeno porte. Você pode usar o Visual Basic (VB ) para consultar o banco de dados diretamente em seu código. Isso é benéfico para aqueles que querem oferecer um site dinâmico para seus leitores. Para consultar o banco de dados , você deve criar uma conexão, enviar a consulta e atribuir os resultados a sua própria variável Visual Basic. Instruções
1

Clique duas vezes no formulário do Visual Basic para abrir o código do arquivo e carregá-lo em seu editor de VB . Desça até a seção de seu código VB onde você quer colocar a conexão do banco de dados e consulta.
2

Crie a sua conexão com o banco . A variável de conexão contém o servidor e banco de dados ao qual você deseja se conectar. O código a seguir cria uma conexão :

Dim conn As String = " Data Source = localhost; Initial Catalog = Northwind ; Segurança Integrada = True "

Dim sqlcon Como SqlConnection = New SqlConnection ( conn)

sqlcon.Open ()

o "localhost" texto se conecta ao computador local, onde o código do Web site está localizado . Se o seu servidor de banco de dados estiver em um computador diferente , digite o nome do computador em vez de "localhost ". Substitua o " Adamastor ", com o nome do seu banco de dados.
3

Consultar as tabelas e recuperar suas informações de banco de dados. O código a seguir mostra como consultar Access usando a conexão criada na etapa três :

Dim variável As String = " Miami "

Dim strSelect As String = "SELECT * FROM Clientes WHERE City = '"& variável &"' "

Dim As New SqlDataAdapter dscmd ( strSelect , sqlcon )

Dim ds As New DataSet ()

dscmd.Fill ( ds , " clientes ")

No código acima, a consulta é enviada para o banco de dados Access usando a variável denominada" variável " . Esta variável contém a cidade "Miami ". Esta variável é enviada para a base de dados de acesso . A consulta é enviada e mantido em uma variável do conjunto de dados chamado " ds ".
4

Imprima o primeiro registro para testar o seu novo código. O código a seguir imprime o último nome do primeiro registro nos resultados da consulta :

MsgBox ds.Tables.Item ( " last_name " )