adodb connection（ADODB.Connection 怎么设置）

本文目录

• ADODB.Connection 怎么设置
• ADODB.Connection与ADODB.Recordset 分别是什么如何理解
• ADODB.Connection 有错误
• ADODB.Connection 错误 ’800a0e78’
• ADODB.Connection 错误 ’800a0e7a’ 未找到提供程序.该程序可能未正确安装. /dachuang3/conn.asp,行 7
• ADODB.Connection 是什么意思啊
• vb中 Dim oConn As ADODB.Connection是什么意思
• 如何检查adodb.connection的连接状态
• ADODB.Connection 错误 ’800a0e7a’
• 神啊！！！救救我吧！！ADODB.Connection 错误 ’800a0e7a’ 把我搞疯了！

ADODB.Connection 怎么设置

《%
’定义一个变量，用于数据库连接
dim conn
’设置连接变量为ADODB.Connection对象，这是VB用于进行数据库连接的对象
Set conn=Server.CreateObject("ADODB.Connection")
’打开指定的数据库，其中，Open方法后面的参数即为我们通常所说的数据库连接字符串，这里主要设置了该字符串的两个参数，一个是Dbq,一个是Driver,这是使用的ODBC方式来连接数据库，现在流行的方法一般为OLE方式，效率比较高，也不会出错，所以，下面这句可能改成如下:
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("\data\olive.mdb")
conn.Open "Dbq=" & Server.Mappath("data\olive.mdb") & ";Driver="
’执行一条查询语句，从product表中查询前20条记录，并将结果赋给rs变量，这是一个RecordSet类型的变量，保存的是记录集
Set rs=conn.Execute("select top 20 * from product")
’开始while循环，直到记录集尾,将记录集里的信息取出，并转写成html标记语言代码
do while (not rs.eof)
’添加《tr》标签
response.write("《tr》")
’添加一个图片标签，并将该标签的图片路径属性设置以从数据库读取的图片路径rs("pic"),即product表的pic字段
response.write("《img width=100 height=100 src="&rs("pic")&"》")
’添加一个超链接标签，并将连接属性设置为一个显示产品详细信息的asp页面，其中带一个参数:id，这个应该是产品的id，同时，在链接后面加上产品的名字rs("productname"),.来自product表的productname字段
response.write("《a href=’show.asp?id="&rs("id")&"’》"&rs("productname")&"《/a》《/tr》")
’移动到下一条记录
rs.movenext
loop
’关闭记录集
rs.close
’关闭数据库连接
conn.close
’销毁数据库连接对象
set conn=nothing
%》
大概意思就是这样，有问题再交流，呵呵！

ADODB.Connection与ADODB.Recordset 分别是什么如何理解

Server.CreateObject("ADODB.Connection")
创建一个新的数据库连接,只是分配空间,并没有初始化,还需要连接数据库
Server.CreateObject("ADODB.Recordset")
创建一个新的数据库记录,也只是分配空间了,用的时候还需要查询数据库获得具体的记录

ADODB.Connection 有错误

你试下设置一下数据库的权限，在文件属性里面的安全标签下设置。
如果没有安全标签，就在文件夹选项里面，取掉"启用文件简单共享"前面的勾勾。
把所有用户勾上所有权限再试下吧。
我以前遇到你这错误是这样解决的，不知道对你管用不。

ADODB.Connection 错误 ’800a0e78’

ADODB.Connection ’800a0e78’ 对象关闭时，不允许操作。
这是因为你在执行 set rs=conn.execute (sql) 这一行前，conn 的已经被关闭（conn.close）了，回头找一下上面执行过的命令就知道了。
不然你就再打开 conn 一次。
conn.Open "driver={SQL Server};Server=XXX;uid=XXX;pwd=XXX;database=XXX" 这个命令。

ADODB.Connection 错误 ’800a0e7a’ 未找到提供程序.该程序可能未正确安装. /dachuang3/conn.asp,行 7

如果运行环境是64位操作系统的话，尝试如下：
IIS信息管理器 - ‘查看应用程序池’ - 右边操作中选择‘设置应用程序池默认设置..’，在‘常规’中设置‘启用 32 位程序’为True。

ADODB.Connection 是什么意思啊

Public dbConn As ADODB.Connection ’定义一个ADODB连接
Public stuRs As ADODB.Recordset ’定义Recordset对象
Public SqlFindStr As String
Public Function Conn2DB() As Boolean
’公共Access数据库连函数
Dim connStr As String
Dim dbName As String
dbName = App.Path & "\" & "StudentDB.mdb" ’返回程序所在路径
’ Access连接字符串
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName
Set dbConn = New ADODB.Connection ’定义一个ADODB连接对象
If dbConn.State 《》 adStateOpen Then ’判断ADODB连接是否打开
dbConn.Open conStr ’如果不是打开状态 就打开连接
End If
Conn2DB = True
End Function
Public Function ExcSQL(ByVal sql As String) As ADODB.Recordset
Dim rst As ADODB.Recordset
’执行一条SQL查询,得到一个记录集
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic ’得到记录
Set ExcSQL = rst
End Function

vb中 Dim oConn As ADODB.Connection是什么意思

ADODB是VB的数据库类，
需要在加载项里勾选启用这个类，然后就可以这样定义了
.Connection是数据库连接类
Dim
oConn
As
ADODB.Connection
这样定义后，去连接了数据库就可以用这个变量进行筛选等数据库读写

如何检查adodb.connection的连接状态

S_OK == _m_opConn-》Open(_bstr_t(lpczConn), BARE, BARE, lOption)
就表明连接上了。
------------------------------- 补充1
_m_opConn-》GetState();
AdStateClosed 默认，指示对象是关闭的。
AdStateOpen 指示对象是打开的。
AdStateConnecting 指示 Recordset 对象正在连接。
AdStateExecuting 指示 Recordset 对象正在执行命令。
AdStateFetching 指示 Recordset 对象的行正在被读取。

ADODB.Connection 错误 ’800a0e7a’

ADODB.Connection 错误 ’800a0e7a’
问题：在调试ASP网页时，出现错误提示：ADODB Connection 错误’800a0e7a’，未找到提供程序。该程序可能未安装。

解决：在排除是IIS未安装、设置之类的错误后，去微软官方网站下载了MDAC，安装后问题解决。
***隐藏网址***

神啊！！！救救我吧！！ADODB.Connection 错误 ’800a0e7a’ 把我搞疯了！

很明显哈，你的IIS不支持Access2007，把你的数据库data.accdb用Access2007转换成2003的，转换后的文件名为data.mdb，在把你的conn.asp文件改成下面的就可以了
《%
’链接数据库字符串
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/data.mdb")
conn.Open connstr
If Err.Number《》0 Then
Response.Write("数据库有问题")
Response.End()
End If
’关闭数据库过程
Sub CloseDB
If conn《》"" Then
conn.Close
Set conn=Nothing
End iF
End Sub
%》