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
相关文档：
VB中 Replace 函数
描述
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace 函数的语法有以下参数：
参数 描述
expression 必选。字符串表达式，包含要替换的子字符串。
find 必选。被搜索的子字符串。
......
这段时间在移植项目的过程中，起初我想判断一个字符串中是否存在某字符（串），直接的使用方法是用instr（start，string1，string2，VB compare），但经过分析在VB中可以只用一下方法来判断！
1.常用的INStr方法
Function InStr([Start], [String1], [String2], [Compare A ......
学生时代专业是机械，但是参加工作后，机缘巧合从事了与软件相关的工作，就是对大型工程软件软件做一些二次开发，收获过快乐，收获过辛酸，在一次又一次的得与失中，想找一个地方，找一些人可以慢慢与之分享，与之交流，并期得到帮助或提供帮助！也许你是无意见路过，甚或漂过，但你的注目是我前进的动力，有幸驻足也会让我 ......
VB显示透明FLASH效果
演示效果：
代码如下：
公共声明区域
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetW ......
就这么一个函数就解决了那位仁兄3天多的工作
唉~！真被一个函数玩死了
这里顺便帖出来吧
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Microsoft.VisualBasic.Shell( ......
