. No centro de todos os métodos de acesso a dados Visual Basic.Net 's reside ADO.Net . Esta tecnologia de acesso de dados foi lançado no original. Net . Ele se conecta com muitos servidores de banco de dados , incluindo o Microsoft Access, oferece mais flexibilidade e fornece tratamento de erros forte . Conexão com o Microsoft Access pode ser ilustrado através da criação de um aplicativo de console simples que lista nomes de um banco de dados de contatos. Instruções
1
Abra o Microsoft Access ( 2000 ou posterior) e criar um novo banco de dados chamado de contatos. Criar uma tabela tblContacts e adicionar dois campos de texto, Nome e Sobrenome. Digite alguns nomes em cima da mesa, em seguida, fechar o Access .
2
Abrir Visual Basic.Net (qualquer versão) e criar um novo aplicativo de console. Adicione a seguinte linha antes da instrução Módulo
importações System.Data.OleDb
Module Module1
O namespace OleDb fornece referências para os objetos de acesso a banco de dados.
< Br >
3
Adicione a seguinte linha antes da instrução Módulo
importações System.Data.OleDb
Module Module1
o namespace OleDb fornece referências para o banco de dados objetos de acesso
4
Insira uma seqüência de conexão após a declaração módulo
connString privada as String = "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = d: . . \\ contacts.mdb ; "
a seqüência de conexão descreve como OleDb irá se comunicar com o banco de dados . Tthis exemplo usa o provedor Microsoft ACE para se comunicar com o banco de dados de acesso
d: \\ contacts.mdb . Alterar o local para refletir o banco de dados que você criou no passo 1.
5
Copie o código abaixo para o método Main. Comece declarando a searchString variável, que contém o comando SQL para selecionar os dados .
Sub Main () Dim
searchString As String = " Select nome, sobrenome De tblContacts "
searchString & = " Ordenar por Sobrenome, Nome "; .
6
Estabelecer uma conexão com o banco de dados Access usando o objeto OleDbConnection
Dim conn as New OleDbConnection
Tente
conn.ConnectionString = connString
conn.Open ()
Pegar ex as Exception
Console.WriteLine (" não é possível abrir o banco de dados " )
Console.WriteLine ( ex.Message )
Voltar
End Try
Utilize sempre exceções estruturados ( try /catch ) para interceptar e relatório erros lançados pelos objetos de acesso a dados .
7
comando Criar e objetos adaptador de dados e usá-las para recuperar os resultados da pesquisa em uma nova estrutura DataSet.
Dim ds as New DataSet
Experimente em
Dim cmd As New OleDbCommand ( searchString , conn)
cmd.CommandType = CommandType.Text
Dim dap As New OleDbDataAdapter
dap.SelectCommand = cmd
dap.Fill (ds)
Pegar ex as Exception
Console.WriteLine ( "Não é possível executar a pesquisa Tente
8
Percorra as linhas do conjunto de dados para recuperar os campos Nome e Apelido . Desde acessando um valor nulo faz com que uma exceção, sempre testar valores nulos antes de recuperá-los .
Console.WriteLine ( "Contatos :") .
para cada linha As DataRow In ds.Tables (0) linhas
Se row.IsNull ( " Nome" ) = False Then
Console.Write ( row ( "Nome ") & "") End If
Se row.IsNull ( "Sobrenome" ) = True Se
Próxima
WriteLine ( "Found" e ds.Tables (0). Rows.Count.ToString e "contatos" )
End Sub
End Module
