On Error GoTo LoadDBError
Set gnConnection = New ADODB.Connection ' 全局连接对象。
' 为连接对象设置连接字符串。
gnConnection.ConnectionString = "Provider=sqloledb;" & _
"Data Source=mainserver;Initial Catalog=Tazaz;User Id=sa;Password=; "
gnConnection.Open
'注:mainserver为数据库所在服务器主机名称
' Tazaz 为数据库名称
'
Exit Sub
LoadDBError:
Select Case Err.Number
Case -2147467259
' 不能找到文件
MsgBox "不能找到数据库文件,请与管理员联系!"
Case Else ' 其他未知的错误
MsgBox Err.Number & ": " & Err.Description
End Select
End Sub
'下面是打开一个表的示例
Private Sub Class_Initialize()
'创建类后创建集合
Set mCol = New Collection
Set rsUser = New ADODB.Recordset
With rsUser
.ActiveConnection = gnConnection
.Open "select * from 职工", _
gnConnection, adOpenKeyset, adLockOptimistic, adCmdText
.MoveLast
.MoveFirst
End With
End Sub