Option Explicit

Public cn_base As New ADODB.Connection

Function conn_base() ' 公共的函數 用來獲取數據庫的連接

Err.Clear

On Error Resume Next

If cn_base.State <> 0 Then

cn_base.Close

End If

cn_base.ConnectionString = "file name=" + App.Path + "\oracle.udl"

cn_base.Open

If Err.Number <> 0 Then

MsgBox "連接基地數據庫失敗 "

End If

End Function

'保存按鈕單擊事件 即點擊了保存按鈕以后執行的事件函數

Private Sub Add_Click()

Dim qxxh As String '聲明變量 qxxh 用來存放Text1控件輸入的字符串

Dim qxjdlx As String '聲明變量 qxjdlx 用來存放Text2控件輸入的字符串

qxxh = Text1.Text '以下這兩行是把Text控件中輸入的內容賦給 這兩個變量。

qxjdlx = Text2.Text

Dim ss

ss = conn_base() '獲得連接數據庫的對象。

Dim sql As String '聲明變量sql 用來下面存放sql語句。

Dim Rs As ADODB.Recordset '聲明操作數據看用的 rs 對象

Set Rs = New ADODB.Recordset 得到記錄set

Rs.CursorType = adOpenKeyset

Rs.LockType = adLockOptimistic

Rs.CursorLocation = adUseClient

sql = "Insert Into ywxz_fcgj_js_zjqx(id,qxxh,qxjdlx) values ('56','" + qxxh + "','" + qxjdlx + "') '插入數據需要用到的sql語句，56為id 在這里寫死了。 qxxh qxjdlx 這兩個字段即為上面聲明的兩個變量值即我們輸入文本框的值。

Rs.Open sql, cn_base '執行上面的sql語句。執行插入數據的操作。

End Sub

'窗體的加載事件，每當窗體(軟件打開的時候 ，首先執行此方法，此方法一般用來做初始化來用。)

Private Sub Form_Load()

'下面這一段 是連接數據庫時的操作 。得到連接數據庫時候用到的一些對象。

Dim ss

ss = conn_base()

Dim sql As String

Dim ii As Integer

Dim Rs As ADODB.Recordset

Set Rs = New ADODB.Recordset

Rs.CursorType = adOpenKeyset

Rs.LockType = adLockOptimistic

Rs.CursorLocation = adUseClient

sql = " select * from ywxz_fcgj_js_zjqx "

Rs.Open sql, cn_base

Label1.Caption = Rs.Fields(1) '這是當窗體加載的時候 查詢數據庫中的表 返回結果集 中取第一個字段的第一個記錄

End Sub

第二種方法：

Public strConn As String

Public strSQL As String

Public curConnection As ADODB.Connection

Public rs As ADODB.Recordset

Sub Main()

Dim strds As String

strds = Chr(34) & "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.12.184)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=oracle)))" & Chr(34)

strConn = "Provider=MSDAORA.1;Password=oracle;User ID=system;Data Source=" & strds & ";Persist Security Info=True"

Set curConnection = New ADODB.Connection

Set rs = New ADODB.Recordset

curConnection.CursorLocation = adUseClient

curConnection.Open strConn

strSQL = "select * from T_PW_USER"

rs.Open strSQL, curConnection, adOpenStatic, adLockReadOnly

Set DataGrid1.DataSource = rs

DataGrid1.Refresh

If Not rs.EOF() Then

rs.MoveFirst

Combo1.Clear

Combo1.Text = "用戶列表"

Do While Not rs.EOF And Not rs.BOF()

Combo1.AddItem (rs.Fields(0))

rs.MoveNext

Loop

End If

rs.Close

End Sub

Private Sub Command1_Click()

Main

End Sub

工程 - 引用 Microsoft ActiceX Data Objects.x中的一個library.

總結

以上是生活随笔為你收集整理的vb连接oracle 工程,VB 连接Oracle数据库的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。