251、如何使用 ADO
来压缩或修复 Microsoft Access 资料库？
252、如何打印
MSChart 控制项的内容？
253、您使用 DAO 存取
Access 2000 时会出现错误吗？
254、如何把文件置入到
Text 或RichText
255、如何增加快捷方式到
启动 组
251、如何使用 ADO 来压缩或修复 Microsoft Access
资料库？
以前使用 DAO 时，Microsoft 有提供 CompactDatabase Method 来压缩 Microsoft Access
资料库，RepairDatabase Method 来修复损毁的 Microsoft Access 资料库，这个在《问题: 处理加了密码的
Access 资料库》我们已经提过了。可是自从 ADO 出来之后，好像忘了提供相对的压缩及修复 Microsoft Access
资料库的功能，也不时的在网路讨论区中看到有人问到这个问题，但是似乎没有看到有人回答这一类的问题。
现在 Microsoft 发现了这个问题了，也提供了解决方法，不过有版本上的限制！限制说明如下：
ActiveX Data Objects (ADO), version 2.1
Microsoft OLE DB Provider
for Jet, version 4.0
这是 Microsoft 提出的 ADO 的延伸功能：Microsoft Jet OLE DB Provider and
Replication Objects (JRO)
这个功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version
2.1 (Msjro.dll) 中第一次被提出！
这些必要的 DLL 文件在您安装了 MDAC 2.1 之后就有了，您可以在以下的网页中下载
MDAC 的最新版本！
在下载之前先到 VB6 中检查一下，【工程】【设定引用项目】中的 Microsoft Jet and Replication Objects
X.X library 如果已经是 2.1 以上的版本，您就可以不用下载了！
在您安装了 MDAC 2.1 或以上的版本之后，您就可以使用 ADO 来压缩或修复 Microsoft Access
资料库，下面的步骤告诉您如何使用 CompactDatabase Method 来压缩 Microsoft Access 资料库：
1、开启一个新工程，点选功能表中的【工程】【设定引用项目】。
2、加入 Microsoft Jet and Replication
Objects X.X library，其中 ( X.X 大于或等于 2.1 )。
3、在适当的地方加入以下的程序码，记得要修改 data
source 的内容及目地资料库的路径：
Dim jro As jro.JetEngine
Set jro = New
jro.JetEngine
jro.CompactDatabase
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb", _
'来源资料库
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc2.mdb;Jet
OLEDB:Engine Type=4" '目的资料库
在 DAO 3.60 之后，RepairDatabase Method 已经无法使用了，以上的程序码显示了 ADO
CompactDatabase Method 的用法，而它也取代了 DAO 3.5 时的 RepairDatabase method！
252、如何打印 MSChart 控制项的内容？
我这里所说的打印 MSChart 控制项的内容，不单指打印图表而已，还包括建立图表使用的原始数据资料！
我第一次使用 MSChart 控制项时，就发现它并没有提供打印的功能，因为以前使用的 Graph
控制项，是有打印功能的！经过研究之后，发现只有一个 EditCopy 方法可以利用来打印！
EditCopy 方法的功能：
以 Windows
中继文件格式将目前图表的图片复制到剪贴簿中。
它同时将建立图表使用的资料复制到剪贴簿中。
由于 EditCopy 方法会同时将文字及图片二种格式的资料一起放到剪贴簿中，所以我们只要从剪贴簿中，分别抓出文字及图片二种格式的资料，透过
Printer 物件，就可以将它们分别打印在同一张报表中！
在 Form 中放一个 MSChart 控制项及一个 CommandButton，不改属性，程序码如下：
Private Sub Command1_Click()
'复制 MSChart
控制项的内容，包括图表及资料
MSChart1.EditCopy
Printer.Print "
"
'从剪贴簿中抓出文字资料来打印
Printer.Print
Clipboard.GetText(vbCFText)
Printer.Print "
"
'从剪贴簿中抓出图表来打印
Printer.PaintPicture Clipboard.GetData(), 0,
2500
Printer.EndDoc
End Sub
253、您使用 DAO 存取 Access 2000 时会出现错误吗？
当您使用 DAO 存取 Access 2000 时，是否会出现以下的错误讯息？
"Run-time error 3343 Unrecognized Database Format XXX"
这个错误讯息有二个解决的方式：
1、如果您是使用 Data Control 来连结 Access 2000 的资料库时：
您必须在设定 Data Control 的 Source 前先加上一行
Set Data1.Recordset = rsDAO36
'rsDAO36 is a DAO 3.6
2、如果您是引用「Microsoft DAO 3.51 Object Library」来存取 Access 2000 的资料库时：
请加入【工程】【设定引用项目】「Microsoft DAO 3.6 Object Library」
254、如何把文件置入到 Text 或RichText
dim sFile as string
'Set sFile equal to your filename
dim i as
long
i = freefile()
open sFile for input as
#i
txtMain.text = input$(i,LOF(i))
close #1
255、如何增加快捷方式到 启动 组
利用 DDE 可方便地建立快捷方式：（Text1 为表单中的 Textbox）
Text1.LinkTopic =
"Progman|Progman"
Text1.LinkMode = 2
Text1.LinkExecute
"[ShowGroup(启动, 4)]"
Text1.LinkExecute "[AddItem(c:\vb5\myprog.exe,
我的程序)]" |