VBA中ADODB函数为什么总是出现用户未定义？？？？

adodb.recordset和adodb.connection确切的说都是WINDOWS下的集成组建，server.createobject是将目标组建实力化并将他实例对象赋值在变量中来操作，实例adodb.recordset就是将结果集组件实例化，从而是对应变量能够在查询数据库结果时能够得到相对应的结果集，adodb.connection的实例则是创建连接数据库的对象，从而实现连接数据库和关闭数据库连接等操作

ADODB是一个数据模型，他使用的是microsoft.jet.oledb.4.0的数据库引擎ADODC是一个数据控件。他是使用了microsoft.jet.oledb.4.0的数据引擎的一个控件。在编程的过程中使用ADODC控件发非常方便的，但是他没有使用ADODB数据模型灵活。adodc是控件，目的方便大家。adodb是对象，必须自己建立连接，较麻烦但比较灵活。有了adodb就可以不要adodc了，两者作用相同的。如：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "你的数据库文件名.mdb;Persist Security Info=False " Adodc1.RecordSource = "select * from 你的表名 " Adodc1.Refresh另有简明阐述供参考：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是数据对象,操作数据库需通过编写代码 来实现张志晨

引用组件 Microsoft ActiveX Data Objects 2.x Library

引用组件 Microsoft ActiveX Data Objects 2.x Library

从兼容性角度来讲 ADODB依旧是很好的选择??如果开发的程序使用范围比较固定，完全可以使用php5的pdo ，毕竟效率高但是如果开发的程序是面向大众分发的??如果想取得最大程度的兼容支持，ADODB用处很大adodb的性能是有点低下，但通过实际项目测试，完全是可以接受的adodblite已经不见更新了，php4和php5都要使用的话只能选择adodb之类的

CnStr = "Provider=SQLOLEDB;Data Source=" & DbIp & ";DATABASE=" & DbName & ";UID=" & DbUser & ";pwd=" & DbPwDbIp ip地址DATABASE 数据库名字DbUser 用户名DbPw 密码Dim conn As New ADODB.ConnectionCnStr = "Provider=SQLOLEDB;Data Source=192.168.29.21;DATABASE=dsy;UID=sa;pwd=abc" Conn.Open cnstrSql = "select * from 表名" "SQL查询语句Set rs = New ADODB.Recordset "新建一个记录集实例rs.Open Sql, conn, 1, 3 "后面的3是确定读写权限的

adodb是一个数据库对象,也就是ADO对象,是连接数据库用的.使用前要先引用,方法是:菜单里,工程-引用,选择micro.. ActiveX Data Objects 2.0~2.8 Library 2.0~2.8选一个,看你的系统安装的版本,一般可以选用低版本的

ADODB的控件是在“工程--部件”中加入的

首先引用:MS activeX data object 2.0 libr...或更高1 与数据库建立连接Option ExplicitPublic cn As ADODB.ConnectionSub Mdb_open() Set cn = New ADODB.Connection On Error Resume Next cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "mydate.mdb" & ";Jet OLEDB:Database Password=51082481;Persist Security Info=False" End Sub2 运用方法Private Sub Command2_Click() Dim rs As ADODB.Recordset sql = "select * from 表""sql语句 核心,根据目的不同 语法也不一样 set rs = cn.Execute(sql)"执行语句 if not rs.eof then "如果存在记录 ...要作的事情 end if set rs=nothingEnd Sub

adodc是控件，目的方便大家。adodb是对象，必须自己建立连接，较麻烦但比较灵活。有了adodb就可以不要adodc了，两者作用相同的。

呵呵，是你太懒啦，你在网上搜一下很多示例。你搜索ADOVB就可以找到定义数据库，记录集DimconnAsNewADODB.Connection‘---定义数据库连接DimrsAsNewADODB.Recordset"---定义记录集csql="select*fromtablewhere你的条件"RS.opencsql,3,3ifRS.recordcount=0ThenRS.addnew"---插入RS(0)=...RS(1)=...RS(n)=..RS.update()else更新RS(0)=...RS(n)=..RS.Update()更新如果是删除，则RS.delete()endIF如果只是查询，用RS.opencsql,conn,1,1就行插入还可以使用csql="insertintotable(字段列表）vlaues(对应值)"RS.opencsql,conn,3,3删除也可以用csql="deletefromtablewhere条件”RS.opencsql,conn,3,3

首先引用组件 Microsoft ActiveX Data Objects 2.x Library然后可以用ADO编写数据库操作.(ADODB 是组件，不是控件）ADO读取Excel文件(以下VBScript代码，与VB可能有差异)Dim ConnSet Conn = CreateObject("ADODB.Connection")Set rs = CreateObject("ADODB.Recordset")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & sSourceXLS & ";" & _ "Extended Properties=""Excel 8.0;HDR=No;IMEX=1;""" rs.Open "Select * from [Sheet1$]", Conn, 1, 3 c=rs.recordcount rs.move 1 msgbox (rs(0))"读取单无格A1的内容 rs.close conn.close

创建工程的时候引用ado的类声明PubliclsbAsNewADODB.RecordsetPublicconnAsNewADODB.Connectionconn.ConnectionString="driver={sqlserver};server=服务器名;uid=sa;pwd=;database=main"uid是用户名pwd是密码Setlsb=conn.Execute(sql)执行sql语句就行了.兄弟你有这事问我啊

没做过这些，给下你思路。MySQL应该提供转换功能的啊？如果提供但不提供对于access的话，就看能转成MS sql的吗?如何能就转成ms sql的，在去转换成access.

因为用这东西的人不多，只能给你介绍一下，国外的网站http://www.vbcode.com/Asp/showsn.asp?theID=8692这里还有其他示例，看有你需要的吗。==我寻找vb操作asp虚拟空间access的代码始终没找到理想的。

直接在百度输入ADODB。DLL就可以找到答案了。

adodb是组件，oledb是驱动也可以理解为接口。没有什么太大的联系

我们在 ASP 中调用 SQL Server 的存储过程时，如果使用 Adodb.Command 对象，通常使用如下的代码：dim cmd, rsset cmd = Server.CreateObject("ADODB.Command")cmd.ActiveConnection = conncmd.CommandType = adCmdStoredProccmd.CommandText = "TestProc"cmd.Parameters.Append cmd.CreateParameter("@a" , adInteger, adParamInput, 4, 1)cmd.Parameters.Append cmd.CreateParameter("@b" , adVarChar, adParamInput, 50, "b")...set rs = cmd.Execute

连接数据库与获得记录集

你下载的是rpm包还是原码？

创建工程的时候引用ado的类 声明 Public lsb As New ADODB.Recordset Public conn As New ADODB.Connection conn.ConnectionString = "driver={sql server};server=服务器名;uid=sa;pwd=;database=main" uid是用户名 pwd是密码 Set lsb = conn.Execute(sql) 执行sql语句就行了 .兄弟你有这事问我啊

ADOX是德国黑白胶片的品牌

连接字符串不对。

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效.可能错误： 1 数据库的连接对象adodb.connection 的设置有错。 2，在使用其所长连接对象时已经被你关闭，应重新打开。 3，虽然连接对象打开，recordset对象设置有误。

是的，打不开的。

<%"定义一个变量，用于数据库连接 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("dataolive.mdb")conn.Open "Dbq=" & Server.Mappath("dataolive.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.movenextloop"关闭记录集rs.close"关闭数据库连接conn.close"销毁数据库连接对象set conn=nothing %>大概意思就是这样，有问题再交流，呵呵！

1、有向导可用，你在屏幕左侧看跟工具箱挨着的有个数据源管理，这里点新数据源，就可以向导连接。2、那个MicrosoftActiveXDataObject缩写简称ADO，很好找，是有的，有空q我，给你发截图看。3、数据绑定没有向导，也不需要，简单的设置一个datasource属性即可，不需要复杂的向导。4、不是用ADO控件，而是用ADO.net程序集，要连接到MicrosoftSQLServer7.0或更高版本，请使用SQLServer.NETFramework数据提供程序的SqlConnection对象。要连接到OLEDB数据源，或连接到MicrosoftSQLServer6.x或更低版本，请使用OLEDB.NETFramework数据提供程序的OleDbConnection对象。5、应该是Adodc1.ConnectionString="xxxxxxxxx"引号中为连接字符串，具体的语法建议你按F1看MSDN的帮助，很详细。6、还有问题可以共同探讨，qq369220969

1、首先，adodb不属于VB的内部控件，需要先引用ADO库。2、其次，点击工程菜单，点击引用。3、最后，找到MicrosoftActivexDataObjects2.8Library选项卡，打钩即可。

connection.state=0(连接)connection.state=1(断开)

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

Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & X.mdb conn.Open SQL = "select * from 表 where 日期>=" & """ & "2013-5-17"& """ rs.Open SQL, conn, adOpenKeyset, adLockOptimistic rs.Update

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: [url=zhidao.baidu/question/showinfo?id=<%=rs1(]我做个一个网页，但是总是显示对象关闭，无法连接。 请各位大侠帮帮忙 程序如下： <%set rs=server.CreateObject("adodb.recordset")sql = "select * from class" rs.open sql, conn, 1,1 if rs.bof and rs.eof then rs.close else do while not rs.eof %> <table width=400 cellpadding="0" cellspacing="0" border=0> <tr><td width=400 height=30 background="image/biaoti"> <span class="样式0"><%=rs("ClassName")%></span></td></tr> <tr><% Set rs1=Server.CreateObject("ADODB.RecordSet") if info<>"" then sql1="select * from news where ClassName=""&info&"" order by id desc" rs1.Open sql1,conn,1,1 end if if rs1.eof and rs1.bof then *******提示出错行****** response.Write("暂时没有记录") else for i = 1 to 6 %> <td height=20 bgcolor="#FFFFFF"><div align=left><span > <span >※ </span></span><a href="showinfo?id=<%=rs1("id")%>" target="_blank" ><SCRIPT> String.prototype.Tlength = function(){var arr=this.match(/[^x00-xff]/ig);return this.length+(arr==null?0:arr.length);} String.prototype.left = function(num,mode){if(!/d+/.test(num))return(this);var str = this.substr(0,num);if(!mode) return str;var n = str.Tlength() - str.length;num = num - parseInt(n/2);return this.substr(0,num);} document.write("<%=rs1("title")%>".left(24,true)); </SCRIPT></a><span class="STYLE22">(<%= rs1("infotime") %>)</span></div></td> <% rs1.movenext if rs1.eof then exit for next rs1.close end if %> </tr> <tr><td height=21 bgcolor="#FFFFFF"><div align=right><span ><a href="infolist?info=<%=rs("ClassName")%>" target="_blank">More>></a></span></div></td></tr></table><%rs.movenext loop rs.close end if %> 解析: [/url]把“if rs1.eof and rs1.bof then *******提示出错行****** ”上一行的 end if 放到 rs1.close 行的下面。

Set cn = New ADODB.Connectioncn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "cj.mdb;Persist Security Info=False""新建一个数据库联接If cn.State = 0 Then cn.Open"如果关闭,就打开Set rs = New ADODB.Recordsetrs.ActiveConnection = cnrs.CursorLocation = adUseClientrs.CursorType = adOpenStaticrs.LockType = adLockBatchOptimisticsql = "select * from qzcj ""数据库的表If rs.State = adStateOpen Then rs.CloseIf rs.State = adStateClosed Then rs.Open sql, , , adCmdTextSet DataGrid1.DataSource = rs

问题是程序不知道ADODB.Recordset是什么？你这是没有正确引用造成的。在工具栏选择“引用”出现如下的对话框，查找到并打钩选中“Microsoft ActiveX Date Objects 2.8 Library”，然后单击“确定”，即可正确引用。

Dim CNN As New ADODB.ConnectionDim RS1 As ADODB.Recordsetdim strCn as string dim sql as string Set RS1 = New ADODB.RecordsetSet CNN = New ADODB.ConnectionCNN.CursorLocation = adUseClientstrCn = "Provider=Microsoft.Jet.OLEDB.4.0;Password=123;data source = O:scheduleBS ScheduleMarco Temp Data537.mdb;Persist Security Info=True" ----这里你适当改下CNN.open (strCn )sql = "select * from tablename "--表明改下RS1.Open sql, CNN, adOpenKeyset, adLockOptimistic, adCmdTextrs.MoveFirst For I = 1 To 1000 ComboBox1.AddItem RS1.Fields("品牌") RS1.MoveNext Next IRS1.Close Set RS1 = Nothing Set DB1 = Nothing Exit Sub100: MsgBox "找不到符合条件的记录", 1 + 16, "系统提示" 如果不行把 Set RS1 = Nothing Set DB1 = Nothing 注释掉试试

贴代码，要不然不知道具体错误

数据库如果是sqlserver的，换一种连接要快得多connstr="driver={SQL Server};server=localhost;database=vgcmis;uid=sa;pwd=lavend;"

SQL数据库连接不用路径的在你计算机上安装SQLServer2000或更高版本，然后附件数据库文件ADB配置你的ADODB的ConnectionString属性，连接服务器为127.0.0.1，验证设置为windows验证，默认数据库设置为你的数据库名称，测试连接通过，完成。

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

引用microsoft activeX Data objects 2.X librarymicrosoft activeX Data objects recordset 2.XSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "Driver={sql server};server=(local);uid=sa;pwd=;database=账户管理"conn.ConnectionTimeout = 30conn.Openrs.Open "select * from 账户信息", conn, adOpenStatic, adLockReadOnly, adCmdTexttext1=rs.fields("列")"实现显示功能...要实现查询就在rs.open的时候把条件代入下一个上一个用rs.movenext这种方式添加新记录的代码with rs .addnew .fields("列")=text1... .updateend with删除:rs.Delete adAffectCurrent

ADODB是动态数据链接对象Recordset是ADODB的一个子类一般情况下我们定义:Dim Rst as New ADODB.Recordset以后直接用Rst就可以了。至于!,例Form1!Text1.Text = "空"Form1.Text1.Text = "空"两句的效果是一样的。Rst!Field("ID")等价于Rst.Field("ID")但是不能用Form1!Text1!Text="空"

daima

ADODB.Recordset"800a0bcd"BOF或EOF中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。我表示1.数据库没资料2.正确的答案我也要3.给我解释为什么会错误你自己都表示了数据库没有资料，怎么还问这问题呢。错误都提示了记录集为空了。加几条数据到DB里就好了。BOF指示当前记录位置位于Recordset对象的第一个记录之前。EOF指示当前记录位置位于Recordset对象的最后一个记录之后。返回值BOF和EOF属性返回布尔型值。说明使用BOF和EOF属性可确定Recordset对象是否包含记录，或者从一个记录移动到另一个记录时是否超出Recordset对象的限制。如果当前记录位于第一个记录之前，BOF属性将返回True(-1)，如果当前记录为第一个记录或位于其后则将返回False(0)。如果当前记录位于Recordset对象的最后一个记录之后EOF属性将返回True，而当前记录为Recordset对象的最后一个记录或位于其前，则将返回False。如果BOF或EOF属性为True，则没有当前记录。如果打开没有记录的Recordset对象，BOF和EOF属性将设置为True，而Recordset对象的RecordCount属性设置为零。打开至少包含一条记录的Recordset对象时，第一条记录为当前记录，而BOF和EOF属性为False。如果删除Recordset对象中保留的最后记录，BOF和EOF属性将保持False，直到重新安排当前记录。

Set adoRs = adoConn.Execute("exec Book_SelectName "sqlarg"")改为Set adoRs = adoConn.Execute("exec Book_SelectName "" & sqlArg & """)

adodb是动态数据链接对象recordset是adodb的一个子类一般情况下我们定义:dimrstasnewadodb.recordset以后直接用rst就可以了。至于!,例form1!text1.text="空"form1.text1.text="空"两句的效果是一样的。rst!field("id")等价于rst.field("id")但是不能用form1!text1!text="空"

Create Table a-b 语法错误的，"a-b"不是一个合法的表名，用字母、数字或下划线为表命名

第一行包含语句错了,写成注释了,应该是 原因是没有包含文件,也就没有conn对象,你使用conn作参数必然报错. 如果还有问题欢迎追问,问题解决请及时选为满意回答,谢谢.

可以同时建立多个连接的，连接失败有可能是IP、端口、用户、密码不匹配，或者远程服务器没有为你授权，可以使用MYSQL管理工具查看mysql数据库user表确认。

Rs.open sql,conn,3,2 改成Rs.open sql,conn,1,1试试

LZ,你新建数据工程就会自动添加到工具箱的.http://iask.sina.com.cn/b/1758202.html