recordset

Adodc1.Recordset.Find ("名称="" & mno & """)如果没有找到，此时，Adodc1.Recordset.EOF将为TRUE，此时只能前移MovePrevious或MoveFirst或MoveLast，不能再MoveNext，即只能move 一个负值，而不能move一个正值。如果再继续move p，将出错，已经到最后一条的后面了执行以下代码可使Adodc1.Recordset.EOF为TRUE： Adodc1.Recordset.MoveLast Adodc1.Recordset.MoveNext Private Sub Command9_Click()Dim mno As String, p%p = Adodc1.Recordset.AbsolutePositionmno = InputBox("请输入名称", "查找窗")Adodc1.RefreshAdodc1.Recordset.Find ("名称="" & mno & """)If Trim(mno) = "" Then"应把此判断提到前面Adodc1.Recordset.AbsolutePosition = pValue = MsgBox("没有找到记录！", 0, "提示")ElseIf Text1.Text = "" ThenAdodc1.Recordset.AbsolutePosition = pValue = MsgBox("没有找到记录！", 0, "提示")Me.RefreshEnd If可用Bookmark代替AbsolutePositionEnd Sub

vb程序关闭时Recordset记录集和Connection会自动关闭吗？不会

二个比较大的问题:一.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 的程序结构搞好才是真的。

取结果集里面的第一列的值

用sql查询

表中要有主键 打开记录集用 adOpenStatic, adLockBatchOptimistic updatebatch放在你确定要更新的时候 相应地取消更新用cancelbatch CursorType、LockType 和 EditMode 属性范例 该范例说明如何在打开 Recordset 之前设置 CursorType 和 LockType 属性。同时还显示不同情况下 EditMode 的属性值。该过程运行时需要 EditModeOutput 函数。 Public Sub EditModeX() Dim cnn1 As ADODB.Connection Dim rstEmployees As ADODB.Recordset Dim strCnn As String " 使用雇员表中的数据打开记录集。 Set cnn1 = New ADODB.Connection strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; " cnn1.Open strCnn Set rstEmployees = New ADODB.Recordset Set rstEmployees.ActiveConnection = cnn1 rstEmployees.CursorType = adOpenKeyset rstEmployees.LockType = adLockBatchOptimistic rstEmployees.Open "employee", , , , adCmdTable " 显示不同编辑状态下的 EditMode 属性。 rstEmployees.AddNew rstEmployees!emp_id = "T-T55555M" rstEmployees!fname = "temp_fname" rstEmployees!lname = "temp_lname" EditModeOutput "After AddNew:", rstEmployees.EditMode rstEmployees.UpdateBatch EditModeOutput "After UpdateBatch:", rstEmployees.EditMode rstEmployees!fname = "test" EditModeOutput "After Edit:", rstEmployees.EditMode rstEmployees.Close " 删除新记录，因为这只是演示。 cnn1.Execute "DELETE FROM employee WHERE emp_id = "T-T55555M"" End Sub Public Function EditModeOutput(strTemp As String, _ intEditMode As Integer) " 打印基于 EditMode 属性值的报表。 Debug.Print strTemp Debug.Print " EditMode = "; Select Case intEditMode Case adEditNone Debug.Print "adEditNone" Case adEditInProgress Debug.Print "adEditInProgress" Case adEditAdd Debug.Print "adEditAdd" End Select End Function Adodc1.Recordset.EditMode这句话是表示Adodc1当前的状态在添加前先判断该数据在数据库中是否存在 data.edit表示进入编辑状态。

你将 data 声明为 Variant 试试dim data as Variant

recordset对象根源于数据表或查询。如想添加recordset的字段，或者更改查询数据源，在查询中添加计算字段，或者更改数据表结构，在数据表中添加字段。在数据表中添加字段有几种办法：1）用sql语句:Alter Table语句可以对数据表做多种操作，包括增删字段。2）引用adox，示例见下图3）引用DAO，示例见下图个人觉得sql语句是最佳选择

你查询数据库后的返回值

set rs=server.createobject("adodb.recordset") sql="select * from 表" rs.open sql,conn,1,1 if not(rs.bof and rs.eof) then while not rs.eof response.write rs("字段") rs.movenext wend end if其中rs.open sql,conn,1,1 中的conn为set conn=server.createobject("adodb.connection")不知道是不是你要的你没有说的太清楚

　　在 Microsoft Access数据库 (.mdb) 中要求使用记录集时， 将返回 DAO 记录集，在 Microsoft access 项目 (.adp) 中要求使用记录集时，将返回 ADO 记录集。 　　对于 Recordset 属性已经设置的使用 Visual Basic 的窗体，它进行的读/写行为取决于记录集 (ADO 或 DAO) 类型和包含在带有属性标识的记录集内的数据 (Jet 或 SQL) 类型。 　　在MDB中，默认情况下，Me.Recordset 是 DAO.Recordset 类型　　如　　dim rs as Dao.Recordset 　　set rs=Currentdb.openrecordset(tblUserOfficeCn) 　　set me.Recordset=rs 　　如果你希望使用ADODB.Recordset ，可使用下面方法。 　　在 Form_Open 里面加入一下代码 　　DGlobal rstSuppliers As ADODB.Recordset 　　Sub MakeRW() 　　DoCmd.OpenForm Suppliers 　　Set rstSuppliers = New ADODB.Recordset 　　rstSuppliers.CursorLocation = adUseClient 　　rstSuppliers.Open Select * From Suppliers, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 　　Set Forms(Suppliers).Recordset = rstSuppliers 　　Forms(Suppliers).UniqueTable = Suppliers 　　End Sub 　　注意 ADO Recordset.CursorLocation 属性必须设置为 adUseClient。 　　在属性表上 UniqueTable(唯一表)属性可在客户/服务器模式中使用，但不能用于 access 数据库 (.mdb)。此属性只能在 Visual Basic 代码中设置。 　　您可使用 Recordset 属性作如下操作： 　　1)将多个窗体连接为公用数据集。这种情况允许多窗体的同步处理。 　　例如：　　Set Me.Recordset = Forms!Form1.Recordset 　　2)使用窗体不直接支持的 Recordset 对象上的方法。 　　例如：当您想要通过 ADO 的 Find 方法或 DAO 的 Find 方法来使用自定义对话框查找记录时，您可以使用 Recordset 属性。 　　3)回绕一系列影响多窗体的编辑的事务处理(可以重作)。 　　当打开一个新的 Recordset 对象时，它的第一个记录就是当前记录。 　　另注意：如果您更改窗体的 RecordSource 属性，您必须使用 Set 语句。更改窗体的 Recordset 属性可能也将更改 RecordSource、RecordsetType 和 RecordLocks 属性。

rivate Sub Command2_Click()Dim str1 As StringDim str2 As Long str1$ = "你确定你要删除当前记录吗？" str2 = MsgBox(str1$, vbOKCancel, "删除记录") If str2 = 1 Then "单击yes Data1.Recordset.Delete Data1.Recordset.MoveNext End IfEnd Substr2 = MsgBox(str1$, vbOKCancel, "删除记录")返回的是整数，单击Yes为1，No为2 ＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇＇仔细检查，你的问题出在这里str2＄ = MsgBox(str1$, vbOKCancel, "删除记录")　　"这里用的是　vbOKCancel If str2＄ = vbYes Then "而这里怎么用vbYes了呢？应该用　vbOK

strSQL = "select * from password where password001 = "" & txtUserID.Text & """Passwork001 = txtuserid????? 我理解错误你就是这么设定的?还是？？？

SettheRecordSet.ActiveConnection=Nothing这一句为将记录集设定为离线记录集，不支持更新，如果想更新在strSQL="select*frompasswordwherepassword001=""&txtUserID.Text&"""Setrst=CreateRecordset(conn,strSQL)此处加上：SettheRecordSet.ActiveConnection=conn这样应该就可以了

vb2005里操作数据库使用ado.net你可以声明一个数据表(datatable)用select语句得到数据填充到这个数据表里比如dim xx as datatable"声明xx=...........用ado.net操作数据库并返回个数据表label1.text=xx.rows(0).items(0).tostringslabel2.text=xx.rows(1).items(1).tostrings..........................

Set rs = New ADODB.Recordset 写这个

与Access数据库连接AfxEnableControlContainer(); AfxOleInit(); _ConnectionPtr m_pConncetion; m_pConncetion.CreateInstance(__uuidof(Connection)); try { m_pConncetion->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=***.mdb","","",adModeUnknown);//数据库文件放在工程文件夹中 } catch(_com_error e) { AfxMessageBox("数据库连接失败!"); return FALSE; }查询 _RecordsetPtr m_pRecordset; int count; _variant_t vIndex,vCount,;m_pRecordset.CreateInstance(__uuidof(Recordset)); CString str;m_pRecordset->Open("SELECT COUNT(*) FROM Book",theApp.m_pConncetion.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText); vIndex=(long)0; vCount=m_pRecordset->GetCollect(vIndex); count=vCount.lVal;浏览记录 m_pRecordset->MoveFirst();m_pRecordset->MovePrevious(); m_pRecordset->MoveNext(); m_pRecordset->MoveLast(); CString m_strBookNo= (char*)_bstr_t(m_pRecordset->GetCollect("Bno")); CString m_strBookName=(char*)_bstr_t(m_pRecordset->GetCollect("Bname"));添加记录 m_pRecordset->AddNew(); m_pRecordset->PutCollect("Bno",_variant_t(m_strBookNo)); m_pRecordset->PutCollect("Bname",_variant_t(m_strBookName)); m_pRecordset->Update();修改记录 m_pRecordset->PutCollect("Bno",_variant_t(m_strBookNo)); m_pRecordset->PutCollect("Bname",_variant_t(m_strBookName)); m_pRecordset->Update();删除记录 m_pRecordset->Delete(adAffectCurrent); 如果帮助到您，请记得采纳为满意答案哈，谢谢！祝您生活愉快！ vae.la

Adodc1.Recordset("姓名").Value = Text2.TextFields不见了------------------------------------------如果其中一个字段已经存在就是UpDate而不是Insert

一个是锁类型，一个是游标类型，下面是它的值，具体作用可参考ADO帮助。 "// CursorTypeEnum Private Const adOpenForwardOnly = 0 Private Const adOpenKeyset = 1 Private Const adOpenDynamic = 2 Private Const adOpenStatic = 3 "// LockTypeEnum Private Const adLockReadOnly = 1 Private Const adLockPessimistic = 2 Private Const adLockOptimistic = 3 Private Const adLockBatchOptimistic = 4 它默认不加参数时为只读，可写有很多种组合，1,3 为最常用的只读组合，修改一般采用 4,3或3,3。 以下为MSDN里内容 LockType adLockReadOnly 默认值，只读。无法更改数据。 adLockPessimistic 保守式记录锁定（逐条）。提供者执行必要的操作确保成功编辑记录，通常采用编辑时立即锁定数据源的记录的方式。 adLockOptimistic 开放式记录锁定（逐条）。提供者使用开放式锁定，只在调用 Update 方法时锁定记录。 adLockBatchOptimistic 开放式批更新。用于与立即更新模式相反的批更新模式。 设置或返回以下某个 CursorTypeEnum 值。 AdOpenForwardOnly 仅向前游标，默认值。除了只能在记录中向前滚动外，与静态游标相同。当只需要在记录集中单向移动时，使用它可提高性能。 AdOpenKeyset 键集游标。尽管从您的记录集不能访问其他用户删除的记录，但除无法查看其他用户添加的记录外，键集游标与动态游标相似。仍然可以看见其他用户更改的数据。 AdOpenDynamic 动态游标。可以看见其他用户所作的添加、更改和删除。允许在记录集中进行所有类型的移动，但不包括提供者不支持的书签操作。 AdOpenStatic 静态游标。可以用来查找数据或生成报告的记录集合的静态副本。另外，对其他用户所作的添加、更改或删除不可见。rs.Open sql,conn,1,1本文中大量使用的方式。无法看到其他用户添加的新数据，但被其他用户删除的数据将变为不可访问，同时可以看到其他用户所作的修改。 rs.Open sql,conn,1,3静态打开方式。在你使用数据是其他用户无法访问该数据 rs.Open sql,conn,1,2动态的数据库打开方式，其他用户所进行的修改、删除和新建等工作都会立即在数据对象中体现出来，并且支持全部类型的数据移动方式，除非提供者不支持，否则也可以进行书签操作 rs.Open sql,conn,-1不指定打开方式

Sql语句改成如下写法就好了"select * from DB1 where false"

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键运行该过程，此时可以在“立即窗口”中获取指定数据库中的字段记录

将 Recordset 对象的多个记录检索到数组中。语法array = recordset.GetRows( Rows, Start, Fields )返回 Variant，其值为二维数组。参数Rows 可选。GetRowsOptionEnum 值，指示要检索的记录数。默认值为 adGetRowsRest。 Start 可选。String 值或 Variant，计算 GetRows 操作开始处的记录的书签。还可以使用 BookmarkEnum 值。 Fields 可选。Variant，表示单个字段名或序号位置，或者字段名数组或序号位置编号。ADO 仅返回这些字段中的数据。 说明使用 GetRows 方法将 Recordset 中的记录复制到二维数组中。第一个下标标识字段，第二个下标标识记录编号。当 GetRows 方法返回数据时，array 变量将自动调整到正确大小。如果未指定 Rows 参数的值，GetRows 方法将自动检索 Recordset 对象中的所有记录。如果请求的记录多于可用的记录，GetRows 仅返回可用的记录数目。如果 Recordset 对象支持书签，可以通过在 Start 参数中传递该记录的 Bookmark 属性的值来指定 GetRows 方法从哪一个记录开始检索数据。如果要限制 GetRows 调用返回的字段，可以在 Fields 参数中传递单个字段名/编号，或者字段名/编号的数组。在调用 GetRows 后，下一个未读取的记录成为当前记录。如果没有其他记录，EOF 属性将被设置为 True。

这个是数组，是选取哪一个RecordSet，不是记录。

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

recordset.move nrecordset.move -nrecordset。find

EOF 指示当前指针位置位于 Recordset 对象的最后一个记录之后。 例如，当前已经显示最后一条记录了，指针定位于记录集的最后一条记录，如果再执行一次(仅一次否则就出错)Recordset.movenext，此时，Recordset.bof=true 。BOF的原理也一样。 另外查询记录为空，即没有查到任何记录时Recordset.eof=true且Recordset.bof=true不能简单地理解为指针位于第一个记录就Recordset .eof=true，或指针位于最后一条记录就Recordset .eof=true。正确的应该是：BOF 指示当前指针位置位于 Recordset 对象的第一个记录之前。

adoconnectionx.Open = mlink改为adoconnectionx.Open mlink 我已经改过来了 可是提示 datafield"空" 这是怎么回事啊可改为:With DataReport1 Set .DataSource = adorecordsetx .DataMember = "" With .Sections("Section1").Controls For i = 1 To .Count If TypeOf .Item(intctrl) Is RptTextBox Then .Item(i).DataMember = "" .Item(i).DataField = adorecordsetx.Fields.Item(i - 1).Name End If Next i End WithEnd With

rs = Server.CreateObject("ADODB.RecordSet")　　rs.Open(sqlStr,conn,1,A)　　注：A=1表示读取数据；A=3表示新增、修改或删除数据。　　在RecordSet组件中，常用的属性和方法有：　　rs.Fields.Count：RecordSet对象字段数。　　rs(i).Name：第i个字段的名称，i为0至rs.Fields.Count-1　　rs(i)：第i个字段的数据，i为0至rs.Fields.Count-1　　rs("字段名")：指定字段的数据。　　rs.Record.Count：数据记录总数。　　rs.EOF：是否最后一条记录。　　rs.MoveFirst：指向第一条记录。　　rs.MoveLast：指向最后一条记录。　　rs.MovePrev：指向上一条记录。　　rs.MoveNext：指向下一条记录。　　rs.GetRows：将数据放入数组中。　　rs.Properties.Count：ADO的ResultSet或Connection的属性个数。　　rs.Properties(item).Name：ADO的ResultSet或Connection的名称。　　rs.Properties：ADO的ResultSet或Connection的值。　　rs.close()：关闭连接。

创建可更新Recordse对象的新记录。基本语法如下:recordset.AddNew FieldList. ValuesFieldList可选。新记录中字段的单个名称、一组名称或序号位置。Values可选.新记录中字段的单个或一组值。如果Fields是数组，那么Values也必须是有相同成员数的数组.否则将发生错误.字段名称的次序必须与每个数组中的字段值的次序相匹配。使用AddNew方法创建和初始化新记录.通过AddNew使用Supports方法可验证是否能够将记录添加到当前的Recordset对象“扣.在调用AddNew方法后，新记录将成为当前记录.并在调用Update方法后继续保持为当前记录.如果Recordset对象不支持书签，当移动到其他记录时将无法对新记录进行访问.是否需要调用Requery方法访问新记录则取决于所使川的游标类型.如果在编辑当前记录或添加新记录时调用AddNew, AD(〕将调用Update方法保存任何更改并创建新记录。

　　 程序数据库类 　　 ASP与Access数据库连接 　　<%@ language=VBscript%>　　<%　　dim conn mdbfile　　mdbfile=server mappath( 数据库名称 mdb )　　set conn=server createobject( nnection )　　conn open driver={microsoft access driver 　　(* mdb)};uid=admin;pwd=数据库密码;dbq= &mdbfile　　%>　　 ASP与SQL数据库连接 　　<%@ language=VBscript%>　　<%　　dim conn　　set conn=server createobject( nnection )　　con open PROVIDER=SQLOLEDB;DATA 　　SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称　　%>　　　　 建立记录集对象 　　set rs=server createobject( adodb recordset )　　rs open SQL语句 conn 　　　　 SQL常用命令使用方法 　　( ) 数据记录筛选 　　sql= select * from 数据表 where 字段名=字段值 order by 字段名 [desc] 　　sql= select * from 数据表 where 字段名 like %字段值% order by 字段名 [desc] 　　sql= select top * from 数据表 where 字段名 order by 字段名 [desc] 　　sql= select * from 数据表 where 字段名 in ( 值 值 值 ) 　　sql= select * from 数据表 where 字段名 beeen 值 and 值 　　　　( ) 更新数据记录 　　sql= update 数据表 set 字段名=字段值 where 条件表达式 　　sql= update 数据表 set 字段 =值 字段 =值 …… 字段n=值n where 条件表达式 　　　　( ) 删除数据记录 　　sql= delete from 数据表 where 条件表达式 　　sql= delete from 数据表 (将数据表所有记录删除)　　　　( ) 添加数据记录 　　sql= insert into 数据表 (字段 字段 字段 …) values (值 值 值 …) 　　sql= insert into 目标数据表 select * from 源数据表 (把源数据表的记录添加到目标数据表)　　　　( ) 数据记录统计函数 　　AVG(字段名) 得出一个表格栏平均值　　COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计　　MAX(字段名) 取得一个表格栏最大的值　　MIN(字段名) 取得一个表格栏最小的值　　SUM(字段名) 把数据栏的值相加　　引用以上函数的方法 　　sql= select sum(字段名) as 别名 from 数据表 where 条件表达式 　　set rs=conn excute(sql)　　用 rs( 别名 ) 获取统的计值 其它函数运用同上 　　　　( ) 数据表的建立和删除 　　CREATE TABLE 数据表名称(字段 类型 (长度) 字段 类型 (长度) …… )　　例 CREATE TABLE tab (name varchar( ) datetime default now())　　　　DROP TABLE 数据表名称 (永久性删除一个数据表)　　 记录集对象的方法 　　rs movenext 将记录指针从当前的位置向下移一行　　rs moveprevious 将记录指针从当前的位置向上移一行　　rs movefirst 将记录指针移到数据表第一行　　rs movelast 将记录指针移到数据表最后一行　　rs absoluteposition=N 将记录指针移到数据表第N行　　rs absolutepage=N 将记录指针移到第N页的第一行　　rs pagesize=N 设置每页为N条记录　　rs pagecount 根据 pagesize 的设置返回总页数　　rs recordcount 返回记录总数　　rs bof 返回记录指针是否超出数据表首端 true表示是 false为否　　rs eof 返回记录指针是否超出数据表末端 true表示是 false为否　　rs delete 删除当前记录 但记录指针不会向下移动　　rs addnew 添加记录到数据表末端　　rs update 更新数据表记录　　 　　Recordset对象方法　　Open方法　　recordset Open Source ActiveConnection CursorType LockType Options　　Source　　Recordset对象可以通过Source属性来连接Command对象 Source参数可以是一个Command对象名称 一段SQL命令 一个指定的数据表名称或是一个Stored 　　Procedure 假如省略这个参数 系统则采用Recordset对象的Source属性 　　　　ActiveConnection　　Recordset对象可以通过ActiveConnection属性来连接Connection对象 这里的ActiveConnection可以是一个Connection对象或是一串包含数据库连接信息（ConnectionString）的字符串参数 　　　　CursorType　　Recordset对象Open方法的CursorType参数表示将以什么样的游标类型启动数据 包括adOpenForwardOnly adOpenKeyset adOpenDynamic及adOpenStatic 分述如下 　　 　　常数 常数值 说明　　 　　adOpenForwardOnly 缺省值 启动一个只能向前移动的游标（Forward Only） 　　adOpenKeyset 启动一个Keyset类型的游标 　　adOpenDynamic 启动一个Dynamic类型的游标 　　adOpenStatic 启动一个Static类型的游标 　　 　　以上几个游标类型将直接影响到Recordset对象所有的属性和方法 以下列表说明他们之间的区别 　　 　　Recordset属性 adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic　　 　　AbsolutePage 不支持 不支持 可读写 可读写　　AbsolutePosition 不支持 不支持 可读写 可读写　　ActiveConnection 可读写 可读写 可读写 可读写　　BOF 只读 只读 只读 只读　　Bookmark 不支持 不支持 可读写 可读写　　CacheSize 可读写 可读写 可读写 可读写　　CursorLocation 可读写 可读写 可读写 可读写　　CursorType 可读写 可读写 可读写 可读写　　EditMode 只读 只读 只读 只读　　EOF 只读 只读 只读 只读　　Filter 可读写 可读写 可读写 可读写　　LockType 可读写 可读写 可读写 可读写　　MarshalOptions 可读写 可读写 可读写 可读写　　MaxRecords 可读写 可读写 可读写 可读写　　PageCount 不支持 不支持 只读 只读　　PageSize 可读写 可读写 可读写 可读写　　RecordCount 不支持 不支持 只读 只读　　Source 可读写 可读写 可读写 可读写　　State 只读 只读 只读 只读　　Status 只读 只读 只读 只读　　AddNew 支持 支持 支持 支持　　CancelBatch 支持 支持 支持 支持　　CancelUpdate 支持 支持 支持 支持　　Clone 不支持 不支持　　Close 支持 支持 支持 支持　　Delete 支持 支持 支持 支持　　GetRows 支持 支持 支持 支持　　Move 不支持 支持 支持 支持　　MoveFirst 支持 支持 支持 支持　　MoveLast 不支持 支持 支持 支持　　MoveNext 支持 支持 支持 支持　　MovePrevious 不支持 支持 支持 支持　　NextRecordset 支持 支持 支持 支持　　Open 支持 支持 支持 支持　　Requery 支持 支持 支持 支持　　Resync 不支持 不支持 支持 支持　　Supports 支持 支持 支持 支持　　Update 支持 支持 支持 支持　　UpdateBatch 支持 支持 支持 支持　　 　　其中NextRecordset方法并不适用于Microsoft Access数据库 　　　　LockType　　Recordset对象Open方法的LockType参数表示要采用的Lock类型 如果忽略这个参数 那么系统会以Recordset对象的LockType属性为预设值 LockType参数包含adLockReadOnly adLockPrssimistic adLockOptimistic及adLockBatchOptimistic等 分述如下 　　 　　常数 常数值 说明　　 　　adLockReadOnly 缺省值 Recordset对象以只读方式启动 无法运行AddNew Update及Delete等方法　　adLockPrssimistic 当数据源正在更新时 系统会暂时锁住其他用户的动作 以保持数据一致性 　　adLockOptimistic 当数据源正在更新时 系统并不会锁住其他用户的动作 其他用户可以对数据进行增 删 改的操作 　　adLockBatchOptimistic 当数据源正在更新时 其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增 删 改的操作 lishixinzhi/Article/program/SQLServer/201311/22247

adodc.recordset的指针默认在bof,如果记录集为空,那么bof也就是eof,当bof时move previous或者当eof时move next将抛出错误,因此在move previous和move next之前需要判断bof和eof

Adodc1.Recordset.Open 执行语句, , , adLockBatchOptimistic用OPEN 的方法执行，LOCKTYPE 可以不设置，也可以设置 adLockBatchOptimistic！

先给变量赋值

是什么数据库？那个"="是什么英文的，还是中文的？

用RecordSet执行这条查询语句 "select count(*) from 表名 WHERE 就业=""" 返回的就是就业字段为空的记录数。。

只显示数据建议用set rs=conn.execute(sql)可以提高效率。业务上要用到多个recordset，那也是没办法的事情。

a = rs.GetRows(1)

检查下Adodc1是否连上

你是不是在哪里把Recordset给Close,刚我也是。我是Recordset与Excel关联着，没关闭，所以导致VB打开Excel时一直打不开

你所描述的RecordSet应该是ADO中的类型。在Java中是用ResultSet来记录数据保存数据库中提取的数据信息，你直接搜ResultSet即可

很明显*号前少了个空格.修改如下:sql="select top "&(page*pagelistnum)&" * from [text] order by 公司名称"

http://blog.csdn.net/boabc2304/article/details/630327

正解如下：（以String方式返回Recordset...)Delphi/Pascal code?procedure TRes_Cq_HrQj_F.cxButton5Click(Sender: TObject);var a:OleVariant; i,j:integer; b:string;begin inherited; a:=Self.qry_cqjd.Recordset.GetRows(-1,1,emptyparam); if Varisarray(a) then begin for i:=0 to qry_cqjd.RecordCount-1 do for j:=0 to qry_cqjd.FieldCount-1 do begin if varisnull(a[j,i]) then continue; b:=a[j,i]; ShowMessage(b); end; end;end;

把下面的过程放到任何一个模块中Public Sub CreateTabel(rst As DAO.Recordset, TabelName As String) Dim TS As TableDefs Dim T As TableDef Dim F As DAO.Field Set TS = CurrentDb.TableDefs Set T = New TableDef rst.MoveFirst For Each F In rst.Fields T.Fields.Append T.CreateField(F.Name, F.Type, F.Size) Next T.Name = TabelName TS.Append T Set TS = Nothing Set T = Nothing Set F = NothingEnd Sub具体的调用方式就是CreateTabel　recorset对象,表名就可以在当前数据库中生成一个新表了结构和recorset相同但没有数据，如果你要复制数据，一行SQL就搞定了

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

速度

别人写的类吧

从意思来理解：RecordSource翻译为“记录源”Recordset翻译为“记录集”

Absolute意思是绝对，Position的含义是位置rs.AbsolutePosition返回当前记录的绝对位置rs.MoveFirst对应的rs.AbsolutePosition 为1在这样的状态，执行rs.MovePrevious，那么记录指针就前移到了数据表的外部，这个时候记录指针并没有指向任何一条记录，这里返回-2仅仅是系统规定的一个值，它就表示记录指针是从数据表内前移到数据表外部的。类似的道理，执行：rs.MoveLastrs.MoveNextrs.AbsolutePosition为-3这里也是系统规定的值，用来表示记录指针是从数据表内后移到数据表外部的。只要返回的记录集合有记录存在，无论是执行：MoveFirst还是MoveLast系统都不会报错！但是，系统提供了Eof和Bof属性，用来获得记录指针是否移动到数据表外部的信息。1，当记录指针指向数据表内任何一条记录的时候,，rs.Eof和rs.Bof属性都为False值。2，当记录指针前移到数据表外部的时候,，rs.Eof属性值为False，rs.Bof属性值为true。3，当记录指针后移到数据表外部的时候,，rs.Eof属性值为true，rs.Bof属性值为False。比如你可以通过实验来观察：1)rs.MoveFirstmsgbox rs.Eof & " " & rs.Bof2)rs.MoveLastmsgbox rs.Eof & " " & rs.Bof3)rs.MoveFirstrs.MovePreviousmsgbox rs.Eof & " " & rs.Bof4)rs.MoveLastrs.MoveNextmsgbox rs.Eof & " " & rs.Bof

这个问题不是VB的问题，建议看下 sql的资料属性 描述 AbsolutePage 设置或返回一个可指定 Recordset 对象中页码的值。 AbsolutePosition 设置或返回一个值，此值可指定 Recordset 对象中当前记录的顺序位置（序号位置）。 ActiveCommand 返回与 Recordset 对象相关联的 Command 对象。 ActiveConnection 如果连接被关闭，设置或返回连接的定义，如果连接打开，设置或返回当前的 Connection 对象。 BOF 如果当前的记录位置在第一条记录之前，则返回 true，否则返回 fasle。 Bookmark 设置或返回一个书签。此书签保存当前记录的位置。 CacheSize 设置或返回能够被缓存的记录的数目。 CursorLocation 设置或返回游标服务的位置。 CursorType 设置或返回一个 Recordset 对象的游标类型。 DataMember 设置或返回要从 DataSource 属性所引用的对象中检索的数据成员的名称。 DataSource 指定一个包含要被表示为 Recordset 对象的数据的对象。 EditMode 返回当前记录的编辑状态。 EOF 如果当前记录的位置在最后的记录之后，则返回 true，否则返回 fasle。 Filter 返回一个针对 Recordset 对象中数据的过滤器。 Index 设置或返回 Recordset 对象的当前索引的名称。 LockType 设置或返回当编辑 Recordset 中的一条记录时，可指定锁定类型的值。 MarshalOptions 设置或返回一个值，此值指定哪些记录被返回服务器。 MaxRecords 设置或返回从一个查询返回 Recordset 对象的的最大记录数目。 PageCount 返回一个 Recordset 对象中的数据页数。 PageSize 设置或返回 Recordset 对象的一个单一页面上所允许的最大记录数。 RecordCount 返回一个 Recordset 对象中的记录数目。 Sort 设置或返回一个或多个作为 Recordset 排序基准的字段名。 Source 设置一个字符串值，或一个 Command 对象引用，或返回一个字符串值，此值可指示 Recordset 对象的数据源。 State 返回一个值，此值可描述是否 Recordset 对象是打开、关闭、正在连接、正在执行或正在取回数据。 Status 返回有关批更新或其他大量操作的当前记录的状态。 StayInSync 设置或返回当父记录位置改变时对子记录的引用是否改变。 方法　　方法 描述 AddNew 创建一条新记录。 Cancel 撤销一次执行。 CancelBatch 撤销一次批更新。 CancelUpdate 撤销对 Recordset 对象的一条记录所做的更改。 Clone 创建一个已有 Recordset 的副本。 Close 关闭一个 Recordset。 CompareBookmarks 比较两个书签。 Delete 删除一条记录或一组记录。 Find 搜索一个 Recordset 中满足指定某个条件的一条记录。 GetRows 把多条记录从一个 Recordset 对象中拷贝到一个二维数组中。 GetString 将 Recordset 作为字符串返回。 Move 在 Recordset 对象中移动记录指针。 MoveFirst 把记录指针移动到第一条记录。 MoveLast 把记录指针移动到最后一条记录。 MoveNext 把记录指针移动到下一条记录。 ?NextRecordset ?通过执行一系列命令清除当前 Recordset 对象并返回下一个 Recordset MovePrevious 把记录指针移动到上一条记录。 Open 打开一个数据库元素，此元素可提供对表的记录、查询的结果或保存的 Recordset 的访问。 Requery 通过重新执行对象所基于的查询来更新 Recordset 对象中的数据。 Resync 从原始数据库刷新当前 Recordset 中的数据。 Save 把 Recordset 对象保存到 file 或 Stream 对象中。 Seek 搜索 Recordset 的索引以快速定位与指定的值相匹配的行，并使其成为当前行。 Supports 返回一个布尔值，此值可定义 Recordset 对象是否支持特定类型的功能。 Update 保存所有对 Recordset 对象中的一条单一记录所做的更改。 UpdateBatch 把所有 Recordset 中的更改存入数据库。请在批更新模式中使用。 事件　　Note: You cannot handle events using VBScript or JScript (only Visual Basic, Visual C++, and Visual J++ languages can handle events).事件 描述 EndOfRecordset 当试图移动到超过 Recordset 结尾的行时被触发。 FetchComplete 当异步操作中的所有记录均被读取后被触发。 FetchProgress 在异步操作期间被定期地触发，报告已读取多少记录。 FieldChangeComplete Field 对象的值更改被触发。 MoveComplete Recordset 中的当前位置更改后被触发。 RecordChangeComplete 一条记录更改之后被触发。 ?WillChangeField ?在 Field 对象的值更改之前被触发 RecordsetChangeComplete 在 Recordset 更改之后被触发。 WillChangeRecord 在一条记录更改之前被触发。 WillChangeRecordset 在 Recordset 更改之前被触发。 WillMove 在 Recordset 中的当前位置更改之前被触发。 集合　　集合 描述 Fields 指示在此 Recordset 对象中 Field 对象的数目。 Properties 包含所有 Recordset 对象中的 Property 对象。

Clone 方法创建与现有 Recordset 对象相同的复制 Recordset 对象。可选择指定该副本为只读。语法Set rstDuplicate = rstOriginal.Clone (LockType)返回值返回 Recordset 对象引用。参数rstDuplicate 对象变量，标识正在创建的复制 Recordset 对象。rstOriginal 对象变量，标识要被复制的 Recordset 对象。LockType 可选，LockTypeEnum 值，指定原始 Recordset 的锁定类型或只读 Recordset。常量 说明 AdLockUnspecified 默认值。使用与原始类型相同的锁定类型创建副本。 AdLockReadOnly 副本创建为只读。 说明使用 Clone 方法可创建多个 Recordset 对象副本，这对于希望在给定的记录组中保留多个当前记录十分有用。使用 Clone 方法比使用与初始定义相同的定义创建和打开新 Recordset 对象要有效得多。新创建副本的当前记录将设置为首记录。无论游标类型如何，对某个 Recordset 对象所作的修改在其所有副本中都是可见的。不过一旦在原始 Recordset 上执行了 Requery，副本将不再与原始 Recordset 同步。关闭原始 Recordset 时并不关闭它的副本，而关闭某个副本也将不关闭原始 Recordset 或任何其他副本。用户只允许复制支持书签的 Recordset 对象。书签值是可交换的，也就是说，来自一个 Recordset 对象的书签引用可引用其任何副本中的相同记录。

《妩媚鉴后人》：怎奈是切齿恨，怎奈是筋骨情。为有妩媚鉴后人，鸦头可为镜。

52.使用完错误代码之后， 应该随手清空它，以免造成下次错误捕获不正确，我们使用一uju error变量() 53.为了防止多次数据库操作导致数据库不完整（ ）我们可以使用(colse) 54. connection 对象为我们提供了三个与事务相关的方法，请写上它们：开启事务：（connedtion.begintrans ），结束事务并保有更改：connection(.committrans )，结束事务并却小更改：connection(.rollbacktrans ) 55．如果我们查得到数据表中某个字段的信息需要用recordset对象的（fields ）集合中的（name ）对象。 56．取得field对象的方法是：set field=recordset.fields.item(i),我们可以通过field对象的（name）属性得到字段名，还可以通过（ type）属性得到字段的类型。 57．我们可以在记录集内移动指针，以便操作不同的数据记录，如果我们要将指针移到最后一条记录，可以使用（recordset.movelast ）方法，将指针移到首记录使用（recordset.movefirst ）方法，移动到上一条记录使用（recordset.previous ）方法，移动到下一条记录可使用（recordset.movenext ）方法。 58．删除记录，我们可以直接使用SQL语句中的delete语句，也可以将记录查询到之后使用recordset对象的（ delete）方法来删除当前记录。虽然直接使用Delete语句删除记录非常方便，但有时对于一些需要进行复杂判断才决定是否删除记录的情况下，我们还是要使用recordset对象的（delete ）方法来删除记录。 59．更新一条记录除可以使用update语句外，还可以将记录查询到之后，改变各字段的值，然后使用recordset对象的（ addnew ）方法来更新数据。虽然直接使用update语句更新数据十分方便，但有时对于需要进行一些不规则更新的时候还是要使用到recordset对象的（addnew ）方法来更新数据记录。

ADO Recordset 对象用于容纳一个来自数据库表的记录集。一个 Recordset 对象由记录和列（字段）组成。在 ADO 中，此对象是最重要且最常用于对数据库的数据进行操作的对象。 set objRecordset=Server.CreateObject(ADODB.recordset) 当您首次打开一个 Recordset 时，当前记录指针将指向第一个记录，同时 BOF 和 EOF 属性为 False。如果没有记录，BOF 和 EOF 属性为 True。Recordset 对象能够支持两种更新类型：立即更新 - 一旦调用 Update 方法，所有更改被立即写入数据库。批更新 - provider 将缓存多个更改，然后使用 UpdateBatch 方法把这些更改传送到数据库。 在 ADO，定义了 4 种不同的游标（指针）类型：动态游标 - 允许您查看其他用户所作的添加、更改和删除 键集游标 - 类似动态游标，不同的是您无法查看有其他用户所做的添加，并且它会防止您访问其他用户已删除的记录。其他用户所做的数据更改仍然是可见的。静态游标 - 提供记录集的静态副本，可用来查找数据或生成报告。此外，由其他用户所做的添加、更改和删除将是不可见的。当您打开一个客户端 Recordset 对象时，这是唯一被允许的游标类型。 仅向前游标 - 只允许在 Recordset 中向前滚动。此外，由其他用户所做的添加、更改和删除将是不可见的。 可通过 CursorType 属性或 Open 方法中的 CursorType 参数来设置游标的类型。注释：并非所有的提供者（providers）支持 Recordset 对象的所有方法和属性。 属性 描述 Count 返回 fields 集合中项目的数目。以 0 起始。例子：countfields = rs.Fields.Count Item(named_item/number) 返回 fields 集合中的某个指定的项目。例子：itemfields = rs.Fields.Item(1)或者 itemfields = rs.Fields.Item(Name) 属性 描述 Count 返回 properties 集合中项目的数目。以 0 起始。例子：countprop = rs.Properties.Count Item(named_item/number) 返回 properties 集合中某个指定的项目。例子：itemprop = rs.Properties.Item(1)或者 itemprop = rs.Properties.Item(Name) ?? 动态游标 — 用于查看其他用户所作的添加、更改和删除，并用于不依赖书签的 Recordset 中各种类型的移动。如果提供者支持，可使用书签。?? 键集游标 — 其行为类似动态游标，不同的只是禁止查看其他用户添加的记录，并禁止访问其他用户删除的记录，其他用户所作的数据更改将依然可见。它始终支持书签，因此允许 Recordset 中各种类型的移动。?? 静态游标 — 提供记录集合的静态副本以查找数据或生成报告。它始终支持书签，因此允许 Recordset 中各种类型的移动。其他用户所作的添加、更改或删除将不可见。这是打开客户端 (ADOR) Recordset 对象时唯一允许使用的游标类型。?? 仅向前游标 — 除仅允许在记录中向前滚动之外，其行为类似静态游标。这样，当需要在 Recordset 中单程移动时就可提高性能。在打开 Recordset 之前设置 CursorType 属性来选择游标类型，或使用 Open 方法传递 CursorType 参数。部分提供者不支持所有游标类型。请检查提供者的文档。如果没有指定游标类型，ADO 将默认打开仅向前游标。如果 CursorLocation 属性被设置为 adUseClient 后打开 Recordset，则在返回的 Recordset 对象中，Field 对象的 UnderlyingValue 属性不可用。对部分提供者（例如 Microsoft ODBC Provider for OLE DB 连同 Microsoft SQL Server），可以通过使用 Open 方法传递连接字符串，根据以前定义的 Connection 对象独立地创建 Recordset 对象。ADO 仍然创建 Connection 对象，但它不将该对象赋给对象变量。不过，如果正在相同的连接上打开多个 Recordset 对象，就应该显式创建和打开 Connection 对象，由此将 Connection 对象赋给对象变量。如果在打开 Recordset 对象时没有使用该对象变量，即使在传递相同连接字符串的情况下，ADO 也将为每个新的 Recordset 创建新的 Connection 对象。 打开 Recordset 时，当前记录位于第一个记录（如果有），并且 BOF 和 EOF 属性被设置为 False。如果没有记录，BOF 和 EOF 属性设置是 True。假设提供者支持相关的功能，可以使用 MoveFirst、MoveLast、MoveNext 和 MovePrevious 方法以及 Move 方法，和 AbsolutePosition、AbsolutePage 和 Filter 属性来重新确定当前记录的位置。仅向前 Recordset 对象只支持 MoveNext 方法。当使用 Move 方法访问每个记录（或枚举 Recordset）时，可使用 BOF 和 EOF 属性查看是否移动已经超过了 Recordset 的开始或结尾。Recordset 对象可支持两类更新：立即更新和批更新。使用立即更新，一旦调用 Update 方法，对数据的所有更改将被立即写入基本数据源。也可以使用 AddNew 和 Update 方法将值的数组作为参数传递，同时更新记录的若干字段。如果提供者支持批更新，可以使提供者将多个记录的更改存入缓存，然后使用 UpdateBatch 方法在单个调用中将它们传送给数据库。这种情况应用于使用 AddNew、Update 和 Delete 方法所做的更改。调用 UpdateBatch 方法后，可以使用 Status 属性检查任何数据冲突并加以解决。注意 要执行不使用 Command 对象的查询，应将查询字符串传递给 Recordset 对象的 Open 方法。但是，在想要保持命令文本并重复执行或使用查询参数时，仍然需要 Command 对象。

set并不是赋值，是实例化可以把Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordset两行代码，合并为一行Dim rs As new ADODB.Recordset而必须是rs.open "Select * From 表名"，......这才是执行了OPEN方法，返回了记录集合（你也可以理解为就是数据表）。

zzzzRecordSet对象的属性可分为以下４种类型。zzzz1）方式属性：包括ActiveConnection属性和Source属性。zzzz2）行为属性：包括CursorType属性、LockType属性、Filter属性、CacheSize属性和MaxRecords属性。zzzz3）记录指针移动属性：包括BOF和EOF属性、RecordCount属性、BookMar属性、AbsikytePosition属性、PageSize属性、AbsolutePage属性和PageCount属性。zzzz4）数据维护属性：包括EditMode属性和Status属性等。1.方式属性zzzz（1） ActiveConnection属性zzzz此属性用于指定链接字符串或Connection对象的名称，方便RecordSet对象完成数据库链接有前置动作。zzzz（2） Source属性zzzz此属性用于设置或返回一个字符串，指定要检索数据库服务器。包含存储进程名、表名、SQL语句或在打开时用于为RecordSet提供记录集合的开放Command对象。2.行为属性zzzz（１）CursorType属性：此属性定义了指针的类型，不同的指针类型决定了对数据库所能做的操作，它有4种可取值，如表7-9所示。　表7-9 CursorType属性值说明zzzz（２）LockType属性：此属性决定了是否可以更新数据以及RecordSet的更新是否可以批量进行。LockType属性有４种可取值，如表7-10所示。表7-10 LockType属性值说明zzzz（３）Filter属性：此属性用于过滤由数据库服务器端所返回的数据，Filter属性设定值如表7-11所示。表7-11 Filter所示属性值说明zzzz（４）CacheSize属性：此属性指定保存在高速缓存中RecordSet记录的数目，也就是客户端每次由数据库服务器端取回数据记录的数目。对于只能向前移动的记录，默认值为1。zzzz（5）MaxRecords属性：该属性设定返回给RecordSet记录的最大数目，默认值为0，表明将所有记录都加入到RecordSet中，打开RecordSet对象后，此属性为只读。3.记录指针移动的属性zzzz（1）BOF和EOF属性：这两个属性是用来判断指针是否在RecordSet的首记录之前或尾记录之后。如果当记录位于RecordSet的首记录之前，则BOF返回True.如果当前记录是位于RecordSet的尾记录之后，则EOF返回True.如果BOF 和EOF都为True,则说明RecordSet中没有记录。zzzz（2）RecordCount属性：该属性用于返回RecordSet中的记录数。zzzz（3）BookMark属性：当创建一个允许使用BookMark属性的RecordSet时，给每一个记录都标上独一无二的书签。利用此属性可以返回标记书签的位置。zzzz（4）AbsolutePosition属性：此属性可以用于设置RecordSet当前记录的顺序位置。zzzz（5）PageSize属性：当记录集合返回到RecordSet中时，集合就会被划分成任意大小的页。利用此属性可以页记录集合。zzzz（6）AbsolutePage属性：此属性指定了指针的位置，通过改变它的值来通知ADO移动指定页面的开始位置。zzzz（7）PageCount属性：此属性可用来返回RecordSet中的页数。如果RecordSet最后一页未满，其中的记录就少于PageCount值，则PageCount属性值应由下面的公式设定。zzzzPageCount=(RecordCount+PageSize-1)/PageSize4.数据维护属性zzzz（１）EditMode属性：该属性返回一个表明当前记录编辑状态的值。此属性的返回值有3种如表7-12所示。表7-12　EditMode返回值zzzz（2）Status属性：此属性可以在实施一次批量更新后，查询RecordSet的状态。该属性常用于多用户链接管理。其返回值如表7-13所示。表7-13 Status的返回值

只管用，没有研究过这类问题，不过内存保存的应该是 记录的索引，不可能是记录本身。

返回或设置由 Data 控件的属性或由现有的 Recordset 对象所定义的 Recordset 对象。语法Set object.Recordset [= value ]]Recordset 属性的语法具有这些部分：对部分 描述 object 对象表达式，其值是“应用于”列表中的对象。 value 一个包含 Recordset 对象的对象变量。 说明当应用程序在初始的 Form_Load 过程之前启动时，Data 控件被自动地初始化。如果 Connect、DatabaseName、Options、RecordSource、Exclusive、ReadOnly 和 RecordsetType 属性是合法的，或者在运行时设置这些 Data 控件属性并使用 Refresh 方法，则 Microsoft Jet 数据库引擎试图创建一个新的基于那些属性的 Recordset 对象。此 Recordset 对象可通过 Data 控件的 Recordset 属性访问。不过，如果在设计时错误地设置若干个这些属性，则当 Visual Basic 试图使用该属性来打开特定的数据库并创建 Recordset 对象时，将产生一个不可捕获的错误。可以象使用其它 Recordset 对象一样使用 Recordset 属性。例如，可以使用任何 Recordset 方法或属性，并检查 Recordset 对象的基本模式也可以通过设置 Data 控件的 RecordsetType 属性而设置创建的 Recordset 的类型。如果不请求特定类型，则创建一个 dynaset 类型的 Recordset。使用 RecordsetType 属性可以请求创建表类型、快照类型或者 dynaset 类型的 Recordset。但是如果 Jet 引擎不能创建所请求的类型，则将产生一个可捕获的错误。在许多情况下，所创建的 Recordset 对象的缺省类型和配置是极为低效的。也就是说，可能不需要可以更新的、可以全部滚动的、keyset 类型的光标来访问数据。例如，一个只读的快照类型的 Recordset 可能会比缺省的 Recordset 创建起来快得多。要确保尽可能选择最有效的 Type、Exclusive、Options 和 ReadOnly 属性。可以在运行时通过检查 Recordset 属性的 Type 属性或 Data 控件的 RecordsetType 属性的方法来检查创建的 Recordset 的类型。但是请注意，用于创建的 Recordset 的类型的常数是不同的。例如：If Data1.Recordset.Type = dbOpenDynaset Then ...If Data1.RecordsetType = dbDynasetType Then ...即使请求创建一个 dynaset 类型或表类型的 Recordset，Recordset 也可能是不可更新的。如果基本的数据库、表或字段是不可更新的，则所有或部分 Recordset 可能是只读的。检查 Database 和 Recordset 对象的 Updatable 属性或 Field 对象的 DataUpdatable 属性来确定程序代码是否可以改变记录。即使 DataUpdatable 属性返回 True，在某些情况下，基本的数据字段也不能更新，例如，没有足够的权限做出改变。其它因素也能阻止字段被更新。Recordset 所返回的记录的个数可以通过在 Recordset 中移动到最后一个记录并检查 Recordset 对象的 RecordCount 属性的方法来确定。在移动到最后一个记录之前，RecordCount 属性所返回的值只反映 Jet 引擎处理过的行数。下面的例子说明可以怎样将 Recordset 的 RecordCount 属性和 Recordset 属性结合来显示 Data 控件的记录集中的记录的个数：Data1.Recordset.MoveLastMsgBox "Records: " & Data1.Recordset.RecordCount专业版和企业版如果使用代码或另一个 Data 控件创建 Recordset 对象，则可以将 Data 控件的 Recordset 属性设置为这个新的记录集。当新的 Recordset 被赋值给 Recordset 属性时，Data 控件中任何现有的 Recordset，以及与之相关的 Database 对象都被释放。注意 当 Recordset 属性被设置时，Data 控件不关闭当前的 Recordset 或 Database，但它的确释放了它。如果没有其它用户，则该数据库被自动关闭。可能希望在使用 Close方法设置 Recordset 属性之前关闭同 Data 相关的 Recordset 和 Database。要确保连接到 Data 控件上的被绑定控件的 DataField 属性的新的 Recordset 对象的字段名相匹配。例如，用代码创建一个 Recordset 并将它传递到现有的 Data 控件：Dim Db As Database, Rs As Recordset "定义为公用变量Sub ApplyRecordset() Set Db = Workspaces(0).OpenDatabase("BIBLIO.MDB") Set Rs = Db.OpenRecordset("AUTHORS") "Table 对象的缺省值 Set Data1.Recordset = Rs "为 Recordset 赋值 Data1.Recordset.Index = "PrimaryKey" Debug.print Rs.Type " 显示创建的类型End Sub可以使用这种技术来创建一个在 MDI 父窗体 上的单个的隐藏 Data 控件同另一个在 MDI 子窗体上的可见的 Data 控件的 MDI 父子数据连接。在 MDI 子 窗体的 Form_Load 事件中，将子 Data 控件的 Recordset 属性设置为父 Data 控件的 Recordset 属性。使用此技术使所有子窗体与其父窗体的被绑定的控件同步。注意 Data 控件不支持只向前的 Recordset 对象。如果试图将一个只能向前的 Recordset 对象赋值给 Data 控件的 Recordset 属性，则将产生一个可捕获的错误。除 ODBCDirect (DefaultType = dbUseODBC)Recordset 对象外，Data 控件所创建的所有 Recordset 对象都是在 v(0) 中创建的。如果需要使用 Data 控件来操作另一个 WorkSpace 中的数据库，请使用上述技术在所需的 Workspace 中打开数据库，创建新 Recordset 并将 Data 控件的 Recordset 属性设置为这个新 Recordset。重点 总可以通过使用 Recordset 属性来引用 Data 控件的 Recordset 的属性。通过直接引用 Recordset，可以确定与 Table 对象一起使用的 Index、QueryDef 的 Parameters 集合或者 Recordset 的类型。

1、在打开的ie浏览器窗口右上方点击齿轮图标，选择“Internet选项”，如下图所示：2、在打开的Internet选项窗口中，切换到安全栏，在安全选卡中点击“自定义级别”，如下图所示：3、在“安全设置-Internet区域”界面找到“Java小程序脚本”、“活动脚本”，并将这两个选项都选择为“禁用”，然后点击确定,如下图所示：

下面先简单介绍记录集对象的常用方法。 1．AddNew方法 AddNew方法为可更新的Recordset对象创建一个新记录。AddNew方法将添加一条新的空记录，并且定位在该记录上，用户可以在被绑定的数据感知控件中输入修改数据。新增加的记录的值为指定的默认值，如果没有指定值，则为Null。例如： 输入完新记录后，要使用I．1pdate方法才能将数据保存到数据库中，在使用Update方法前，数据库中的数据不会发生改变，只有执行Update方法或通过Data控件移动当前记录时，记录才从缓冲区存储到数据库文件中。使用Update方法后，新记录仍保持为当前记录。 Data1.Recordset.AddNew 2．Delete方法 Delete方法可将当前记录从记录集中删除。进一步介绍见6．4．3节。 3．Edit方法 要我修改数据库的记录，首先使要我的记录成为当前记录，然后使用Edit方法修改记录内容，使用Edit方法后，移动记录或者使用Update方法把数据存入到数据库中。 4．．Move方法 可以使用各种：Move方法移动记录，使不同的记录成为当前记录。有5种方法： MoveFirst．移动到记录集的第一条记录。 Move[,ash移动到记录集的一条记录。 MoveNext：移动到记录集的下一条记录。 MovePrevious：移动到记录集的上一条记录。 Move：可以使用Move方法向前或向后移动若干条记录。语法为： Recordset.Move NumRecords.Start 其中NumRecords设置向前或向后移动记录的行数，正数表示向后移动NumRecords行，负数表示向前移动NumRecords行。Start参数为可选，表示基准位置，缺省时为当前记录的位置。可以把当前记录集的Bookmark作为基准位置。 5．Find和Seek方法 要查找一个符合条件的记录，在Table型的记录集中可以使用Seek方法，在其他类型的记录集中可以使用Find方法。 共有4种Find方法：FindFirst，Find[,ast，FindNext和：FindPrevious方法，具体介绍见节。使用Seek方法要用到索引，而且只能用于Table类型的记录集。 6．I_Ipdate和CancelIJpdate方法 Update方法保存对Recordset对象的当前记录所做的更改。使用IJpdate方法可以保存自从调用．AddNew方法，或自从现有记录的任何字段值发生更改(使用Edit方法)之后，对Recordset对象的当前记录所作的所有更改。调用LIpdate方法后当前记录仍为当前状态。 如果希望取消对当前记录所做的所有更改或者放弃新添加的记录，则必须调用CancelUpdate方法。调用CanceltJpdate时，更改缓存被重置为空，并使用原来的数据对被绑定的数据感知控件进行刷新。 7．Close方法 使用Close方法可以关闭：Recordset对象以便释放所有关联的系统资源。关闭对象并非是将它从内存中删除，可以更改它的属性设置并且在此之后再次打开。 Recordset对象在程序中使用最频繁，我们在之后的章节中还会详细地讲解如何使用Recordset对象的各种属性及方法，读者如果想先了解其用法。为避免重复，在这里就不再举例了。我们可以编制一个小程序来测试RecordSet对象的一些属性，例如在程序中加入文本框Textl，通过下面的代码：就可以显示出记录的个数。读者可以通过后面章节中使用RecordSet 对象的例子来中使用Data属性和方法的异同。

可以理解一个excel表格，一行一行的读取

if mrc.Fields(7)=False是用来判断指针所指向记录的所在的第7个字段数据是否存在,括号里的数字是字段号，就是第几列，行是用指针来指定的，默认情况下指向数据库表的第一行。mrc1.Fields(3)=1在没有和字段数据类型冲突的前提下把1赋给mrc1.Fields(3)

不是你说的这样的。假设一个表的结构为：id,name,sex,age那recordset.fields(0)就是id那recordset.fields(1)就是name...同样这个表recordset.fields(0)=recordset.fields("id")recordset.fields(1)=recordset.fields("name")...

1:用循环获取。从0下标开始。2：1对1获取。也就是你需要那个列名就写那个列名。当然这个列名需包含在查询语中。

你使用的是ADO方法吗？还是使用数据控件的你是如何打开RS记录集的？如何是前者要 rs.open "select * from [表名]",conn,1,2 打开记录集并可写后者的话可以再和我讨论下其实我做的项目都不用fields属性直接rs("xxx")=text.value就可以了