UC知道谁能帮我解释一下这一小段VB代码？
来源：百度知道 编辑：UC知道 时间：2024/05/11 19:33:16
Sub CompactData() '数据库压缩
Dim jro
Dim src As String, dst As String
src = App.Path & "\TelDb.mdb"
dst = App.Path & "\abbc2.mdb"
If Dir(dst) <> "" Then Kill dst
Set jro = CreateObject("JRO.JetEngine")
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dst & ";Jet OLEDB:Engine Type=4"
Set jro = Nothing
Kill src
Name dst As src
End Sub
文件夹里只有一个TelDb.mdb文件啊，怎么会有abbc2.mdb？
If Dir(dst) <> "" Then Kill dst
Set jro = CreateObject("JRO.JetEngine")
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dst & ";Jet OLEDB:Engine Type=4"
Set jro = Nothing
Kill src
N
Dim jro
Dim src As String, dst As String
src = App.Path & "\TelDb.mdb"
dst = App.Path & "\abbc2.mdb"
If Dir(dst) <> "" Then Kill dst
Set jro = CreateObject("JRO.JetEngine")
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dst & ";Jet OLEDB:Engine Type=4"
Set jro = Nothing
Kill src
Name dst As src
End Sub
文件夹里只有一个TelDb.mdb文件啊，怎么会有abbc2.mdb？
If Dir(dst) <> "" Then Kill dst
Set jro = CreateObject("JRO.JetEngine")
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dst & ";Jet OLEDB:Engine Type=4"
Set jro = Nothing
Kill src
N
src ------需要压缩的数据库路径
dst ------要所用的临时路径
If Dir(dst) <> "" Then Kill dst 检测临时文件是否存在，如存在则删除
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dst & ";Jet OLEDB:Engine Type=4"
'就是将需要压缩的数据库压缩为dst这个临时文件
Kill src '删除压缩前的数据库
Name dst As src '将压缩后的临时文件重命名为原来的名字
先加分，在说
dst变量指定的是新数据库的名称，其实它是先检查新数据库在不在，若已经存在，删除再压缩，若不存在 直接压缩 压缩的实质是 把原先数据库以压缩形式存到一个新的数据库中 这个程序里 src就是原先数据库的路径 dst就是新数据库的路径
不知道这样说你明不明白