Visual Basic .NET ve baðlantý dizeleri ODBC .NET yönetilen saðlayýcý nasýl kullanýlýr

• Microsoft SQL ODBC sürücüsü
• Oracle için Microsoft ODBC sürücüsü
• Microsoft Jet ODBC sürücüsü

Üste

ODBC .NET Saðlayýcýsý'ný karþýdan yükleyin

1. ODBC .NET yönetilen saðlayýcý, aþaðýdaki Microsoft Web sitesinden yükleyin:
   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. ODBC .NET Data Provider, ayný zamanda, Microsoft Data Access Components (MDAC) 2.7 veya sonraki sürümünü yüklemenizi gerektirir. MDAC'NIN en son sürümünü, aþaðýdaki Microsoft Web sitesinden yükleyebilirsiniz:
   http://msdn.microsoft.com/en-us/data/aa937729.aspx (http://msdn.microsoft.com/en-us/data/aa937729.aspx)
3. ODBC .NET Data Provider'ý yükledikten sonra proje oluþturmak için sonraki bölüme geçin.

Üste

Proje oluþturma

1. Microsoft Visual Studio NET baþlatýn.
2. Yeni bir Visual Basic Windows Application projesi oluþturun. Form1, varsayýlan olarak projeye eklenir.
3. Proje) menüsünde Add Reference ' ý týklatýn.
4. .NET</a0> sekmesinde, Microsoft.Data.ODBC.dll týklatýn. Seçili bileþenler listesinde Microsoft.Data.ODBC.dll derleme görüntülendikten sonra Tamam ' ý týklatýn.
5. Kod görünümüne geçin ve Ortak sýnýf Form1 kodundan hemen önce aþaðýdaki kodu ekleyin:

       Imports System.Data
       Imports Microsoft.Data.ODBC
   					

6. Form1'e dört Düðme denetimi ekleyin ve bu denetimler, SQL Server, Jet, Oracle ve DSN sýrasýyla etiketlendirin.

Üste

Baðlantý dizesi örnekleri

1. SQL Server düðmeyi aþaðýdaki kodu ekleyin:

        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. Jet düðmeyi aþaðýdaki kodu ekleyin:

        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. Oracle düðmeyi aþaðýdaki kodu ekleyin:

        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. DSN düðmeyi aþaðýdaki kodu ekleyin:

        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. OdbcConnection dizeleri ortamýnýza uygun olarak deðiþtirin.

Üste

Ýstemci uygulamasýný sýnama

1. Derlemek ve bu uygulamayý çalýþtýrmak için F5 tuþuna basýn.
2. Her düðmesini týklatýn. Bir ileti kutusu verilerinizi baþarýyla baðlandýysanýz hangi durumlarý görünür.

Üste

SORUN GÝDERME

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

Üste