Visual Studio Basic 2010 含有ODBC库文件,只需调用就可访问支持ODBC的各类数据库。
不废话,上程序
Imports System.Data.Odbc
Public Class To_ODBC
Public Sub Open()
Try
Dim conn As New OdbcConnection
conn.ConnectionString = “dsn=ODBC数据源管理器中定义的名称;UID=用户名;PWD=密码;”
conn.Open()
'RaiseEvent Status(" Connection State:" & conn.State.ToString, False)
'RaiseEvent Status(" Database:" & conn.Database.ToString, False)
'RaiseEvent Status(" Data Souse:" & conn.DataSource.ToString, False)
conn.Close()
conn.Dispose()
Catch ex As OdbcException
RaiseEvent Status("Error:" & ex.Message, True)
Catch ex As Exception
RaiseEvent Status("Error:" & ex.Mess