vb mysql 设置数据源_vb.net 使用odbc 数据源

在vb.net中使用odbc数据源。需要odbc.net的支持。

1.下载ODBC.NET (FrameWork 2.0以上默认未安装)

下载地址:http://www.microsoft.com/downloads/details.aspx?familyid=6ccd8427-1017-4f33-a062-d165078e32b1

2.创建项目，添加Microsoft.Data.ODBC.dll 引用

3.vb.net里要通过odbc连接数据库

在vb.net中创建一个module

imports   System.Data

Imports   System.Data.Odbc

‘数据连接部分

myStrConn   =   "DSN=Check2005;PWD=xg2005;"

Try

myConn   =   New   OdbcConnection(myStrConn)

myConn.Open()

Catch   ex   As   Exception

MsgBox("数据库连接发生错误!",   MsgBoxStyle.OKOnly,   "系统错误")

End   Try

4.数据获取部分

Imports Microsoft.Data.Odbc

Module Module1

Sub Main()

Dim conn As OdbcConnection

Dim comm As OdbcCommand

Dim dr As OdbcDataReader

Dim connectionString As String

Dim sql As String

connectionString = "DSN=PracticalLotusScriptTest;UID=Chester;Pwd=Tester;"

sql = "SELECT CustomerID, ContactName, ContactTitle FROM Customers"

conn = New OdbcConnection(connectionString)

conn.Open()

comm = New OdbcCommand(sql, conn)

dr = comm.ExecuteReader()

While (dr.Read())

Console.WriteLine(dr.GetValue(0).ToString())

Console.WriteLine(dr.GetValue(1).ToString())

Console.WriteLine(dr.GetValue(2).ToString())

End While

conn.Close()

dr.Close()

comm.Dispose()

conn.Dispose()

End Sub

End Module

5.插入记录

Dim myConnectionString As String

myConnectionString = "DRIVER={SQL Server};SERVER=SHA-RICKIE-01;UID=u