怎么用VB压缩数据库!马上给分!

visualbasic999 2001-08-11 09:23:23

...全文

100 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

一川烟草123 2001-08-11

打赏
举报

回复

每月月初月中壓縮

一川烟草123 2001-08-11

打赏
举报

回复

If Day(Date) = 15 Or Day(Date) = 1 Then
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
FileCopy App.Path & "\thetemp.mdb", App.Path & "\pos_sys.mdb"
Kill App.Path & "\thetemp.mdb"
Set jro = Nothing
End If

一川烟草123 2001-08-11

打赏
举报

回复

If Day(Date) = 15 Or Day(Date) = 1 Then
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\pos_sys.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\thetemp.mdb;Jet OLEDB:Engine Type=4"
FileCopy App.Path & "\thetemp.mdb", App.Path & "\pos_sys.mdb"
Kill App.Path & "\thetemp.mdb"
Set jro = Nothing
End If

在这个例子中，我们将会探讨如何使用VB和ADO来实现数据库的压缩功能。首先，了解ADO的核心组件：Connection、Command、Recordset和Error对象。Connection对象用于建立和数据库的连接；Command对象执行SQL命令；...

例如，可以使用SQL Server的DBCC SHRINKFILE或DBCC SHRINKDATABASE命令来压缩数据库，这些命令可以通过VB6.0的ADO连接执行。接下来是数据库修复，这通常涉及到处理损坏的数据文件或恢复丢失的数据。当数据库出现...

在这个例子中，`OpenDatabase`函数用于打开数据库，`CompactAndRepair`方法执行压缩和修复操作，`Destination`参数指定了新压缩数据库的位置。完成后，记得关闭数据库连接以释放资源。修复Access数据库则通常用于...

- `Database example.mdb`: 这可能是一个示例数据库，用于演示如何使用VB压缩Access数据库。 - `MSSCCPRJ.SCC`: 这是一个版本控制系统文件，通常与Visual SourceSafe相关联，表明这些文件可能在某个源代码控制环境...

在VB（Visual Basic）编程环境中，我们可以利用ADO（ActiveX Data Objects）库来实现对Access数据库的压缩功能。Access数据库是Microsoft Office套件中的一个重要组件，主要用于存储和管理中小型数据。随着时间的...

数据库(包含打印，安装，报表)

1,217

社区成员

55,952

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章