社区
Access
帖子详情
请教一个语句
sqr5
2003-10-20 05:25:34
如果使用SQL指令实现Access的“压缩和修复数据库”功能呢?
...全文
37
10
打赏
收藏
请教一个语句
如果使用SQL指令实现Access的“压缩和修复数据库”功能呢?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
changechange
2003-10-29
打赏
举报
回复
....
zjcxc
2003-10-29
打赏
举报
回复
所以引用DAO就行了.
zjcxc
2003-10-29
打赏
举报
回复
ACCESS数据库不支持SQL命令压缩.要用DAO的DBEngine.CompactDatabase来压缩数据库.
SQL数据库支持,可以用: DBCC SHRINKFILE
收缩相关数据库的指定数据文件或日志文件大小。
语法
DBCC SHRINKFILE
( { file_name | file_id }
{ [ , target_size ]
| [ , { EMPTYFILE | NOTRUNCATE | TRUNCATEONLY } ]
}
)
示例
下例将 UserDB 用户数据库中名为 DataFil1 的文件收缩到 7 MB。
USE UserDB
GO
DBCC SHRINKFILE (DataFil1, 7)
GO
sqr5
2003-10-28
打赏
举报
回复
大家帮帮忙吧……
changechange
2003-10-28
打赏
举报
回复
http://access911.net/index.asp?board=4&recordid=71FAB71E
changechange
2003-10-28
打赏
举报
回复
jet sql不支持压缩
用VBA才可以
'下属代码需要引用DAO
Public Sub ComDB(strTargetDBname As String)
On Error GoTo err_ComDB
Dim strTempDBpath As String, strDBname As String
strDBname = Right(strTargetDBname, 13)
strTempDBpath = Left(strTargetDBname, Len(strTargetDBname) - 13)
Debug.Print strTargetDBname & " " & strDBname & " " & strTempDBpath
If strDBname = "databases.mdb" Then
DBEngine.CompactDatabase strTargetDBname, strTempDBpath & "temp.mdb"
Kill strTempDBpath & "databases.mdb"
Name strTempDBpath & "temp.mdb" As strTempDBpath & "databases.mdb"
MsgBox "压缩完成!"
Else
MsgBox "数据库文件名错误!"
End If
Exit Sub
err_ComDB:
MsgBox Err.Description
End Sub
liuyann
2003-10-28
打赏
举报
回复
SQL指令不行
VBA可以
cheny1234
2003-10-28
打赏
举报
回复
SQL指令?
VBA编程就可以
Public Sub ComDB(strTargetDBname As String)
On Error GoTo err_ComDB
Dim strTempDBpath As String, strDBname As String
strDBname = Right(strTargetDBname, 13)
strTempDBpath = Left(strTargetDBname, Len(strTargetDBname) - 13)
Debug.Print strTargetDBname & " " & strDBname & " " & strTempDBpath
If strDBname = "databases.mdb" Then
DBEngine.CompactDatabase strTargetDBname, strTempDBpath & "temp.mdb"
Kill strTempDBpath & "databases.mdb"
Name strTempDBpath & "temp.mdb" As strTempDBpath & "databases.mdb"
MsgBox "压缩完成!"
Else
MsgBox "数据库文件名错误!"
End If
Exit Sub
err_ComDB:
MsgBox Err.Description
End Sub
sqr5
2003-10-21
打赏
举报
回复
关于这个功能我查了好久msdn都没找到……
能说说怎么用吗?
注:我把“如何”打成了“如果”……
chenyubang
2003-10-21
打赏
举报
回复
一般SQL的书都有,自己查下书,DIY吧
一个
查询的SQL
语句
请教
,希望能够用一条SQL
语句
得到结果
一个
查询的SQL
语句
请教
,希望能够用一条SQL
语句
得到结果
mysql去重保留最后
一个
_一条sql
语句
完成MySQL去重留一
前几天在做
一个
需求的时候,需要清理mysql中重复的记录,当时的想法是通过代码遍历写出来,然后觉得太复杂,心里想着应该可以通过
一个
sql
语句
来解决问题的。查了资料,
请教
了大佬之后得出了
一个
很便利的sql
语句
,这里分享下这段sql
语句
和思路。需求分析数据库中存在重复记录,删除保留其中一条(是否重复判断基准为多个字段)解决方案碰到这个需求的时候,心里大概是有思路的。最快想到的是可以通过一条sql
语句
来...
数据库执行SQL
语句
跟踪
不管你是刚学习软件开发的初学者,还是在IT职场打拼多年的职场老鸟,都免不了要同各种数据库打交道,你可能会碰到以下几个问题:1、感觉自己写的sql
语句
没有错,但是执行结果总是不对;2、某个功能执行的
语句
知道有涉及到哪几张表,但是具体执行的
语句
是什么,排查起来实在费力;3、在执行某个功能时,会出现某个表的数据被更新或者删除,但是不知道执行的
语句
到底是什么。以上的问题,学完本课程都可以轻松解决。
oracle修改的sql
语句
,
请教
oracle高手 SQL
语句
该怎么修改,如何写。
当前位置:我的异常网» Oracle开发»
请教
oracle高手 SQL
语句
该怎么修改,如何写。
请教
oracle高手 SQL
语句
该怎么修改,如何写。www.myexceptions.net网友分享于:2013-02-04浏览:18次请问oracle高手 SQL
语句
该如何修改,怎么写。急!!!后台为ORACEL数据库:select A.SORDER,A.KOTECD,A.JSTSTM,A....
SQL
语句
中EXISTS的使用详解及示例
EXISTS怎么用? EXISTS和NOT EXISTS子句的返回值是
一个
BOOL值。 EXISTS内部有
一个
子查询
语句
(SELECT … FROM…), 我将其称为EXIST的内查询
语句
。其内查询
语句
返回
一个
结果集。EXISTS子句根据其内查询
语句
的结果集空或者非空,返回
一个
布尔值。 一种通俗的可以理解为:将外查询表的每一行,代入内查询作为检验,如果内查询返回的结果取非空值,则EXISTS子句返...
Access
7,714
社区成员
28,798
社区内容
发帖
与我相关
我的任务
Access
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
复制链接
扫一扫
分享
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章