VS2015鏈接Oracle數據庫（轉）

時間 2019-12-13

標籤 vs2015 鏈接 oracle 數據庫欄目 C&C++ 简体版

原文原文鏈接

原文地址：https://xuanwo.org/2016/01/03/vs-oracle-11g

開發環境

宿主機：Win10 + VS2015 + ODP.Net for VS2015
虛擬機：Win7 + Oracle 11g + 橋接html

配置ODP.Net

首先下載 Oracle Developer Tools for Visual Studio 2015 ，下載此文件須要註冊Oracle社區帳號並接受相關的協議，此文件提供瞭如下組件：sql

Oracle Developer Tools for Visual Studio 12.1.0.2.4
Oracle Data Provider for .NET 4 12.1.0.2.0
Oracle Providers for ASP.NET 4 12.1.0.2.0

下載完成後運行MSI安裝程序進行安裝，安裝完成後會自動註冊VS2015的相關插件，從新啓動VS2015後將會看到Oracle的相關命令，好比SQL *PLUS支持等。同時添加數據庫時也能看到相應的選項。數據庫

ODP.Net支持全部Oracle版本，所以下載時只須要注意VS的版本便可。服務器

配置tnsnames.ora

ODP.Net默認使用安裝目錄下的tnsnames.ora，若安裝目錄在Program Files下，可能會遇到無權限等問題，此時使用管理員權限打開命令行，切換到對應目錄並使用notepad編輯。oracle

複製服務器端的tnsnames.ora文件內容，或者本身手動編輯，格式以下：ide

<數據源別名> =
 (DESCRIPTION =
 (ADDRESS = (PROTOCOL = TCP)(HOST = <主機名或IP>)(PORT = <端口號>))
 (CONNECT_DATA =
 (SERVER = DEDICATED)
 (SERVICE_NAME = <數據庫服務名>)
 )
 )

添加數據庫

打開工具-鏈接到數據庫，數據源修改成Oracle數據庫下的ODP.NET,託管驅動程序，而後點擊肯定，打開添加鏈接窗口。

填寫用戶名，密碼並選擇數據源，而後測試鏈接，成功的話說明已經連通，點擊肯定便可。工具

使用虛擬機搭建數據庫的額外Tips
根據某網友分析，Oracle的監聽器在經過1521端口鏈接後，會開啓另一個新的隨機端口進行數據通信，所以使用NAT方式虛擬網卡可能會致使鏈接失敗。這種狀況下，請使用橋接方式虛擬網卡，並在net manager中將loaclhost修改成虛擬機當前的IP。重啓監聽服務後，再試。測試

鏈接數據庫並使用

鏈接數據庫

Dim oradb As String = "User ID=system;Password=123456;Data Source=lol"
Dim conn As New OracleConnection(oradb)
conn.Open()
Dim sql As String = "create table xxx"
Dim sqlCom As New OracleCommand
sqlCom.CommandText = sql
sqlCom.Connection = conn
sqlCom.ExecuteNonQuery()

查詢數據

成功配置數據源以後，只須要向界面上拖動DataGridView，並進行相關配置，選擇本身須要的表便可。ui

插入圖片的正確姿式

圖片做爲二進制數據沒法直接拼湊出SQL命令，咱們須要使用OracleCommand自帶的Parameters功能。在SQL命令中用:photo來表明一個參量，而後使用spa

1	sqlCom.Parameters.Add("photo", OracleDbType.Blob, imgData.Length)

來分別指定這個參量的類型和所佔空間大小

最後使用

1	sqlCom.Parameters(0).Value = imgData

來指定這個參量的值。

整個插入圖片過程的代碼以下：

Dim conn As New OracleConnection(oradb)
Dim imgData(0) As Byte
Dim ms As New System.IO.MemoryStream
PictureBox1.BackgroundImage.Save(ms, PictureBox1.BackgroundImage.RawFormat)
ReDim imgData(ms.Length - 1)
ms.Read(imgData, 0, ms.Length)
ms.Close()
conn.Open()
Dim sql As String = "insert into hero values" & "(" & TextBox1.Text & ":photo" & ")"
Dim sqlCom As New OracleCommand
sqlCom.CommandText = sql
sqlCom.Connection = conn
sqlCom.Parameters.Add("photo", OracleDbType.Blob, imgData.Length)
sqlCom.Parameters(0).Value = imgData
sqlCom.ExecuteNonQuery()