module2.bas

这是一个选课系统

Attribute VB_Name = "Module2"

Public Sub sDoDB(sType As String, sServerName As String, sDB As String, sUid As String, sPwd As String) '备份或还原数据库

    Dim objSQLNS As New SQLNS.SQLNamespace 'SQLNS命名空间
    Dim hItem As Long '句柄
    Dim objSQLNSObj As SQLNS.SQLNamespaceObject 'SQLNS命名空间对象
    Dim objSQLNSCom As SQLNS.SQLNamespaceCommand 'SQLNS命名空间命令对象
    Dim sTemp As String '临时字符串
    
    On Error Resume Next
    
    Err.Clear
    Screen.MousePointer = vbHourglass
    objSQLNS.Initialize sType & "数据库", SQLNSRootType_Database, "Server=" & sServerName & ";UID=" & sUid & ";PWD=" & sPwd & ";Database=" & sDB & ";", hWnd
    Screen.MousePointer = vbDefault
    
    If Err.Number <> 0 Then
        MsgBox "连接SQL Server失败！", vbCritical, "数据库"
        Exit Sub
    End If
    
    Err.Clear
    Screen.MousePointer = vbHourglass
    '得到根节点的句柄
    hItem = objSQLNS.GetRootItem
    '生成SQLNS命名空间对象
    Set objSQLNSObj = objSQLNS.GetSQLNamespaceObject(hItem)
    Screen.MousePointer = vbDefault
    If Err.Number <> 0 Then
        MsgBox "生成生成SQLNS命名空间对象失败！", vbCritical, "数据库"
        Exit Sub
    End If
    
    '显示备份或还原界面
    If sType = "备份" Then
        Set objSQLNSCom = objSQLNSObj.Commands(10)
        objSQLNSCom.Execute hWnd, SQLNamespace_PreferModal
        
    Else
        goCn.Execute "use master" '将数据库切换到master
        Set objSQLNSCom = objSQLNSObj.Commands(11)
        objSQLNSCom.Execute hWnd, SQLNamespace_PreferModal
        goCn.Execute "use " & gsDB '将数据库切换回来
    End If
    
    '不管是备份数据库，还是还原数据库，都要清除数据库日志
    goCn.Execute "backup log " & gsDB & " with no_log"
    
End Sub