将数据库连接做成函数 使用OLEDB的方法。 到时候可以设置连接字符串 一个例子,传入参数是数据库连接的动态参数 Public Function C_LianJie(strServer as string,strData as string,UID as string,PWD as string) As Boolean On Error GoTo ine If conn Is Nothing Then '如果conn没有初始化 Set conn = New ADODB.Connection With conn .Provider = "SQLOLEDB" '设置成OLEDB连接 .CommandTimeout = 10 .ConnectionTimeout = 10 .IsolationLevel = adXactReadCommitted End With End If If conn.State = adStateClosed Then '如果连接关闭。重新建立连接 conn.Open "server=" & strServer & ";database=" & strData & ";", UID , PWD 'MsgBox "连接成功", , "提示信息" End If GoTo inerr ine: MsgBox Err.Description, , "错误信息" inerr: End Function
使用OLEDB的方法。
到时候可以设置连接字符串
一个例子,传入参数是数据库连接的动态参数
Public Function C_LianJie(strServer as string,strData as string,UID as string,PWD as string) As Boolean
On Error GoTo ine
If conn Is Nothing Then '如果conn没有初始化
Set conn = New ADODB.Connection
With conn
.Provider = "SQLOLEDB" '设置成OLEDB连接
.CommandTimeout = 10
.ConnectionTimeout = 10
.IsolationLevel = adXactReadCommitted
End With
End If
If conn.State = adStateClosed Then '如果连接关闭。重新建立连接
conn.Open "server=" & strServer & ";database=" & strData & ";", UID , PWD
'MsgBox "连接成功", , "提示信息"
End If
GoTo inerr
ine:
MsgBox Err.Description, , "错误信息"
inerr:
End Function
要知道那些用户可能对数据库根本不懂的,没有其他有效办法了吗!!!
要知道那些用户可能对数据库根本不懂的,没有其他有效办法了吗!!!