關於 VB.Net 存取 Oracle 資料庫
介紹 4 種 VB.Net 存取 Oracle 資料庫的基本寫法
u 傳統的 ADO Connection 開 Recordset 並把資料 “餵給” 新一代 ADO.Net 的 DataSet 並做資料存取
u ADO.Net 運用 OleDb 類別的 Connection , DataAdapter , Dataset , Command 等物件做處理資料
u ADO.Net 運用 Oracle 類別的 Connection , DataAdapter , Dataset , Command 等物件做處理資料
u ADO.Net 運用 ODBC 類別的 Connection , DataAdapter , Dataset , Command 等物件做處理資料
請先加入參考 System.Data 及 System.Data.OracleClient
' 匯入名稱空間
Imports System.Data
Imports System.Data.Odbc
Imports System.Data.OleDb
Imports System.Data.OracleClient
Imports System.Runtime.InteropServices
Public Class Form1
' Oracle SID 登錄資訊 , 請自行調整
Private strDSN As String = "資料來源"
Private strUID As String = "使用者"
Private strPWD As String = "密碼"
' Oracle OLEDB 連線字串
Private strCN As String = "Provider=MSDAORA.1" & _
";Data Source=" & strDSN & _
";User ID=" & strUID & _
";Password=" & strPWD
' SQL 語法, 查詢資料用( Select )
Private strQry As String = "select * from 某Table" ' 請自行調整
' SQL 語法, 更新資料用( Insert / Update )
Private strSQL As String = "Insert Into Table .. 或 Update Table Set .. " ' 請自行調整
' ================================================================
' 方法 1 :
' 使用 ADO 物件 , 透過 ADODB.Connection 開啟 ADODB.Recordset
' 並將 Recordset ( ADO ) 中之資料填入 Dataset ( ADO.Net ) 中
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
' ADODB.Connection 為 ADO 連線物件之 ProgID
' Type.GetTypeFromProgID 方法: 根據ProgID 取得物件的型別
Dim cn As Object = Activator.CreateInstance(Type.GetTypeFromProgID("ADODB.Connection"))
' Activator 成員 : 建立物件型別的方法，或取得對現有遠端物件的參考。
' Activator.CreateInstance 方法( 建構函式 ) : 建立指定型別之物件執行個體。
' 語法 : 物件 = Activator.CreateInstance(Type)
' 或 Dim cn As Object = CreateObject("ADODB.Connection")
' CreateObject 建構函式 : 建立並傳回 COM 物件的參考 ( 類別明確公開的 COM 元件 )
cn.CursorLocation = 3 ' adUseClient
cn.Open(strCN) ' 開啟連線物件 ( 連上 Oracle )
Dim rs As Object = cn.Execute(strQry) ' Select 資料
' Connection 物件.Execute 方法 : 執行指定的查詢、SQL 陳述式、預存程序。
Dim ds As New DataSet ' 建立資料集物件執行個體
Dim da As New OleDbDataAdapter ' 建立資料配接器物件執行個體
' 呼叫 DataAdapter.Fill 方法將資料填入資料集中
da.Fill(ds, rs, "Table1") ' Table1 為資料表格名稱 , 可自行調整命名
' 參數分別是資料集 ( Dataset ) , 資料錄集 ( Recordset ) , 資料表名稱 ( Table Name )
' 將資料集中資料表格的資料 Binding 至 DataGridView 以顯示資料
DataGridView1.DataSource = ds.Tables(0)
' 新增資料到資料庫中
cn.Execute(strSQL) ' Insert / Update 資料
' Connection物件.Execute 方法 : 執行指定的查詢、SQL 陳述式、預存程序。
da.Dispose() ' 釋放 Component 所使用的所有資源。
cn.Close() ' 關閉 Connection 物件之資料庫連線
' 釋放 Com 物件所使用的資源 , 遞減執行階段所呼叫包裝函式 ( RCW ) 的參考次數。
Marshal.ReleaseComObject(rs)
Marshal.ReleaseComObject(cn)
' MSDN 說明 :
' 當 COM 介面指標進入 Common Language Runtime 時，
' 會被包裝在執行階段可呼叫的包裝函式中。
' ReleaseComObject 方法被用來控制 Managed Code 中 COM 物件的生命週期 ( Lifetime ) 。
' 當COM 物件存有資源參考，或物件須釋放時，使用這個方法釋放 COM 物件。
GC.Collect() ' 強制記憶體回收
End Sub
' ================================================================
' 方法 2 :
' 使用 OleDb 類別的 Connection , DataAdapter , Command 物件來做 Oracle 資料處理
Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
Dim cn As New OleDbConnection(strCN) ' 個體化 OleDb 連線物件
Dim da As New OleDbDataAdapter(strQry, cn) ' 個體化 OleDb 資料配接器
Dim ds As New DataSet ' 個體化資料集
da.Fill(ds) ' 使用資料配接器, 將資料填至資料集
' 將資料顯示於 DataGridView
DataGridView1.DataSource = ds.Tables(0)
cn.Open() ' 開啟資料庫連線
' 新增資料到資料庫中
Dim cmd As New OleDbCommand(strSQL, cn) ' 個體化 OleDb 命令物件
cmd.ExecuteNonQuery() ' 執行 SQL 命令 ( SQL Pass-through )
' 釋放資源
cmd.Dispose()
da.Dispose()
cn.Close()
cn.Dispose()
End Sub
' ================================================================
' 方法 3 :
' 使用 Oracle 類別的 Connection , DataAdapter , Command 物件來做 Oracle 資料處理
Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
' OracleConnection 類別連線字串
Dim strCN As String = "Data Source=" & strDSN & _
";User ID=" & strUID & _
";Password=" & strPWD & _
";Persist Security Info=True"
Dim cn As New OracleConnection(strCN) ' 建立 OracleConnection 執行個體
Dim da As New OracleDataAdapter(strQry, cn) ' 建立 OracleDataAdapter 執行個體
Dim ds As New DataSet ' 建立 Dataset 執行個體
da.Fill(ds) ' 將資料填至資料集
DataGridView1.DataSource = ds.Tables(0) ' 顯示資料於 DataGridView
cn.Open() ' 連線資料庫
Dim cmd As New OracleCommand(strSQL, cn) ' 建立 OracleCommand 執行個體
cmd.ExecuteNonQuery() ' 執行查詢, 新增資料
' 釋放資源
cmd.Dispose()
da.Dispose()
cn.Close()
cn.Dispose()
End Sub
' ================================================================
' 方法 4 :
' 使用 ODBC 類別的 Connection , DataAdapter , Command 物件來做 Oracle 資料處理
Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button5.Click
' Oracle ODBC 驅動程式名稱
Dim strOracleDriver As String = "Oracle in OraDb10g_home1" ' 請自行調整
' PS: Oracle 的 ODBC Driver 會因 Oracle 版本不同而異 ( Driver 也不同 )
' M$ 提供的 Oracle Driver 為 Microsoft ODBC for Oracle
' Oracle 提供的 Native Driver :
' 8i 為 Oracle ODBC Driver
' 9i 為 Oracle in OraHome9X ( X 為 0 或 1 或 2 , 3 ... )
' 10g 版本 Driver 為 Oracle in OraDb10g_home1
' 可於 [ ODBC 資料來源管理員] 中查看 ( ODBCAD32.exe )
' Oracle ODBC 資料庫連線字串
Dim strCN As String = "DRIVER={" & strOracleDriver & "}" & _
";DBQ=" & strDSN & _
";UID=" & strUID & _
";PWD=" & strPWD
Dim cn As New OdbcConnection(strCN) ' 建立 OdbcConnection 執行個體
Dim da As New OdbcDataAdapter(strQry, cn) ' 建立 OdbcDataAdapter 執行個體
Dim ds As New DataSet ' 建立 DataSet 執行個體
da.Fill(ds) ' 將資料填至資料集
DataGridView1.DataSource = ds.Tables(0) ' 顯示資料於 DataGridView
cn.Open() ' 連線資料庫
Dim cmd As New OdbcCommand(strSQL, cn) ' 建立 OdbcCommand 執行個體
cmd.ExecuteNonQuery() ' 執行查詢, 新增資料
' 釋放資源
cmd.Dispose()
da.Dispose()
cn.Close()
cn.Dispose()
End Sub
End Class
' ================================================================
另外 , 也可以使用 Oracle 公司所提供的 ODP.Net
Oracle Data Provider for .NET
請參考Oracle 官方網站 http://www.oracle.com/technology/tech/windows/odpnet/index.html