Como usar o provedor gerenciado do .NET ODBC no Visual Basic .NET e seqüências de conexão

• Driver de ODBC do Microsoft SQL
• Driver Microsoft ODBC para Oracle
• Driver ODBC do Microsoft Jet

Voltar para o início

Baixe o provedor de ODBC do .NET

1. Fazer o download do ODBC gerenciado provedor .NET do seguinte site da Microsoft:
   http://www.microsoft.com/downloads/details.aspx?familyid=6ccd8427-1017-4f33-a062-d165078e32b1 (http://www.microsoft.com/downloads/details.aspx?familyid=6ccd8427-1017-4f33-a062-d165078e32b1)
2. O provedor de dados ODBC .NET também requer que você instalar o Microsoft Data Access Components (MDAC) versão 2.7 ou posterior. Você pode baixar a versão mais recente do MDAC no seguinte site da Microsoft:
   http://msdn.microsoft.com/en-us/data/aa937729.aspx (http://msdn.microsoft.com/en-us/data/aa937729.aspx)
3. Depois de instalar o provedor de dados ODBC .NET, vá para a próxima seção para criar o projeto.

Voltar para o início

Criar o projeto

1. Inicie o Microsoft Visual Studio NET.
2. Crie um novo projeto Visual Basic Windows Application. Form1 é adicionado para o projeto por padrão.
3. No menu Project , clique em Add Reference .
4. Na guia .NET , clique em Microsoft.Data.ODBC.dll . Depois que o assembly Microsoft.Data.ODBC.dll aparece na lista de componentes selecionados, clique em OK .
5. Alterne para modo de exibição código e adicione o código a seguir imediatamente antes do código de Public Class Form1 :

       Imports System.Data
       Imports Microsoft.Data.ODBC
   					

6. Adicione quatro controles de botão a Form1 e rotular esses controles SQL Server , Jet , Oracle e DSN respectivamente.

Voltar para o início

Exemplos de seqüência de caracteres de conexão

1. Adicione o seguinte código ao botão de SQL Server :

        Dim cn As OdbcConnection
        cn = New OdbcConnection("DRIVER={SQL Server};SERVER=MySQLServer;UID=sa;" & _
                                "PWD=mypassword;DATABASE=northwind;")
   
        Dim mystring As String = "select * from Customers"
        Dim cmd As OdbcCommand = New OdbcCommand(mystring)
        cn.Open()
        MsgBox("Connected")
        cn.Close()
   					

2. Adicione o seguinte código ao botão de Jet :

        Dim cn as OdbcConnection
        cn = New OdbcConnection ("Driver={Microsoft Access Driver (*.mdb)};" & _
             "DBQ=D:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb;UID=;PWD=")
        Dim mystring As String = "Select * from Titles"
        Dim cmd as OdbcCommand = New OdbcCommand(mystring)
        cn.Open()
        MsgBox("Connected")
        cn.Close()
   					

3. Adicione o seguinte código ao botão Oracle :

        Dim cn as OdbcConnection
        cn= New OdbcConnection ("Driver = {Microsoft ODBC for Oracle};" & _
                                "Server=myOracleserver;uid=myuid;pwd=mypwd")
        Dim myString as String = "Select * from Customers"
        dim cmd as OdbcCommand = New OdbcCommand(myString)
        cn.open()
        MsgBox "Connected"
        cn.Close
   					

4. Adicione o seguinte código ao botão DSN :

        Dim cn as OdbcConnection
        cn = New OdbcConnection ("dsn=MyDSN;uid=sa;pwd=myPassword;")
        Dim mystring As String = "Select * from customers"
        Dim cmd As OdbcCommand = New OdbcCommand(mystring)
        cn.Open()
        MsgBox("Connected")
        cn.Close()
   					

5. Modificar as seqüências OdbcConnection conforme apropriado para seu ambiente.

Voltar para o início

Testar o aplicativo cliente

1. Pressione a tecla F5 para compilar e executar o aplicativo.
2. Clique em cada botão. Será exibida uma caixa de mensagem, que afirma que você se conectou com êxito seus dados.

Voltar para o início

Solução de problemas

    Try
    cn.Open()
    Catch ex as OdbcException
    MsgBox(ex.Message)
    Finally
    cn.Close()
    End Try
				

Voltar para o início