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
相关文档：
Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
......
转自：http://www.52arm.com/Article_Show.asp?ArticleID=186
作者：weidian ---本站原创 点击数：4721 发表时间：2008-5-7 编辑：sanzang
Winsock控件建立在TCP、UDP协议的基础上，完成与远程计算机的 ......
学生时代专业是机械，但是参加工作后，机缘巧合从事了与软件相关的工作，就是对大型工程软件软件做一些二次开发，收获过快乐，收获过辛酸，在一次又一次的得与失中，想找一个地方，找一些人可以慢慢与之分享，与之交流，并期得到帮助或提供帮助！也许你是无意见路过，甚或漂过，但你的注目是我前进的动力，有幸驻足也会让我 ......
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 ......
