set conn=Server.CreateObject("ADODB.connection")

你有这种连接方法,要注意两个问题,第一odbc里的数据源要添加,第二,含有这个连接代码的所有文件,都要必须和dbmdb这个数据库文件在同一文件夹下,也就是相同路径!

<%

set conn=servercreateobject("adodbconnection")

connopen "driver={microsoft access driver(mdb)};dbq="&servermappath("kxhinfomdb")

%>

你代码没什么问题,应该是你的数据源不添加或添加错误,如果你正确添加了数据源,那么你把我这段代码中的数据库文件名改成你的就可以了

或者直接换成

Set Conn = ServerCreateObject("ADODBconnection")

DB = "xxmdb"

ConnStr = "Provider=MicrosoftJetOLEDB40;Data Source=" & ServerMapPath(DB)

ConnOpen ConnStr

这个问题一般是由数据库查询语句错误，

根据提示，是查询语句没有 返回记录，

检查数据库 查询语句，最简单的方法是 粘贴下来 放在数据库里 执行一下，如果还不行的话

做一个 判断语句

如果 数据集为空 那么

或者

结束如果

（=。=有点易语言了 呵呵~）

ADO(ACTIVEX DATA OBJECTS)应用层的数据访问接口

ODBC 数据库驱动接口

OLE DB 系统级数据访问接口

DAO (DATA ACCESS OBJECTS) 对象的数据访问接口

ADO是基于全新的OLE DB技术而设计的是一种基于应用程序层的数据访问接口它是DAO/RDO的后继产物

DAO是VB最先采用的面向对象的数据访问接口,通过DAO访问MICROSOFT JET数据库引擎

ADODC是封装ADO的VB数据控件,可减少代码编写

ADODB是数据对象, *** 作数据库需通过编写代码 来实现

以上简单说明仅供参考

呵呵，是你太懒啦，你在网上搜一下很多示例。你搜索ADO

VB就可以找到

定义数据库，记录集

Dim

conn

As

New

ADODBConnection

‘---定义数据库连接

Dim

rs

As

New

ADODBRecordset

’---定义记录集

csql

=

"select

from

table

where

你的条件"

RSopen

csql,3,3

if

RSrecordcount

=

0

Then

RSaddnew

'---插入

RS(0)

=

RS(1)

=

RS(n)

=

RSupdate()

else

更新

RS(0)

=

RS(n)

=

RSUpdate()

更新

如果是删除，则RSdelete()

end

IF

如果只是查询，用RSopen

csql,conn,1,1就行

插入还可以使用

csql

=

"insert

into

table

(字段列表）

vlaues(对应值)"

RSopen

csql,conn,3,3

删除也可以用

csql

=

"delete

from

table

where

条件”

RSopen

csql,conn,3,3

语法：

数据库连接．连接Access （文件名，密码）

成功返回真，失败返回假

例如：

数据库连接连接Access (“db1mdb”, “123456”)

以上就是关于set conn=Server.CreateObject("ADODB.connection")全部的内容，包括:set conn=Server.CreateObject("ADODB.connection")、我的网站 后台提示“ADODB.Field 错误 '80020009'、详解DAO、ADO、ADODC和ADODB的区别和联系等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！