文件Copy方式有什么不好呢? 您还可以使用FileSystemObject的Copy方法 或者API函数 Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As LongDeclare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long
如果这时候用filecopy会没有用
不过只拷硬盘上的不能拷内存中的 既只拷打开前 的
不过只拷硬盘上的不能拷内存中的 既只拷打开前 的
您还可以使用FileSystemObject的Copy方法
或者API函数
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As LongDeclare Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal dwCopyFlags As Long) As Long
MSSQL还是用BACKUP方法比较好:)
用api的话我不懂啊,目前我时间很急,所以也没有时间继续学api了,只能等以后了
请大家想点别的方法啊!!!??
谢谢谢谢!!!!1
private sub backup_click() '备份
con.execute
"BACKUP DATABASE [数据库名] TO DISK='带路径文件名'"
endsubprivate sub restore_click() '恢复
con.execute
"RESTORE DATABASE [数据库名] FROM DISK ='带路径文件名'"
endsub
就这样吗!?
在备份之前要不要事先就建立一个文件当载体呢!?
还是有别的方法?!
Data1.Database.Close
SourceFile = App.Path & "/zhangmu.mdb" ' 指定源文件名。
CommonDialog1.ShowSave
DestinationFile = CommonDialog1.FileName ' 指定目的文件名。
On Error Resume Next
FileSystem.Kill CommonDialog1.FileName
FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。Data1.DatabaseName = App.Path & "/zhangmu.mdb"
Data1.RecordSource = "select 学院,日期,领用人,增加,减少,增加-减少 as 余额 ,摘要 from zhangmu_table"
Data1.Refresh
End SubPrivate Sub callback_Click()
Dim SourceFile, DestinationFile
Data1.Database.Close
CommonDialog1.ShowOpen
SourceFile = CommonDialog1.FileName ' 指定源文件名。
CommonDialog1.ShowSave
DestinationFile = CommonDialog1.FileName ' 指定目的文件名。
FileSystem.Kill App.Path & "/zhangmu.mdb"
FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中。
Data1.DatabaseName = App.Path & "/zhangmu.mdb"
Data1.RecordSource = "select 学院,日期,领用人,增加,减少,增加-减少 as 余额 ,摘要 from zhangmu_table"
Data1.Refresh
End Sub
这是我的备份与恢复代码
因为我刚入门vb,那些问题说的太简单,我没能看的懂
大家有没有源程序发一个给我
我的email是[email protected]