ADO Data控件使用户能使用 Microsoft ActiveX Data Objects (ADO) 快速地创建一个到数据库的连接。说明在设计时，您可以通过首先将 ConnectionString 属性设置为一个有效的连接字符串，然后将 RecordSource 属性设置为一个适合于数据库管理者的语句来创建一个连接。您也可以将 ConnectionString 属性设置为定义连接的文件名。该文件是由“数据链接”对话框产生的，当您单击“属性”窗口中的ConnectionString，然后单击“生成”或“选择”时，该对话框出现。

属性

方法

事件

应用实例

设置属性

属性

属性CacheSize属性（ADO），CommandTimeout属性（ADO），CommandType属性（ADO），ConnectionString属性（ADO），ConnectionTimeout属性（ADO），CursorLocation属性（ADO），CursorType属性（ADO），LockType属性（ADO），MaxRecords属性（ADO），Mode属性（ADO），Provider属性（ADO），Recordset属性（ADO数据控件），RecordSource属性（ADO数据控件），Password属性（ADO数据控件），UserName属性（ADO数据控件），BackColor, ForeColor属性，Height, Width属性，Left,Top属性，Tabindex属性，Tag属性，Visible属性，Align属性，DragIcon属性，DragMode属性，CausesValidation属性，Orientation属性，TabStop属性，Appearance属性，Caption属性，HelpContextID属性，Index属性（控件矩阵），Name属性，Parent属性，Font属性，Container属性，Object属性，ToolTipText属性，BOFAction, EOFAction属性，WhatsThisHelpID属性。

方法

方法UpdateControls方法（ADO数据控件），Refresh方法，SetFocus方法，Drag方法，Move方法，ZOrder方法，ShowWhatsThis方法。

事件EndOfRecordSet（ConnectionEvent）方法（ADO），FetchComplete（RecordsetEvent）方法（ADO），FetchProgress（RecordsetEvent）方法（ADO），WillChangeField和FieldChangeComplete（ConnectionEvent）方法（ADO），WillChangeRecord和RecordChangeComplete（ConnectionEvent）方法（ADO），WillMove和MoveComplete（ConnectionEvent）方法（ADO）

事件

Error事件（ADO数据控件），DagDrop事件，DragOver事件，GotFocus事件，LostFocus事件，MouseDown,MouseUp事件，MouseMove事件，Validate事件。

应用实例

要创建一个简单的前端数据库应用程序

窗体上放置一个 ADO Data 控件。（该图标的工具提示为 "ADODC"。）

如果该控件不在“工具箱”中，请按 CTRL+T 键，显示“部件”对话框。在这个“部件”对话框中，单击

“Microsoft ADO Data Control”。

在“工具箱”中，单击选定“ADO 数据控件”。然后按 F4 键显示“属性”窗口。

在“属性”窗口中，单击“ConnectionString”显示“ConnectionString”对话框。

如果您已经创建了一个 Microsoft 数据链接文件（Data Link file）(.UDL)，请选择“使用 OLE DB 文件”并单

击“浏览”，以找到计算机上的文件。如果使用 DSN，则单击“使用 ODBC 数据源名”，并从框中选择一个

DSN，或单击“新建”创建一个。如果想创建一个连接字符串，请选择“使用 ConnectionString”，单击“生成”

，然后使用“数据链接属性”对话框创建一个连接字符串。在创建连接字符串后，单击“确定”。

ConnectionString 属性将使用一个类似于下面这一行的字符串来填充：

driver={SQL Server};server=bigsmile;uid=sa;pwd=pwd;database=pubs

在“属性”窗口中，将“记录源”属性设置为一个 SQL 语句。例如：

SELECT * FROM Titles WHERE AuthorID = 72

在访问一个表时，应始终包括一个 WHERE 子句。如果这样做失败，则会锁定整个表，这样对其他用户将

是一个严重的障碍。

在窗体上再放置一个“文本框”控件，用来显示数据库信息。

在其“属性”窗口中，将 Text1 的“数据源”属性设为 ADO Data 控件的名称 (ADODC1)。这样就将这个文本

框和 ADO Data 控件绑定在一起。

在其“属性”窗口中，单击“数据字段”将下拉得到一个可用的字段列表。单击所要显示的字段的名称。

对希望访问的其它每个字段重复第 6、7、8 步。

按 F5 键运行该应用程序。用户可以在 ADO Data 控件使用四个箭头按钮，从而允许用户地到达数据的开始

、记录的末尾、或在数据内从记录移动到另一个记录。

在程序中设置 ConnectionString、Source、DataSource、以及 DataField

设置属性

下面的代码演示了如何在程序中设置这四个属性。注意设置 DataSource 属性要使用 Set 语句。

Private Sub Form_Load()

With ADODC1

.ConnectionString = "driver={SQL Server};" & _

"server=bigsmile;uid=sa;pwd=pwd;database=pubs"

. RecordSource = "Select * From Titles Where AuthorID = 7"

End With

Set Text1.DataSource = ADODC1

Text1.DataField = "Title"

End Sub