VB备份ACCESS数据库的方法，代码
VB备份ACCESS数据库的方法，代码
这个代码其实也适用于其它类型文件的复制，要修改一下其中的语句哦~Private Sub bak_Click()
Dim TargetFileName As String '目标文件名
On Error Resume Next
With cdlog1
.DialogTitle = "数据备份"
.InitDir = App.Path
.FileName = "backup.mdb"
.Filter = "(数据库)*.mdb|*.mdb"
.CancelError = True
.ShowSave
TargetFileName = .FileName
End With
If Right$(App.Path, 1) <> "\" Then spath = App.Path & "\"
ssource = spath & "db2.mdb"
On Error GoTo sjbf_error
If Dir$(TargetFileName) <> "" Then
If MsgBox("文件已存在,确认替换它！", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Kill TargetFileName '删除文件
FileCopy ssource, TargetFileName '复制文件
'DBEngine.CompactDatabase ssource, TargetFileName '压缩文件
MsgBox "数据备份成功！", vbInformation
Else
FileCopy ssource, TargetFileName '复制文件
'DBEngine.CompactDatabase ssource, TargetFileName '压缩文件
MsgBox "数据备份成功！", vbInformation
End If
sjbf_error:
If Err = 70 Then
MsgBox "数据库正在使用，请关闭所有数据窗口，从新开始备份", vbExclamation
End If
End Sub
相关文档：
这一段大家编写程序很多时候都在使用API,它给我们带来了强大的功能.让我们非常惊喜.
但是我们在调试程序的时候有时候总会奔溃.这样很不方便.
其中有些是api惹的祸
使用api注意事项:
首先我说说我的观点.
1:Api是很多系统也在用.我们在设置参数时如果和系统的参数有冲突.就可能引起软件出错
2.api很多都是c语言编写的, ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias ......
http://www.carlosag.net/Tools/CodeTranslator/ 这个也许学计算机的哥哥姐姐们会用得到，，就转了希望多多支持哦 西西 用得到就顶哦
差点忘了哦 ，藕还有一个sql的插件很好用的呀。。。。有想要的就留言下要咯。。。。。 ......
