紧急求助：那位大侠能够提供vb连接，断开oracle数据库的源代码？？？？

Question

那位大侠能够提供vb连接，断开oracle数据库的源代码？？？？小弟在此谢过！！！

Answer 1

'打开数据库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 = "select * 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