vb.net压缩access文件(.accdb)
来源:互联网 发布:p2pwlflcam软件下载 编辑:程序博客网 时间:2024/06/06 23:55
vb.net压缩access文件(.accdb)
由于access文件(.accdb)会记录操作,所以即使执行了delete数据的处理,该文件的大小还是会不断增加.
解决思路:将原有的access文件(.accdb)复制给一个临时的access文件(.accdb),删除原有文件,再将临时文件复制回原文件名的文件
解决方法:
1.引入引用:
右键项目,选择“添加引用”,在窗口中选择“COM”标签,其中选择“Microsoft Jet and Replication Objects 2.x Library”,点击确定
注:上面的“2.x”中的“x”,是该Library的版本号。
点击“确定”之后,会将Microsoft ActiveX Data Objects Library (ADODB) 和 JRO 这两个DLL添加进项目。
2.vb.net程序
'压缩access按钮处理
Private Sub btnClearAccess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearAccess.Click
'关闭access链接
closeAccessConnection()
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine()
accessPath = txtAccess.Text.Trim
Try
If accessPath <> "" Then
jro.CompactDatabase("Provider=microsoft.ACE.OLEDB.12.0;Mode=share Exclusive;Data Source=" & accessPath, _
"Provider=microsoft.ACE.OLEDB.12.0;Mode=share Exclusive;Data Source=" & accessPath.Replace(".accdb", "1.accdb") & ";Jet OLEDB:Engine Type=5")
'删除Access文件
Kill(accessPath)
jro.CompactDatabase("Provider=microsoft.ACE.OLEDB.12.0;Mode=share Exclusive;Data Source=" & accessPath.Replace(".accdb", "1.accdb"), _
"Provider=microsoft.ACE.OLEDB.12.0;Mode=share Exclusive;Data Source=" & accessPath & ";Jet OLEDB:Engine Type=5")
Kill(accessPath.Replace(".accdb", "1.accdb"))
'清空内容
txtResult.Clear()
'刷新显示
txtResult.Refresh()
txtResult.AppendText(Format(Now(), "H:mm:ss") & Constant.SPACE_2 & "压缩成功!!" & Chr(13) & Chr(10))
txtResult.Show()
Else
MsgBox("请选择相应的 Access 数据库文件!!")
End If
Catch ex As Exception
MsgBox("选择的 Access 数据库文件无法正常打开,请确认该文件是否存在!!")
End Try
End Sub
'关闭access数据库链接
Private Sub closeAccessConnection()
Dim dbConnectionString As String = "Provider=microsoft.ACE.OLEDB.12.0;Mode=share Exclusive;Data Source=" & accessPath
Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)
Try
If dbConnection.State <> ConnectionState.Closed Then
dbConnection.Close()
End If
If accessConn.State <> ConnectionState.Closed Then
accessConn.Close()
End If
Catch Ex As Exception
MsgBox("关闭 access 数据库链接出错!!")
End Try
End Sub
- vb.net压缩access文件(.accdb)
- VB.NET压缩ACCESS数据库
- VB.NET压缩ACCESS数据库
- c# .accdb格式access数据库压缩
- vb 与 .accdb 格式的access数据库的连接方法
- 关于新旧ACCESS数据库连接(MDB,ACCDB)
- VB 压缩Access数据库
- VB 压缩Access数据库
- 将office2010 access的accdb文件保存为mdb格式
- VB.NET创建/修复/压缩/备份/恢复ACCESS数据库
- Vb.net Access
- vb.net 操作Access
- c#操作access: mdb, accdb
- VB.net数据库编程(01):简单的入门实例--连接到Access文件
- VB.net数据库编程(01):简单的入门实例--连接到Access文件
- vb.net 使用Access数据库 保存和读取图片文件
- java---access文件(accdb\mdb)文件处理方式比较jackcess 和 Access_JDBC30
- [VB.NET]vb.net添加数据(ACCESS)
- 探索ORACLE之ASM概念
- 杂收数量导入on hand
- Android可滑动的开关效果
- java中日期、日期格式、日期计算学习笔记(二)
- iphone开发中的一些小技巧
- vb.net压缩access文件(.accdb)
- zend studio 9 字体,颜色,快捷键等相关设置
- 组合索引优化一条SQL
- C语言转换说明符
- GPIO
- 世界上对我最好的男人~
- 遭遇File size limit exceeded错误
- Java3d透明效果实现
- 关于System.DBNull的判断