Visual basic 通过 ODBC 读写数据库

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.Message, True)
        End Try
    End Sub

End Class

问题：

使用XP-SP3环境测试。在ODBC数据源管理器中，如果访问本地Access数据库，此程序内存占用约26M。

但如果访问远程Oracle数据库，此程序内存占用66M。内存占用变大原因不明。

PS：

在设置Oracle ODBC时，需先确认Oracle设置。

在C:\app\Administrator\product\11.2.0\client_1\Network\Admin/TNSNAMES.ORA中

DB1“远程数据库TNS Server Name” =
  (DESCRIPTION =
    (ADDRESS_LIST =
        (ADDRESS =
          (PROTOCOL = TCP)
          (Host = 192.168.0.230) “远程数据库IP”
          (Port = 1521)
        )
    )
    (CONNECT_DATA = (SID = DB1)
    )
  )