dialogbackup.frm

微软msde

VERSION 5.00
Begin VB.Form DialogBackup 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "back up database"
   ClientHeight    =   2445
   ClientLeft      =   5220
   ClientTop       =   3855
   ClientWidth     =   6090
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2445
   ScaleWidth      =   6090
   ShowInTaskbar   =   0   'False
   Begin VB.ComboBox Combo2 
      Height          =   300
      Left            =   3360
      TabIndex        =   5
      Top             =   1080
      Width           =   2295
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   3360
      TabIndex        =   0
      Top             =   360
      Width           =   2295
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "确定"
      Height          =   375
      Left            =   960
      TabIndex        =   1
      Top             =   1680
      Width           =   1215
   End
   Begin VB.CommandButton CancelButton 
      Caption         =   "取消"
      Height          =   375
      Left            =   3600
      TabIndex        =   2
      Top             =   1680
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "请输入要备份的数据库名："
      Height          =   255
      Left            =   720
      TabIndex        =   4
      Top             =   360
      Width           =   2415
   End
   Begin VB.Label Label2 
      Caption         =   "请选择备份设备："
      Height          =   255
      Left            =   720
      TabIndex        =   3
      Top             =   1080
      Width           =   2055
   End
End
Attribute VB_Name = "DialogBackup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Dim rst As ADODB.Recordset
Dim comm As ADODB.command

Private Sub CancelButton_Click()
Unload Me
End Sub

Private Sub Form_Load()
    Dim n As Integer
    Set rst = New ADODB.Recordset
    Set comm = New ADODB.command
    comm.ActiveConnection = adoconn
    comm.CommandText = "use [master] select *from sysdatabases"
    Set rst = comm.Execute(, , 1)
    n = 0
    While Not rst.EOF
    Combo1.AddItem rst.Fields("name"), n
    n = n + 1
    rst.MoveNext
    Wend
    comm.CommandText = "select *from sysdevices"
    Set rst = comm.Execute(, , 1)
    n = 0
    While Not rst.EOF
    Combo2.AddItem rst.Fields("name"), n
    n = n + 1
    rst.MoveNext
    Wend
End Sub

Private Sub OKButton_Click()
Dim result As String
Dim v As Integer
If Me.Combo1.Text = "" Then
    result = MsgBox("请选择要备份的数据库名", 0, "错误信息")
    Else
    If Me.Combo2.Text = "" Then
        result = MsgBox("请选择备份设备", 0, "错误信息")
    Else
        Dim command As String
        command = "BACKUP DATABASE [" + Me.Combo1.Text + "] TO [" + Me.Combo2 + "] WITH  NOINIT ,  NOUNLOAD ,  NAME = N'" + Me.Combo1.Text + "_backup',  NOSKIP ,  STATS = 10,  NOFORMAT"
            Srun command
    End If
End If
 Unload Me
End Sub