VB如何连接ORACLE数据库

　'打开数据库

　Publ Sub OpenOraDB()

　On Error GoTo ToExit

　OraDB_Open = False

　Set OraDB = New ADODB.Connection

　OraConstr = "Provider=OraB.Oracle.1;Password=" & strOraPWD & ";User ID=" & strOraUser & ";Data Source=" & OraDBNetName & ";Persist Security Info=False"  

　OraDB.Cursoration = adUseServer

　OraDB.Open OraConstr

　OraDB_Open = True

　Exit Sub

　ToExit:

　'MsgBox "连接数据库服务器错误,您可以在网络正常后继续使用.",vbInformation , "错误信息"

　OraDB_Open = False

　End Sub

　'关闭数据库

　Public Sub CloseOraDB()

　If OraDB_Open = True Then

　If (OraDB.State = adStateOpen) Then

　OraDB.Close

　Set OraDB = Nothing

　OraDB_Open = False

　End If

　End If

　End Sub

　'打开数据集,写入数据

　Set OraRS = New ADODB.Recordset

　OraRS.ActiveConnection = OraDB

　OraRS.CursorLocation = adUseServer

　OraRS.LockType = adLockBatchOptimistic

　strOraRS = "select * from " & OraDBtablename

　OraRS.Open strOraRS, OraDB, adOpenStatic, adLockOptimistic

　OraRS.AddNew

　OraRS.Fis("PID") = strOraPID

　OraRS.Fields("pname") = strName").Value

　OraRS.Fields("psex") = strPsex

　OraRS.Update

　'关闭数据集

　OraRS.Close

　Set OraRS = Nothing