1180
社区成员
- 主页
有关Vb数据库备份的问题。（GetFile命令比较迷糊）
我想用VB完成access数据库的备份，代码如下
Dim fso As New FileSystemObject, fil As File
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile("E:\DNS\DNS_new040906\sourcecode\DNS_new.mdb") '*********
fil.Copy strFileName 'strFileName是备份后的文件名
Set fso = Nothing
Set fil = Nothing
没有问题，可是这段代码没有普遍性，因为GetFile的路径是固定的
若我设dbpath1 = "" & App.Path & "\database\DNS_new.mdb"
然后*****语句改成 set fil=fso.GetFile(dbpath1) 以后，
就告诉我说文件找不到，不知道为什么，哪位大侠告诉小弟一下这是为什么？
Dim fso As New FileSystemObject, fil As File
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.GetFile("E:\DNS\DNS_new040906\sourcecode\DNS_new.mdb") '*********
fil.Copy strFileName 'strFileName是备份后的文件名
Set fso = Nothing
Set fil = Nothing
没有问题，可是这段代码没有普遍性，因为GetFile的路径是固定的
若我设dbpath1 = "" & App.Path & "\database\DNS_new.mdb"
然后*****语句改成 set fil=fso.GetFile(dbpath1) 以后，
就告诉我说文件找不到，不知道为什么，哪位大侠告诉小弟一下这是为什么？
...全文
请发表友善的回复…
发表回复
chengzhi81 2004-10-13
dbpath1 =App.Path & "\database\DNS_new.mdb"
这样还是不行呀。
这样还是不行呀。
tj123 2004-10-13
首先你要注意一下,是否有这个文件夹,
其次要注意app其实是和你的程序在一个路径下的
剩下的就是要写成dbpath1 =App.Path & "\database\DNS_new.mdb",app,path前面不能加""&的
或是你添加监视看看到底是路径的错误还是文件的错误
最后干脆先建立一个这样名字的一个文件
其次要注意app其实是和你的程序在一个路径下的
剩下的就是要写成dbpath1 =App.Path & "\database\DNS_new.mdb",app,path前面不能加""&的
或是你添加监视看看到底是路径的错误还是文件的错误
最后干脆先建立一个这样名字的一个文件
lxcc 2004-10-13
http://www.china-askpro.com/msg2/qa09.shtml
tztz520 2004-10-13
没问题呀.这样再试一下
dbpath1 =App.Path & "\database\DNS_new.mdb"
dbpath1 =App.Path & "\database\DNS_new.mdb"
chengzhi81 2004-10-13
fso.CopyFile fil, strFileName, True
我知道copyfile很好用在备份方面，可是那个getfile的参数到底是如何设置才是正确的呢？
我知道copyfile很好用在备份方面，可是那个getfile的参数到底是如何设置才是正确的呢？
Andy__Huang 2004-10-13
Private Sub DATABACK_Click()
Dim jckk As String
Set fss = CreateObject("Scripting.FileSystemObject")
If Month(Date) < 10 Then
jckk = "JC" & Year(Date) & "0" & Month(Date) & ".MDB"
Else
jckk = "JC" & Year(Date) & Month(Date) & ".MDB"
End If
fss.CopyFile App.Path & "\jck.mdb", App.Path & "\jcback\" & jckk, True
End Sub
Dim jckk As String
Set fss = CreateObject("Scripting.FileSystemObject")
If Month(Date) < 10 Then
jckk = "JC" & Year(Date) & "0" & Month(Date) & ".MDB"
Else
jckk = "JC" & Year(Date) & Month(Date) & ".MDB"
End If
fss.CopyFile App.Path & "\jck.mdb", App.Path & "\jcback\" & jckk, True
End Sub
xayzmb 2004-10-13
'*********************************************************************
'在引用中选中Microsoft Jet and Replication,然后应用如下代码
Dim j As New JRO.JetEngine
'份数据库到另一目录
j.CompactDatabase "provider=Microsoft.Jet.OLEDB.4.0;data " & _
"source=D:\myDB.mdb;" & _
"jet oledb:database password=123456789", _
"provider=Microsoft.Jet.OLEDB.4.0;data " & _
"source=E:\myDB.mdb;" & _
"jet oledb:encrypt database=true;" & _
"jet oledb:database password=123456789"
set j = nothing
'***************************************************************************************
'在引用中选中Microsoft Jet and Replication,然后应用如下代码
Dim j As New JRO.JetEngine
'份数据库到另一目录
j.CompactDatabase "provider=Microsoft.Jet.OLEDB.4.0;data " & _
"source=D:\myDB.mdb;" & _
"jet oledb:database password=123456789", _
"provider=Microsoft.Jet.OLEDB.4.0;data " & _
"source=E:\myDB.mdb;" & _
"jet oledb:encrypt database=true;" & _
"jet oledb:database password=123456789"
set j = nothing
'***************************************************************************************
wangjg_79 2004-10-13
测试 App.Path & "\database\DNS_new.mdb" 的路径是否是正确的文件路径
tztz520 2004-10-13
你用msgbox显示出App.Path & "\database\DNS_new.mdb",看看是什么.或者根本就没有这个路径.
lyxhappy 2004-10-13
APP.PATH是你当前程序所在的目录，你首先得确认文件是否在该目录下存放，路径是否正确。