📄 9.htm
字号:
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'><strong>作用 </strong></p>
</td>
</tr>
<tr>
<td width=43 rowspan=5 style='width:32.25pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>属性 </p>
</td>
<td width=108 style='width:81.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>AbsolutePostion </span></p>
</td>
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>返回当前指针值，如果是第一条记录，其值为<span lang=EN-US> 0 ；是只读属性 </span></p>
</td>
</tr>
<tr>
<td width=108 style='width:81.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Bof / Eof </span></p>
</td>
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Bof 判断记录指针是否在首记录之前，若是则为 True ； Eof 判断记录指针是否在末记录之后，若是则为
True </span></p>
</td>
</tr>
<tr>
<td width=108 style='width:81.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Bookmark </span></p>
</td>
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>用于设置或返回当前指针的标签，可以用在在程序中重定位记录集的指针，其值采用字符串类型。 </p>
</td>
</tr>
<tr>
<td width=108 style='width:81.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>NoMatch </span></p>
</td>
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>在记录集中进行查找时，如果找到相匹配的记录，则为 <span lang=EN-US>Falue ，找不到则为 True 。 </span></p>
</td>
</tr>
<tr>
<td width=108 style='width:81.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>RecordCount </span></p>
</td>
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>对<span lang=EN-US> Recordset 对象中的记录记数，为了准确起见，在记数前用 MoveLast 方法将记录指针移到最后一条记录上；是只读属性。
</span></p>
</td>
</tr>
<tr>
<td width=43 rowspan=3 style='width:32.25pt;border:solid windowtext .75pt;
border-bottom:solid windowtext .5pt;padding:0cm 0cm 0cm 0cm'>
<p>方法 </p>
</td>
<td width=108 style='width:81.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Move </span></p>
</td>
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>用于移动记录指针，共有<span lang=EN-US> 5 种方法： </span></p>
<p><span lang=EN-US>MoveFirst ——将指针移到第 1 条记录 </span></p>
<p><span lang=EN-US>MoveLast ——将指针移到最后一条记录 </span></p>
<p><span lang=EN-US>MoveNext ——将指针移到下一条记录 </span></p>
<p><span lang=EN-US>MovePrevious ——将指针移到上一条记录 </span></p>
<p><span lang=EN-US>Move n ——将指针向前或向后移动 n 条记录 </span></p>
</td>
</tr>
<tr>
<td width=108 style='width:81.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Find </span></p>
</td>
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>在指定的<span lang=EN-US> Dynaset 或 Snapshop 类型的 Recordset 对象中查找与指定条件相符的一条记录，并使之成为当前记录，共有
4 种方法： </span></p>
<p><span lang=EN-US>FindFirst ——从记录集的开始查找满足条件的第 1 条记录 </span></p>
<p><span lang=EN-US>FindLast ——从记录集的尾部向前查找满足条件的第 1 条记录 </span></p>
<p><span lang=EN-US>FindNext ——从当前记录开始查找满足条件的下一条记录 </span></p>
<p><span lang=EN-US>FindPrevious ——从当前记录开始查找满足条件的上一条记录 </span></p>
<p>语法格式举例： </p>
<p><span lang=EN-US>Data1.Recordset.FindFirst "课程名='计算机基础' " </span></p>
<p><span lang=EN-US>Find方法支持通配符，默认情况下忽略大小写，可以添加说明改变默认设置： Option Compare Text （与大小写无关）
</span></p>
<p><span lang=EN-US>Option Compare Binary （与大小写有关） </span></p>
<p>如果找不到相匹配的记录，当前记录保持在查找的始发处；如果找到了，则指针定位到该记录。 </p>
</td>
</tr>
<tr>
<td width=108 style='width:81.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Seek </span></p>
</td>
<td width=456 valign=top style='width:342.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>使用该方法必需打开表的索引，它在 <span lang=EN-US>Table 表中查找与指定索引规则相符的第一条记录，并使其成为当前记录。 </span></p>
<p>语法格式举例： </p>
<p><span lang=EN-US>Data1.Recordset.Index= "课程名" </span></p>
<p><span lang=EN-US>Data1.Recordset.Seek "=", "计算机基础" </span></p>
</td>
</tr>
</table>
<p><span lang=EN-US>6． <strong>利用数据控件对数据库进行增、删、改操作 </strong></span></p>
<table border=1 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
border:solid windowtext .5pt;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td width=79 style='width:59.25pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'><strong>操作项目 </strong></p>
</td>
<td width=348 style='width:261.0pt;border:solid windowtext .75pt;padding:
0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'><strong>操作方法 </strong></p>
</td>
<td width=187 style='width:140.25pt;border:solid windowtext .75pt;padding:
0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'><strong>注意事项 </strong></p>
</td>
</tr>
<tr>
<td width=79 style='width:59.25pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p>增加记录 </p>
</td>
<td width=348 style='width:261.0pt;border:solid windowtext .75pt;padding:
0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>1） 调用 AddNew 方法： Data1.Recordset. AddNew </span></p>
<p><span lang=EN-US>2） 给各字段赋值： Recordset.Fields("字段名")=值或在绑定控件中直接输入内容
</span></p>
<p><span lang=EN-US>3） 调用 Update方法，将缓冲区内的数据写入数据库： </span></p>
<p><span lang=EN-US>Data1.Recordset. Update </span></p>
<p><span lang=EN-US>4） 调用 MoveLast方法显示新记录： </span></p>
<p><span lang=EN-US>Data1.Recordset. MoveLast </span></p>
</td>
<td width=187 style='width:140.25pt;border:solid windowtext .75pt;padding:
0cm 0cm 0cm 0cm'>
<p>如果缺少第<span lang=EN-US> 3 ）步而将指针移动到其他记录或关闭了记录，则所做的输入全部丢失；若没有第 4 ）步。虽然加入了新记录，但记录指针自动返回到添加新记录前的位置上，并不显示新记录。
</span></p>
</td>
</tr>
<tr>
<td width=79 style='width:59.25pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p>删除记录 </p>
</td>
<td width=348 style='width:261.0pt;border:solid windowtext .75pt;padding:
0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>1） 定位被删除记录使之成为当前记录（用 Move 或 Find 方法） </span></p>
<p><span lang=EN-US>2） 调用 Delete 方法： Data1.Recordset. Delete </span></p>
<p><span lang=EN-US>3） 调用 MoveNext 方法移动记录指针 </span></p>
</td>
<td width=187 style='width:140.25pt;border:solid windowtext .75pt;padding:
0cm 0cm 0cm 0cm'>
<p>使用<span lang=EN-US> Delete 方法时，当前记录立即删除，但被数据库约束的绑定控件仍旧显示该记录的内容，故必须用第 3 ）步刷新绑定控件。
</span></p>
</td>
</tr>
<tr>
<td width=79 style='width:59.25pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p>修改记录 </p>
</td>
<td width=348 style='width:261.0pt;border:solid windowtext .75pt;padding:
0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>1） 调用 Edit 方法： Data1.Recordset. Edit </span></p>
<p><span lang=EN-US>2） 给各字段赋值：在绑定控件中直接修改 </span></p>
<p><span lang=EN-US>3） 调用 Update 方法，确定所做的修改： </span></p>
<p><span lang=EN-US>Data1.Recordset. Update </span></p>
</td>
<td width=187 style='width:140.25pt;border:solid windowtext .75pt;padding:
0cm 0cm 0cm 0cm'>
<p>如果要放弃对数据的所有修改，可在第<span lang=EN-US> 3 ）步之前用 Refresh 方法，重读数据库，刷新记录。 </span></p>
</td>
</tr>
</table>
<p align=center style='text-align:center'><strong><span lang=EN-US>9.4 ADO 数据控件
</span></strong></p>
<p><strong><span lang=EN-US>1． 什么是 ADO ？ </span></strong></p>
<p> <span lang=EN-US>ADO （ ActiveX Data Object ）数据访问接口是微软处理数据库信息的最新技术，它是一种
ActiveX 对象，采用了 OLE DB （动态连接与嵌入数据库）的数据访问模式，是数据访问对象 DAO 、远程数据对象 RDO 和开放式数据库互连 ODBC
三种方式的扩展。 </span></p>
<p>要使用<span lang=EN-US> ADO 对象必需先为当前工程引用 ADO 对象库，方法是： 执行“工程”菜单中的“引用”命令，在对话框中选中“
Microsoft ActiveX Data Object 2.0 Library ”。 </span></p>
<p align=center style='text-align:center'><strong> <span lang=EN-US>ADO 对象描述 </span></strong></p>
<table border=1 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
border:solid windowtext .5pt;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td width=108 valign=top style='width:81.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'><strong>对象名 </strong></p>
</td>
<td width=336 valign=top style='width:252.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'><strong>描述 </strong></p>
</td>
</tr>
<tr>
<td width=108 valign=top style='width:81.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Connection </span></p>
</td>
<td width=336 valign=top style='width:252.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>连接数据来源 </p>
</td>
</tr>
<tr>
<td width=108 valign=top style='width:81.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Command </span></p>
</td>
<td width=336 valign=top style='width:252.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>从数据源获取所需数据的命令信息 </p>
</td>
</tr>
<tr>
<td width=108 valign=top style='width:81.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Recordset </span></p>
</td>
<td width=336 valign=top style='width:252.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>所获取的一组记录组成的记录集 </p>
</td>
</tr>
<tr>
<td width=108 valign=top style='width:81.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Error </span></p>
</td>
<td width=336 valign=top style='width:252.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>在访问数据库时，由数据源所返回的错误信息 </p>
</td>
</tr>
<tr>
<td width=108 valign=top style='width:81.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Parameter </span></p>
</td>
<td width=336 valign=top style='width:252.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>与命令对象相关的参数 </p>
</td>
</tr>
<tr>
<td width=108 valign=top style='width:81.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>Field </span></p>
</td>
<td width=336 valign=top style='width:252.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>包含了记录集中某个字段的信息 </p>
</td>
</tr>
</table>
<p><strong><span lang=EN-US>2． 使用 ADO 数据控件 </span></strong></p>
<p><strong>（<span lang=EN-US>1） 添加 ADO 数据控件 </span></strong></p>
<p>从<span lang=EN-US>“工程”菜单中选择“部件”命令，在对话框中选中“ Microsoft ADO Data ControlS 6.0 （
OLE DB ）”，将其添加到工具箱，并在窗体上拖划出 ADO 数据控件。 </span></p>
<p><strong>（<span lang=EN-US>2） ADO 数据控件的基本属性 </span></strong></p>
<table border=1 cellspacing=0 cellpadding=0 style='mso-cellspacing:0cm;
border:solid windowtext .5pt;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr>
<td width=132 valign=top style='width:99.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'><strong>属性名 </strong></p>
</td>
<td width=372 valign=top style='width:279.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p align=center style='text-align:center'><strong>作用 </strong></p>
</td>
</tr>
<tr>
<td width=132 style='width:99.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>ConnectionString </span></p>
</td>
<td width=372 valign=top style='width:279.0pt;border:solid windowtext .75pt;
padding:0cm 0cm 0cm 0cm'>
<p>用来与数据库建立连接，它包括<span lang=EN-US> 4 个参数： </span></p>
<p><span lang=EN-US>Provide ——指定数据源的名称 </span></p>
<p><span lang=EN-US>FileName ——指定数据源所对应的文件名 </span></p>
<p><span lang=EN-US>RemoteProvide ——在远程数据服务器打开一个客户端时所用的数据源名称 </span></p>
<p><span lang=EN-US>RemoteServer ——在远程数据服务器打开一个主机端时所用的数据源名称 </span></p>
</td>
</tr>
<tr>
<td width=132 style='width:99.0pt;border:solid windowtext .75pt;padding:0cm 0cm 0cm 0cm'>
<p><span lang=EN-US>RecordSource </span></p>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -