无法在这个位置找到: head2.htm
当前位置: 建站首页 > 新闻动态 > 行业新闻 >

Access数据信息库过问题的几类处理计划方案

时间:2021-02-28 23:03来源:未知 作者:jianzhan 点击:
难题:ess数据信息库里边没存是多少数据信息,为何容积非常大,他人与我存一样的数据信息为何仅有我的文档容积的1/10。2、为何我删掉了数据信息,可是数据信息库容积沒有减少?

难题:

ess数据信息库里边没存是多少数据信息,为何容积非常大,他人与我存一样的数据信息为何仅有我的文档容积的1/10。
2、为何我删掉了数据信息,可是数据信息库容积沒有减少?
3、为何我存了几幅图片到ole字段名里边数据信息库容积就增大,并且增大的速率超出照片的整体积?
4、为何我的数据信息库沒有几个纪录,容积就20多MB
5、每一次容积增大后必须手动式缩小?有木有方法全自动缩小?


回应:

1、ess里边莱单 专用工具- 数据信息库好用专用工具 - 缩小修补数据信息库 便可以了
缘故是:Access在删掉纪录或是开展别的必须临时性数据信息的实际操作后,其实不物理学删掉这种无用数据信息,仅有缩小修补数据信息库的情况下才真实删掉。就象windows里将文档放入收购站内没法提升能用室内空间务必清除收购站是一个大道理。

怎样实际操作请参照下列 FLASH 动漫:
手动式缩小修补数据信息库。
down/eg/
down/eg/swf/rc.swf

3、手动式将文档插进ole字段名的文档,具体储存在数据信息库文件时ole模块会在文档数据信息的前边提升一段信息内容,用以让ole模块解决你放入去的文档,因此容积能变大。

4、请查询一下,你的数据信息库里边是不是有包括ole字段名的表,ole字段名能够储存容积十分大的文档,造成容积提高很一切正常。再看一下你的数据信息库文件文本框、表格中有木有置入应用照片做情况。Access中的情况照片所有是以bmp照片文件格式储放的,即便你本来特定的是jpg文件格式,Access也会全自动将文档文件格式变换为bmp再储放。
不管是情况還是控制,要是有照片,容积便会歪斜常地扩大。也有,假如你的编程设计成运作时候应用很多临时性数据信息,用完后再删掉的,也会导致容积猛增。

5、能够设定撤出时全自动缩小,流程以下:
莱单 - 专用工具 - 选择项 - 基本关掉时缩小 - 前边加上勾

之上为转贴,下列为原創。

上边的是几类数据信息库增大后的处理计划方案。

我觉得说的是怎样避免数据信息库变的这般大。

立在程序猿的视角来讲,因此不一定对诸位网站站长有效。

仅仅也许能够给诸位Asp+Access的程序创作者一点小小的的提议罢了。。

选用好几个数据信息库,而并不是一数量据库。

能够大约特定一定范畴,比如从0到1W应用2号数据信息库。

1W到2W应用2号数据信息库。

怎样应用?。。

con和rs界定好几个。。

con1是一号数据信息库的,con2是二号数据信息库的。。

rs1是一号数据信息库的,rs2是二号数据信息库的。。

加上:

当数据信息做到XW条时应用新的conX和rsX。。

改动:

查寻要改动的ID号。。去特定是数据信息库实行实际操作。

删掉:

同改动。

用这一有一个并不是非常好处理的地区。例如我想查寻客户排名,查寻積分较大的10个客户。

因为用的好几个数据信息库,并且用的好几个rs。。

寻找了二种方式,诸位按照爱好应用。

第一种:

 

之上一部分全篇转截无改动。前几日收集了一个三万6千数据信息,可是发觉空余的服务器上早已沒有数据信息库室内空间了,变换为mdb后,造成了一个极大的网站,如今常常服务器宕机。

ess做为网站的数据信息库,集中化生产制造HTML网页页面的情况下,是很痛楚的。

创作者:小K(Kid)

 

Private Function UnionRs(rsA As Recordset, rsB As Recordset) As Recordset
Dim rs As New Recordset, i%
For i = 0 To rsA.Fields.Count - 1
'设定纪录集题目列
rs.Fields.Append rsA.Fields(i).Name, rsA.Fields(i).Type, adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next
'加上rsA到rs
If Not rsA.EOF Then
rsA.MoveFirst
If rs.State = adStateClosed Then rs.Open
While Not rsA.EOF
rs.AddNew
For i = 0 To rs.Fields.Count - 1
rs(i) = rsA(i)
Next
rsA.MoveNext
Wend
rs.UpdateBatch
End If
'加上rsB到rs
If Not rsB.EOF Then
rsB.MoveFirst
If rs.State = adStateClosed Then rs.Open
While Not rsB.EOF
rs.AddNew
For i = 0 To rs.Fields.Count - 1
rs(i) = rsB(i)
Next
rsB.MoveNext
Wend
rs.UpdateBatch
End If
'回到生成后的新的纪录集
Set UnionRs = rs
End Function
'启用合拼涵数
Private Sub Command1_Click()
Dim rs As Recordset
Set rs = UnionRs(rsA, rsB) '合拼rsA和rsB
Set DataGrid1.DataSource = rs
End Sub


第二种:

当纪录总数许多的情况下,用循环系统的方式的确较为慢,较为快一点的,能够依靠临时性表来做:
假定你的2个数据信息库部位为:C:\testA.mdb和C:\testB.mdb
A As New ADODB.Connection, cnB As New ADODB.Connection, rs As New ADODB.Recordsetrs.Open "temp", cnA, adOpenDynamic, adLockReadOnly, adCmdTable




选用好几个同样数据信息库,浏览时任意挑选数据信息库。

这一相对性来讲便捷一点,但是不容易降低数据信息库的容积,只是降低数据信息库的联接数。 (责任编辑:admin)

织梦二维码生成器
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
无法在这个位置找到: ajaxfeedback.htm
栏目列表
推荐内容


扫描二维码分享到微信