adodb

打开 Stream 对象来操作二进制或文本数据的流。语法Stream.Open Source, Mode, OpenOptions, UserName, Password参数 可选。ConnectModeEnum 值，指定得出的 Stream 的访问模式（例如，读/写或只读）。默认值为 adModeUnknown。有关访问模式的详细信息，请参阅 Mode 属性。如果未指定 Mode，它将被源对象继承。例如，如果以只读模式打开源 Record，那么默认情况下 Stream 也将以只读模式打开。参数列表：adModeRead =1adModeReadWrite =3adModeRecursive =4194304adModeShareDenyNone =16adModeShareDenyRead =4adModeShareDenyWrite =8adModeShareExclusive =12adModeUnknown =0adModeWrite =2 可选。StreamOpenOptionsEnum 值。默认值为 adOpenStreamUnspecified。adOpenStreamAsync =1adOpenStreamFromRecord =4adOpenStreamUnspecified=-1 可选。String 值，包含（在需要时）访问 Stream 对象的密码。说明当把 Record 对象作为源参数传递时，将不使用 UserID 和 Password 参数，因为这样就已经可以访问 Record 对象。与之类似，Record 对象的 Mode 也被传递给 Stream 对象。如果未指定 Source，打开的 Stream 将不包含数据，并且其 Size 为零 (0)。当 Stream 关闭时，要避免丢失任何写入此 Stream 的数据，请用 CopyTo 或 SaveToFile 方法保存 Stream，或将其保存到另一个内存位置。Stream 未打开时，有可能读取 Stream 的所有只读属性。如果异步打开 Stream，所有后续的操作（除了检查 State 和其他只读属性）都将被阻塞，直到 Open 操作完成为止。

在诸如文件系统或电子邮件系统这样的树状分级结构中，Record 可能有一个与之相关联的位的默认二进制流，其中包含文件或电子邮件的内容。Stream 对象可用于对包含这些数据流的字段或记录进行操作。可以通过下列方式获取 Stream 对象：通过指向包含二进制或文本数据的对象（通常是文件）的 URL。此对象可以是简单的文档、表示结构化文档的 Record 对象或文件夹。通过打开与 Record 对象相关联的默认 Stream 对象。打开 Record 时便可获取与 Record 对象相关联的默认流。只需打开该流便可删除一个往返过程。通过将 Stream 对象实例化。这些 Stream 对象可用来存储用于应用程序的数据。跟与 URL 相关联的 Stream 或 Record 的默认 Stream 不同，实例化的 Stream 在默认情况下与基本源没有关联。用 Stream 对象的方法和属性可以执行下列操作：用 Open 方法从 Record 或 URL 打开 Stream 对象。用 Close 方法关闭 Stream。用 Write 和 WriteText 方法向 Stream 中输入字节或文本。用 Read 和 ReadText 方法从 Stream 中读取字节。用 Flush 方法将仍在 ADO 缓冲区中的任何 Stream 数据写入基本对象。用 CopyTo 方法将 Stream 的内容复制到另一 Stream。用SkipLine方法和 LineSeparator 属性控制从源文件中读取行的方式。用 EOS 属性和 SetEOS 方法确定流位置的结尾。用 SaveToFile 和 LoadFromFile 方法保存和恢复文件中的数据。用 Charset 属性指定用于存储 Stream 的字符集。用 Cancel 方法终止异步 Stream 操作。用 Size 属性确定 Stream 中的字节数。用 Position 属性控制 Stream 中的当前位置。用 Type 属性确定 Stream 中的数据类型。用 State 属性确定 Stream 的当前状态（已打开、关闭或正在执行）用 Mode 属性指定 Stream 的访问模式

二个比较大的问题:一.if request.QueryString("test")=0 then rs.MovePrevious "此地出错 if not rs.bof then 因为 recordset 运行完就在 bof 了，你要先做 recordset 是否在 bof 的判决断，才能决定是否 recordset.MovePrevious.二.recordset 中有需要用到 MovePrevious, Movenext , 就要用廻圈, 例如 while , 否则程序由上到下只跑一次, 根本没有办法 MovePrevious, Movenext ...下面是廻圈和自定函数的范例：不过跑起来是没什么意义的。if position="" and i_date<>"" then sql="select * from invite where i_date like ""&i_date&"%"" rs.open sql,conn,1,1 while not rs.eof <<---- 廻圈起点（意思是：当 不是 rs.尾端 ，运行廻圈中间这段程序） SetValue(1) <--使用自定函数 rs.movenext end while <<---- 廻圈终点 SetValue(2)end if sub SetValue(tmpS) <--自定函数 if tmpS=1 then f_position=rs("i_position") f_number=rs("i_number") f_locus=rs("i_locus") f_description=rs("i_description") f_demand=rs("i_demand") f_recordcount=rs.recordcount f_absolutepage=rs.absolutepage elseif tmpS=2 then f_position="" f_number="" f_locus="" f_description="" f_demand="" f_recordcount=0 f_absolutepage=0 end ifend sub我建议你先别搞数据库，先把 VB Script 的程序结构搞好才是真的。

Recordset对象是基于连接数据库的数据表或通过Command对象执行结果获取的记录集。要通过ADO对象模型对数据库中的数据进行操作，经常需要使用该对象。本文介绍使用Recordset对象的属性来获取数据库字段的方法。本文使用微软Access自带的“罗斯文2007”数据库文件，程序将开启其中的“运货商”数据表记录集，将返回记录集记录总数及有关字段。1、新建Excel工作簿，打开Visual Basic编辑器，在工程资源管理器中插入一个模块，在模块的“代码”窗口中输入如下代码：Sub RecordsetAttribute()Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.Provider="Microsoft.ACE.OLEDB.12.0" "设置提供者名称conn.ConnectionString="data source="&_ThisWorkbook.Path&"罗斯文2007.accdb" "设置连接字符串conn.Mode=adModeReadWrite "设置数据库读写模式conn.Open "打开数据库连接rs.CursorLocation=adUseClient "设置游标引擎位置rs.Open"运货商",conn,adOpenForwardOnly,adLockOptimistic "打开“运货商”数据表记录集Debug.Print"记录总数："&rs.RecordCount "输出记录集记录数Do Until rs.EOF "遍历记录集所有记录Debug.Print rs.AbsolutePosition&vbTab&rs.Fields("公司") "输出当前记录位置及“公司”字段rs.MoveNext "移动到下一条记录LoopEnd Sub2、按F5键运行该过程，此时可以在“立即窗口”中获取指定数据库中的字段记录

你没有启用ADODB的引用，或者加载ADODC控件，在“工程|引用”中添加“Microsoft ActiveX Data Object [版本号,比如2.8等] Library”就可以了[用户定义类型未定义]在 Visual Basic 中可以创建用户自己的数据类型，但它们必须先在 Type...End Type 语句中或是在一个注册过的对象库或类型库中定义，这个错误的原因与解决方法如下所示： 试图以一个未定义的类型来声明变量或参数，或者是指定了一个未知的类或对象名称。 请在一个模块中使用 Type 语句来定义新的数据类型。若正试图创建一个类的引用，则这个类必须要被工程所见。若程序中要引用一个类，工程中必须有这个指定的类模块。要声明的类型在另一个模块中已经被声明为 Private。 请在标准模块中定义此类型，这样可以让它成为 Public。这是一个有效的类型，但是定义它的对象库或类型库并没有在 Visual Basic 中注册。 请显示“引用”对话框，然后选择适当的对象库或类型库。例如，如果不复选“引用”对话框中的 Data Access Object，像 Database、Recordset、TableDef这样一些类型就不能被识别，在代码中引用它们便会产生此错误。详细信息，请选择有问题的项目，并按下 F1 键。

Set rs = New ADODB.Recordset这是个数据库设置语句，需要与其它相关设置语句一起用才会起效。Format(rs("字段名"), "0000")语句仅是格式化某一字符串或变量，使其变成你所需要的格式。如你的例子，就是将rs("字段名")设置为与“0000”相同的格式。rs("字段名") 应该是从数据库中读取以“字段名”为关键字的列的数据

PublicMy_CnnAsNewADODB.Connection"连接数据库StrCnn="Provider=SQLOLEDB.1;Password=密码;PersistSecurityInfo=True;UserID=用户名;InitialCatalog=数据库名;DataSource=服务器名"My_Cnn.CursorLocation=adUseClientMy_Cnn.OpenStrCnn使用数据库DimsqlAsStringDimMy_tempAsNewADODB.Recordset执行SQL语句（一般插入，删除数据）sql="数据库语句"My_cnn.Executesql读取数据sql="查询语句"My_temp.Opensql,My_cnn,adOpenDynamic,adLockOptimisticMy_temp.field("字段名")

谁会晓得你的问题会是什么呢?

Imports System.DataImports System.Data.OleDbImports ADODB

C#就不要用adodb.recordset了，C#用SqlClient类库例如：using(SqlConnection con = new SqlConnection())using(SqlCommand comm = con.CreateCommand()){ comm.CommandText = "select distinct * from DSLInfo order by did"; con.Open(); using(SqlDataReader read = comm.ExecuteReader()) { while(read.Read()) { Response.Write(read["字段1"]); Response.Write(read["字段2"]); } }}

这是我以前编的，代码如下:" On Error Resume Next" 建立变量Dim wsh,fso,str,stm,stm1,enCodeini,enCodeLastenCodeini="utf-8"enCodeLast="gb2312"enCodeiniRep="charset="&enCodeinienCodeLastRep="charset="&enCodeLast" 初始化全局对象Set fso = CreateObject("scripting.filesystemobject")Set wsh = CreateObject("wscript.shell")" 直接运行脚本则提醒******************************************* If WScript.Arguments.Count=0 Then Wsh.RegWrite "HKCRFoldershellenCodeTo", "【Utf-8 转 GB2312】", "REG_SZ" Wsh.RegWrite "HKCRFoldershellenCodeTocommand", "wscript.exe "&Chr(34)&WScript.ScriptFullName&Chr(34)&Chr(32)&chr(34)&"%1"&chr(34), "REG_SZ" wsh.Popup "【Utf-8 转 GB2312】",9,"请不要直接运行脚本",64 WScript.Quit End If " 定义循环获取子文件夹函数getSubFD WScript.Arguments.Item(0)"*******************************************SUB getSubFD(FolderArg)Set folders = fso.GetFolder(FolderArg) For Each fileName In folders.Files Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = enCodeini stm.Open stm.loadfromfile fileName.Path Str = stm.ReadText stm.Close Set stm = NothingSet stm1 = CreateObject("Adodb.Stream") stm1.Type = 2 stm1.mode = 3 stm1.charset =enCodeLast stm1.Open str = Replace(str,enCodeiniRep,enCodeLastRep) stm1.WriteText str stm1.SaveToFile fileName.Path, 2 stm1.flush stm1.Close NextSet subfolders = folders.SubFolders For Each subfolder In subfolders getSubFD(subfolder) NextEnd SubDim ttSet tt=createobject("sapi.spvoice")tt.speak("1")tt.speak("2")tt.speak("3")tt.speak("4")tt.speak("5")tt.speak("6")tt.speak("7")tt.speak("8")tt.speak("9")tt.speak("10")tt.speak("11")tt.speak("12")tt.speak("13")tt.speak("14")tt.speak("15")MsgBox "完成"

"菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

要引用的

type 数据类型adTypeBinary 1 adTypeText 2 mode 访问模式adModeRead 1 adModeWrite 2 adModeReadWrite 3 你的问题：可以建两个stream，想怎么操作就怎么操作。这是我用adodb.stream时留的笔记。我觉得最详细的是：在msdn中找Stream object (ADO)这个最详细。我也是在msdn中查的。你自己看看。-------ADODB.Stream用法-----msdn keyword:Stream object (ADO)propertylineseparatoreos end positioncharset 字符集size 大小position 当前位置type 数据类型adTypeBinary 1 adTypeText 2 state 当前状态mode 访问模式adModeRead 1 adModeWrite 2 adModeReadWrite 3 methodopenclosewritewritetextreadreadtextflushcopytoskiplineseteossavetofileloadfromfilecancel下面给个实例!

是 recordset 还是 connection?Set rs = Server.CreateObject("Adodb.Recordset")建立一个记录集对象, 然后使用记录集对象里面自带的方法和属性, 对数据库进行查询和记录集操作Set conn = Server.CreateObject("Adodb.Connection")建立一个数据库连接对象, 这个用来连接数据库的

VBS啊,权限够吗?很容易就造成权限不够啊?没多大意义(说错不要见怪啊,我不太懂这个)

用set rs=server.createobject("adodb.recordset") 可以对记录集的指针控制，如分页,我们就要用到它

首先你想要理解数据库抽象层的概念，理解这时候你就知道ADODB的作用了，php虽然对大多数数据库都支持，但是每种数据库都有很大差异，这样当你更换数据库的时候，就要改动大量代码，ok，有了ADODB你完全没有了这些烦恼！目前最新版本是：adodb516a ，下载地址：http://sourceforge.net/projects/adodb/files/adodb-php5-only/adodb-516-for-php5/adodb目前支持mysql、postgresql、oracle、interbase、microsoft sql server、access、foxpro、sybase、odbc及ado。另外adodb不仅对select操作提供强大支持，对update和insert也提供强大支持。使用了ADODB后，对于系统的移植将会变得轻而易举。adodb使用案例很多，像PostNuke、phpwiki等很多开源系统都使用adodb作为数据库抽象层！那么今天就来看看使用adodb并连接mysql数据库的简单教程！<?php//adodb.inc.php包含所有数据库类包含的使用函数，必须加载require_once "./adodb5/adodb.inc.php";//创建连接对象，接受使用的数据库$conn = &ADONewConnection("mysql");//那么开始连接mysql数据库了$conn->connect("localhost","root","","test");//设置字符编码$conn->Execute("set names utf8");$res = $conn->Execute("select * from user");if (!$res){ echo $conn->ErrorMsg();}else{ var_dump($res);}?>

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

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

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

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

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

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

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

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，直到重新安排当前记录。

daima

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="空"

引用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

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

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

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 注释掉试试

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

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

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

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: [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 行的下面。

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

<%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大概意思就是这样，有问题再交流，呵呵！

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

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

<%"定义一个变量，用于数据库连接 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 数据库的连接对象adodb.connection 的设置有错。 2，在使用其所长连接对象时已经被你关闭，应重新打开。 3，虽然连接对象打开，recordset对象设置有误。

ADOX是德国黑白胶片的品牌

连接字符串不对。

创建工程的时候引用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语句就行了 .兄弟你有这事问我啊

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

连接数据库与获得记录集

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

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

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

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

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

首先引用组件 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

呵呵，是你太懒啦，你在网上搜一下很多示例。你搜索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

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

首先引用: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

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

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

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

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

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

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是数据对象,操作数据库需通过编写代码 来实现张志晨

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