frmbackup.frm

一个ERP系统可以用来学习之用

VERSION 5.00
Begin VB.Form frmbackup 
   Caption         =   "数据的备份与还原"
   ClientHeight    =   5115
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5505
   LinkTopic       =   "Form1"
   ScaleHeight     =   5115
   ScaleWidth      =   5505
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   2640
      TabIndex        =   5
      Text            =   "(local)"
      Top             =   720
      Width           =   1815
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   2640
      TabIndex        =   4
      Text            =   "erp"
      Top             =   1560
      Width           =   1815
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Left            =   2640
      TabIndex        =   3
      Text            =   "sa"
      Top             =   2400
      Width           =   1815
   End
   Begin VB.TextBox Text4 
      Height          =   495
      IMEMode         =   3  'DISABLE
      Left            =   2640
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   3120
      Width           =   1815
   End
   Begin VB.CommandButton Command1 
      Caption         =   "备份"
      Height          =   495
      Left            =   960
      TabIndex        =   1
      Top             =   3960
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      Caption         =   "还原"
      Height          =   495
      Left            =   3000
      TabIndex        =   0
      Top             =   3960
      Width           =   1815
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "服务器名称："
      Height          =   495
      Left            =   960
      TabIndex        =   9
      Top             =   720
      Width           =   1455
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "数据库名称："
      Height          =   495
      Left            =   960
      TabIndex        =   8
      Top             =   1560
      Width           =   1455
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "用户名："
      Height          =   495
      Left            =   960
      TabIndex        =   7
      Top             =   2400
      Width           =   1455
   End
   Begin VB.Label Label4 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "密码："
      Height          =   495
      Left            =   960
      TabIndex        =   6
      Top             =   3120
      Width           =   1455
   End
End
Attribute VB_Name = "frmbackup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private 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

Private Sub Command1_Click()
Call sDoDB("备份", Trim(Text1), Trim(Text2), Trim(Text3), Trim(Text4))
End Sub

Private Sub Command2_Click()
Call sDoDB("还原", Trim(Text1), Trim(Text2), Trim(Text3), Trim(Text4))

End Sub



Private Sub Form_Load()
    frmbackup.BackColor = RGB(77, 116, 244)
End Sub