我正在做一个数据库的系统，但数据备份方面不会，请高手指教！

Question

用什么 sql server  还是access
sql server  的是  我在win2000上通过
你运气正好 我刚做了一个，给你吧备份------------
  Dim transql As String
On Error Resume Next
transql = "use master " & _
"DISK INIT " & _
"Name='Device_1'," & _
"Physname=' " & Trim(Text1.Text) & " '," & _
"vdevno=10," & _
"size=102400"
cn.Execute (transql)
On Error GoTo err2
sql = "BACKUP DATABASE yourdatabase TO disk='" & Trim(Text1.Text) & "\yourdatabase_" & Format(CStr(Now), "yyyy-mm-dd-hh-mm-ss") & "' with noinit"cn.Execute (sql)其中 cn 是ado连接  
Text1.Text 是你要备份的路径恢复-------------------
  cnn.ConnectionTimeout = 10
    connstr = "Driver={SQL Server};Server=(local);UID=sa;PWD=;DATABASE=master"
    cnn.Open connstr
  DoEvents
  Label3.Caption = "正在恢复数据库......"
  Me.Refresh
    sql = "RESTORE DATABASE yourdatabase FROM disk='" & Trim(Text1.Text) & "' "
cnn.Execute (sql)我在sql2000 和win 通过

Answer 1

access
就是copy 文件 没有什么难得

Answer 2

copy或是调用windows自带的备份工具

Answer 3

 filecopy  oldnewaddress +yourAccess'sname +".mdb"  ,newaddress+newname+".mdb"
在拷贝的时候要保证你的数据库没有操作 也就是关闭了 才能

Answer 4

数据库备份：'备份数据库
Public Sub backupto()
On Error Resume Next
    Dim dbsource As Database
    Dim dbdestination As Database
    Dim strSQL As String
    Dim qdf As QueryDef
    Dim strdrive As String
    Dim filename As String
    filename = Year(Date) & Month(Date) & Day(Date) & Hour(Time) & Minute(Time) & Second(Time)
    Call CreateLongDir(App.path & "\backup\" & filename)
    strdrive = App.path + "\backup\" & filename & "\" & filename & ".mdb"
    '新建一个备份的数据库backup.mdb
    If Dir(strdrive) <> "" Then Kill strdrive
    Set dbdestination = DBEngine.Workspaces(0).CreateDatabase(strdrive, dbLangGeneral, dbEncrypt)
    dbdestination.Close
    Set dbdestination = Nothing
    '将表生成到backup.mdb中去
    '备份商品信息
    Set dbsource = DBEngine.Workspaces(0).opendatabase(DatabaseName)   'DatabaseName为原数据库所在路径,应先定义
    strSQL = "select 商品信息.* into 商品信息 in '" + strdrive + "' from 商品信息"
    Set qdf = dbsource.CreateQueryDef("qry_backup", strSQL)
    qdf.Execute
    dbsource.QueryDefs.Delete "qry_backup"
    Set qdf = Nothing
    Set dbsource = Nothing
    '备份销售日志
    Set dbsource = DBEngine.Workspaces(0).opendatabase(DatabaseName)
    strSQL = "select 销售日志.* into 销售日志 in '" + strdrive + "' from 销售日志"
    Set qdf = dbsource.CreateQueryDef("qry_backup", strSQL)
    qdf.Execute
    dbsource.QueryDefs.Delete "qry_backup"
    Set qdf = Nothing
    Set dbsource = Nothing
    '备份进货日志
    Set dbsource = DBEngine.Workspaces(0).opendatabase(DatabaseName)
    strSQL = "select 进货日志.* into 进货日志 in '" + strdrive + "' from 进货日志"
    Set qdf = dbsource.CreateQueryDef("qry_backup", strSQL)
    qdf.Execute
    dbsource.QueryDefs.Delete "qry_backup"
    Set qdf = Nothing
    Set dbsource = Nothing
    '备份统计
    Set dbsource = DBEngine.Workspaces(0).opendatabase(DatabaseName)
    strSQL = "select 统计.* into 统计 in '" + strdrive + "' from 统计"
    Set qdf = dbsource.CreateQueryDef("qry_backup", strSQL)
    qdf.Execute
    dbsource.QueryDefs.Delete "qry_backup"
    Set qdf = Nothing
    Set dbsource = Nothing
    '备份商品销售记录
    Set dbsource = DBEngine.Workspaces(0).opendatabase(DatabaseName)
    strSQL = "select 商品销售记录.* into 商品销售记录 in '" + strdrive + "' from 商品销售记录"
    Set qdf = dbsource.CreateQueryDef("qry_backup", strSQL)
    qdf.Execute
    dbsource.QueryDefs.Delete "qry_backup"
    Set qdf = Nothing
    Set dbsource = Nothing
    '清空原数据库
    Call delall
    SetStringValue "HKEY_LOCAL_MACHINE\Software\SuperMarket\Config\Set\database", "backupdate", Date
End Sub

Answer 5

SQL2000上面，如果数据量小，就使用VB，如果数据量大，想可操作性好，用DTS包，想简单用BCP，如果不知道，查找帮助系统。