Saber como executar consultas e acessar as informações retornadas por uma consulta usando o Microsoft Visual Basic.NET você pode economizar tempo se você estiver trabalhando com bancos de dados . Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional oferecido no pacote Office , enquanto uma consulta é usada para recuperar informações de uma tabela do banco de dados . VB.NET é uma linguagem de programação de computadores que é relativamente fácil de aprender e usar . Felizmente, você pode escrever código VB e aceder a uma consulta VB em apenas alguns minutos. Coisas que você precisa
Microsoft Visual Basic Express & dados Adamastor Acesso
Show Mais instruções
1
Abra Microsoft Visual Basic Express. Clique em " New Project ... ", e , em seguida, selecione " Windows Forms Application ". Clique em " OK".
2
Clique duas vezes em "Button" no painel " Toolbox" para adicionar um novo controle de botão. Clique duas vezes em " DataGridView " para adicionar um novo controle de grade. Clique duas vezes em "Button1 " para abrir o módulo " Form1.vb " . Pressione " Ctrl" e "A" ao mesmo tempo , seguido de " Excluir " para remover todo o código existente.
3
Copie e cole o código abaixo para se conectar ao banco de dados Northwind, consultar os "Produtos " tabela e exibir o conteúdo através do" controle Data Grid View " :
Importações System.Data.Odbc.OdbcConnection
Public Class Form1
Private Sub Button1_Click (sender como System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
Dim nwindConn como Odbc.OdbcConnection
Dim qryStr As String
nwindConn = Novo Odbc.OdbcConnection ( "DSN = NORTHWIND " )
nwindConn.Open ()
qryStr = "SELECT produtos . [ Código do Produto ] , os produtos . [nome do produto ]",
qryStr = qryStr & " Products.Description , os produtos . [Custo padrão] , "
qryStr = qryStr e "Produtos . [Lista de Preços ] , os produtos . [ Reordenar Level] "
qryStr = qryStr & "FROM produtos ; "
Dim da As New Odbc.OdbcDataAdapter ( qryStr , nwindConn )
Dim ds As New Data.DataSet
da.Fill ( ds , " myTable " )
Com DataGridView1
. DataSource = ds.Tables ( " MyTable " )
End With
nwindConn.Close ()
nwindConn.Dispose ()
nwindConn = Nothing
End Sub End Class
4
Edite a seguinte linha de código por remoção " NORTHWIND " e digitando o nome do seu DSN (DSN = ) : F5
nwindConn = Novo Odbc.OdbcConnection ( "DSN = NORTHWIND " )
Imprensa " "para executar o programa e clique em " Button1 " .
