vb怎样实现备份sql数据库

Question

大家帮帮忙，用vb怎样实现备份sql数据库？及怎样在报表中实现根据指定信息显示报表？

Answer 1

http://book.csdn.net/bookfiles/414/10041414978.shtml
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

用vb怎样实现备份sql数据库？及怎样在报表中实现根据指定信息显示报表？
????????????????????????????????

Answer 3

你试试这段代码，我以前做的。
Private Sub cmdBackup_Click()
Dim Dbco As Database
Dim DbName As String    DbName = App.Path & "\mdd.mdb"
                               
    Set Dbco = OpenDatabase(DbName, False, False, "")    On Error GoTo errEnd
    Dbco.Close
    Set Dbco = Nothing    If Dir(App.Path & "\mdd_bak.dat") <> "" Then
        Kill App.Path & "\mdd_bak.dat"
        DBEngine.CompactDatabase DbName, App.Path & "\mdd_bak.dat" 
    Else
        DBEngine.CompactDatabase DbName, App.Path & "\mdd_bak.dat"
    Set Dbco = OpenDatabase(DbName, False, False, "")
    Exit Sub
errEnd:
    MsgBox Err.Description, vbCritical, "系统提示"
End Sub

Answer 4

你试试这段代码，我以前做的。我上面的少写了句end if
Private Sub cmdBackup_Click()
Dim Dbco As Database
Dim DbName As String    DbName = App.Path & "\mdd.mdb"
                               
    Set Dbco = OpenDatabase(DbName, False, False, "")    On Error GoTo errEnd
    Dbco.Close
    Set Dbco = Nothing    If Dir(App.Path & "\mdd_bak.dat") <> "" Then
        Kill App.Path & "\mdd_bak.dat"
        DBEngine.CompactDatabase DbName, App.Path & "\mdd_bak.dat" 
    Else
        DBEngine.CompactDatabase DbName, App.Path & "\mdd_bak.dat"
    End if
    Set Dbco = OpenDatabase(DbName, False, False, "")
    Exit Sub
errEnd:
    MsgBox Err.Description, vbCritical, "系统提示"
End Sub

Answer 5

SQL备份dB.Execute ("backup database " & strDataname & " to disk = ' " & strDataname & ".bak" & " '")

Answer 6

Dim key, list, SQL As String, NamStr As String
Dim StrCnn As New ADODB.Connection
Dim itmX As ListItem
Dim dri As String
Private Sub Command1_Click()
    NamStr = Dir1.Path & "\" & Trim(Text1.Text) & ".bak"
    If Text1.Text <> "" Then
       If Dir(NamStr) <> "" Then '判断文件是否已经有同名存在
          MsgBox "数据库已经存在，请换其他名称！"
       Else
          StrCnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=wangguan"
          SQL = "backup database cgroup to disk =  '" & NamStr & "'"  '备份数据库          StrCnn.Execute (SQL) '执行SQL语句
          StrCnn.Close
          MsgBox "数据库备份成功!", vbOKOnly + vbInformation, "提示"
       End If
    Else
       MsgBox "请输入文件名", vbOKOnly + vbInformation, "提示"
    End If
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Dir1_Change()
   Label1.Caption = Dir1.Path
End SubPrivate Sub Drive1_Change()
   Dir1.Path = Drive1.Drive
End SubPrivate Sub Form_Load()
   Label1.Caption = Dir1.Path
End Sub

Answer 7

说个简单的：用API函数将你要备份的文件复制到备份目录即可，具体参见API函数：CopyFile
很简单