Como utilizar o fornecedor de gestão do ODBC .NET no Visual Basic .NET e ligação cadeias

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

Voltar ao topo

Transferir o fornecedor de ODBC do .NET

1. Transferir o fornecedor de gestão do ODBC .NET a partir do seguinte Web 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 fornecedor de dados ODBC .NET também requer a instalação Microsoft Data Access Components (MDAC) versão 2.7 ou posterior. Pode transferir a versão mais recente do MDAC a partir do seguinte Web 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 fornecedor de dados ODBC .NET, avance para a secção seguinte para criar o projecto.

Voltar ao topo

Criar projecto

1. Inicie o Microsoft Visual Studio NET.
2. Crie um novo projecto de aplicação do Windows do Visual Basic. Form1 é adicionado ao projecto por predefinição.
3. No menu projecto , clique em Add Reference .
4. No separador .NET , clique em Microsoft.Data.ODBC.dll . Depois da assemblagem Microsoft.Data.ODBC.dll aparece na lista de componentes seleccionados, clique em OK .
5. Mude para vista de código e adicione o seguinte código imediatamente antes do código Público classe Form1 :

       Imports System.Data
       Imports Microsoft.Data.ODBC
   					

6. Adicione quatro controlos botão ao Form1 e rotular estes controlos Do SQL Server , Jet , Oracle e DSN respectivamente.

Voltar ao topo

Exemplos de cadeia de ligaçã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 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 cadeias OdbcConnection conforme apropriado para o ambiente.

Voltar ao topo

Testar a aplicação cliente

1. Prima a tecla F5 para compilar e executar a aplicação.
2. Clique em cada botão. Aparece uma caixa de mensagem, que indica que estabeleceu com êxito os dados.

Voltar ao topo

Resolução de problemas

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

Voltar ao topo