标题:[求助]使用拷贝命令做数据库备份遇到的问题
只看楼主
yani001
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2004-12-10
 问题点数:0 回复次数:4 
[求助]使用拷贝命令做数据库备份遇到的问题
是不是要在备份的时候把数据库关闭了才能拷贝哪?
代码我是这么写的
挂在了主窗体上
每次运行时自动备份
Kill App.Path + "\数据库备份\自动备份.dat"
fsouce = App.Path + "\db1.mdb"
     FDist = App.Path + "\数据库备份\自动备份.dat"
     FileCopy fsouce, FDist
搜索更多相关主题的帖子: 数据库 命令 App Path 拷贝 
2005-04-05 13:16
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 
要关闭。

天津网站建设 http://www./
2005-04-05 17:08
yani001
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2004-12-10
得分:0 
命令是什么啊!
我刚学习不久
=.=
应该怎么做!
2005-04-05 18:17
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 

Option Explicit

Dim Rs As ADODB.Recordset Dim ConnStr As String

Private Sub Command1_Click() Set Rs = New ADODB.Recordset ConnStr = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\db1.mdb" Rs.CursorLocation = adUseClient Rs.Open "Select * from board", ConnStr, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = Rs DataGrid1.Refresh End Sub

Private Sub Command2_Click() Dim FDist As String Dim FSource As String

FDist = App.Path & "\自动备份.dat" FSource = App.Path & "\db1.mdb" If Dir(FDist) <> "" Then Kill FDist End If If Not Rs Is Nothing Then Rs.ActiveConnection.Close '这一行关闭数据库连接。 Set Rs = Nothing End If FileCopy FSource, FDist End Sub

[此贴子已经被作者于2005-4-5 22:15:44编辑过]


天津网站建设 http://www./
2005-04-05 22:13
yani001
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2004-12-10
得分:0 
请问这句是什么"Select * from board",
这个查询里面的语句用改吗?
2005-04-06 13:39



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-14832-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.156320 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved