怎样用vb把数据库（Access)压缩和修复

以前使用

DAO

时，Microsoft

有提供

CompactDatabase

Method

来压缩

Microsoft

Access

文件，RepairDatabase

Method

来修复损坏的

Microsoft

Access

文件，。可是自从

ADO

出来之后，好像忘了提供相对的压缩及修复

Microsoft

Access

文件的功能。

现在

Microsoft

发现了这个问题了，也提供了解决方法，不过有版本上的限制！限制说明如下：

ActiveX

Data

Objects

(ADO),

version

21

Microsoft

OLE

DB

Provider

for

Jet,

version

40

这是

Microsoft

提出的

ADO

的延伸功能：Microsoft

Jet

OLE

DB

Provider

and

Replication

Objects

(JRO)

这个功能在

JET

OLE

DB

Provider

version

40

(Msjetoledb40dll)

及

JRO

version

21

(Msjrodll)

中第一次被提出！

这些必要的

DLL

文件在您安装了

MDAC

21

之后就有了，您可以在以下的网页中下载

MDAC

的最新版本！

Universal

Data

Access

Web

Site

在下载之前先到

VB6

中检查一下，控件设定引用项目中的

Microsoft

Jet

and

Replication

Objects

XX

library

如果已经是

21

以上的版本，您就可以不用下载了！

1、新建一个新表单，选择功能表中的控件设定引用项目。

2、加入

Microsoft

Jet

and

Replication

Objects

XX

library，其中

(

XX

大于或等于

21

)。

3、在适当的地方加入以下的程序代码，记得要修改

data

source

的内容及目地文件的路径：

Dim

jro

As

jroJetEngine

Set

jro

=

New

jroJetEngine

jroCompactDatabase

"Provider=MicrosoftJetOLEDB40;Data

Source=d:\

wind2mdb",

_

'来源文件

在

DAO

360

之后，RepairDatabase

Method

已经无法使用了，以上的程序代码显示了

ADO

CompactDatabase

Method

的用法，而它也取代了

DAO

35

时的

RepairDatabase

method！

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

这是我的页面,数据库连接都是对的,代码也都执行了,但是数据库里就是没有数据

<!--#include file="Inc/config"-->

<!--#include file="Inc/conn"-->

<%dim action

action=requestquerystring("action")

if action="save" then

dim rs,sql

sql="select from dingdan"

Set rs= ServerCreateObject("ADODBRecordset")

rsopen sql,conn,1,3

rsAddNew

rs("name")=trim(request("name"))

rs("tel")=request("tel")

rs("fax")=request("fax")

rs("pany")=trim(request("pany"))

rs("adress")=trim(request("adress"))

rs("email")=trim(request("email"))

rs("content")=replace(trim(request("content")),"'","")

rs("times")=now()

rsUpdate

responsewrite "<script>alert('定单提交成功！');locationhref='order';</script>"

end if

%>

<>

<form action="Orderaction=Save" method="post" name=form_s onSubmit="return checkform();">

<tr>

<td colspan="2" height=15></td>

</tr>

<tr>

<td width=20% height=35 align=center>姓 名:</td>

<td align=left><input name=name type=text id="name" size="30"></td>

</tr>

<tr>

<td height=35 align=center>电 话:</td>

<td align=left><input name=tel type=text id="tel" size="30"></td>

</tr>

<tr>

<td height=35 align=center>传 真:</td>

<td align=left><input name=fax type=text id="fax" size="30"></td>

</tr>

<tr>

<td height=35 align=center>公 司:</td>

<td align=left><input name=pany type=text id="pany" size="50"></td>

</tr>

<tr>

<td height=35 align=center>地 址:</td>

<td align=left><input name=adress type=text id="adress" size="50"></td>

</tr>

<tr>

<td height=35 align=center>E-mail:</td>

<td align=left><input name=email type=text id="email" size="50"></td>

</tr>

<tr>

<td height=25 align=center>定单内容:</td>

<td align=left><textarea name=content cols="50" rows="5" id="content"></textarea></td>

</tr>

<tr>

<td height=10 colspan="2"></td>

</tr>

<tr>

<td height=50 colspan="2" align=center><input type=submit name=Submit value="提交">

<input type=reset name=Submit value="重置"></td>

</tr></form>

</>

解析:

(1)sql语句错（2）页面未转码

以上就是关于怎样用vb把数据库（Access)压缩和修复全部的内容，包括:怎样用vb把数据库（Access)压缩和修复、数据写不进数据库,请各位大侠帮忙,紧急呼救!!!、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！