与oracle通过ADO连接谁有
Attribute VB_Name = "CONN"
'声明数据库连接对象
Public cn As New ADODB。Connection
'声明记录集对象
Public rs As New ADODB。 Recordset
Public Function ConnectString() As String
ConnectString = "DSN=GFDB;UID=gf_mill;PWD=mill"
End Function
Public Sub OpenConn()
Set cn = New ADODB。 Connection
Set rs = New ADODB。Record...全部
Attribute VB_Name = "CONN"
'声明数据库连接对象
Public cn As New ADODB。Connection
'声明记录集对象
Public rs As New ADODB。
Recordset
Public Function ConnectString() As String
ConnectString = "DSN=GFDB;UID=gf_mill;PWD=mill"
End Function
Public Sub OpenConn()
Set cn = New ADODB。
Connection
Set rs = New ADODB。Recordset
cn。CursorLocation = adUseClient
On Error GoTo Proc_Exit
cn。
Open ConnectString
Proc_Exit:
'实时错误取消选择文件时的处理
If Err。Number = -2147467259 Then
' Resume
MsgBox "数据库连接失败!~", 16, "错误"
Fpross。
StatusBar1。Panels(1) = "数据库连接失败!"
End If
End Sub
'关闭数据库
Public Sub CloseConn()
If rs。
State = True Then
rs。Close
Set rs = Nothing
End If
cn。Close
Set cn = Nothing
End Sub
。
收起
