VB连接ORACLE数据库

文章作者 100test 发表时间 2007:05:07 16:27:15
来源 100Test.Com百考试题网

打开数据库

Public Sub OpenOraDB()
On Error GoTo ToExit
OraDB_Open = False
Set OraDB = New ADODB.Connection
OraConstr = "Provider=OraOLEDB.Oracle.1.Password=" &. strOraPWD &. ".User ID=" &. strOraUser &. ".Data Source=" &. OraDBNetName &. ".Persist Security Info=False"
OraDB.CursorLocation = 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 = "0select * from " &. OraDBtablename
OraRS.Open strOraRS, OraDB, adOpenStatic, adLockOptimistic
OraRS.AddNew
OraRS.Fields("PID") = strOraPID
OraRS.Fields("pname") = strName").Value
OraRS.Fields("psex") = strPsex
OraRS.Update

关闭数据集

OraRS.Close
Set OraRS = Nothing