积极向上的诗句李白:vb创建压缩access数据库

来源：百度文库编辑：偶看新闻时间：2024/05/03 03:06:52

1.首先要引用ADOX

Microsoft ADO Ext. 2.8 for DLL and Securiety
2.代码
Dim cat As New ADOX.catalog
MAM_path = "C:\"
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MAM_path & "Del_Repeated.mdb;"

Dim conn As New ADODB.Connection, constr As String
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MAM_Control_path & "Del_Repeated.mdb;Persist Security Info=False"
conn.Open constr

conn.Execute "create table Mail_info(subject string,sent_time date)"
conn.Execute "create table FolderName(FolderName string)"
conn.Close

3.用dao压缩数据库

引用如下：

Microsoft DAO 3.6 Object Library

Private Sub Cmd_prd_rt_Click()
Call CompactJetDatabase(mdb_source, True) '压缩数据库
End Sub

Private Sub CompactJetDatabase(Location As String, Optional BackupOriginal As Boolean = True)
'Location数据库的完整路径
On Error GoTo CompactErr

Dim strTempFile As String
Dim m As Integer
Dim n As String

m = InStrRev(Location, "\") '文件夹的目录的最后一个\
strTempFile = Trim(Left(Location, m)) '数据库所在目录
'检查数据库文件是否存在

If Dir(Location, vbNormal) <> "" Then
    '如果需要备份就执行备份
    If BackupOriginal = True Then
        '创建临时文件名
        strTempFile = strTempFile & "temp.mdb"
        If Dir(strTempFile, vbNormal) <> "" Then Kill strTempFile

        '通过DBEngine压缩数据库文件
        'dBEngine.CompactDatabase Location, strTempFile, , , ";pwd=mss0016800RPV"
         DBEngine.CompactDatabase Location, strTempFile

        '删除原来的数据库文件
        Kill Location
        '拷贝刚刚压缩过临时数据库文件至原来位置
        Name strTempFile As Location
    End If
End If

CompactErr:

End Sub

使用vb如何创建access数据库 VB 里如何实现动态创建、删除ACCESS数据库 VB连接Access数据库 VB 里如何实现动态创建、删除ACCESS数据库(不用sql实现) 我想用access创建一个自己部门的数据库,用vb如何连接,制作表单?? VB怎样联接ACCESS数据库 VB查找ACCESS数据库问题 VB怎么连Access数据库在线等 VB+ACCESS数据库 VB中创建数据库问题？如何用DELPHI压缩ACCESS数据库？ VB-Access数据库格式的一个问题 VB中如何使用ACCESS数据库 vb+access数据库备份代码写法用VB在Access数据库检索数据 vb修改数据库access的记录 VB与access数据库的问题如何在VB中连接access数据库 vb.net中无法更新access数据库请问怎么连接vb 和 access数据库 vb如何连接远程Access数据库 VB如何修改加密的ACCESS数据库 VB+Access的数据库小程序 VB编程ADO，数据库用access