ADO是什么？麻烦告诉我

一种程序对象，用于表示用户数据库中的数据结构和所包含的数据。

在Microsoft Visual Basic编辑器中，可以使用ADO对象以及ADO的附加组件（称为Microsoft ADO Extensions for DLL and Security(ADOX)）来创建或修改表和查询、检验数据库、或者访问外部数据源。还可在代码中使用ADO来 *** 作数据库中的数据。

ADO (ActiveX Data Objects，ActiveX数据对象）是Microsoft提出的应用程序接口（API）用以实现访问关系或非关系数据库中的数据。

例如，如果希望编写应用程序从DB2或Oracle数据库中向网页提供数据，可以将ADO程序包括在作为活动服务器页（ASP）的HTML文件中。当用户从网站请求网页时，返回的网页也包括了数据中的相应数据，这些是由于使用了ADO代码的结果。

扩展资料：

ADO接口简介

1、_ConnectionPtr接口

返回一个记录集或一个空指针。通常使用它来创建一个数据连接或执行一条不返回任何结果的SQL语句，如一个存储过程。

2、_CommandPtr接口

返回一个记录集。它提供了一种简单的方法来执行返回记录集的存储过程和SQL语句。

3、_RecordsetPtr接口

是一个记录集对象。与以上两种对象相比，它对记录集提供了更多的控制功能，如记录锁定，游标控制等。

参考资料来源：百度百科-ActiveX Data Objects

VB可将Sql结构化查询语句赋值Ado(ActiveX 数据对象)或ADO Data 控件，访问和 *** 作数据库。

ADO (ActiveX 数据对象)，这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft 和非 Microsoft 的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。

ADO Data 控件， 这是一种新的、OLEDB 识别的数据源控件，其功能与内部的 Data 控件和 Remote Data 控件十分相似，通过这种方式允许用户用最少的代码来创建数据库应用程序。

Visual Basic 6.0 中，已经可以将任何 ADO/OLE DB 数据源绑定到任何 ADO/OLE DB 数据使用者上。在运行时，可以设置控件的 DataSource 属性来将控件动态地绑定到数据源。可以创建用作数据源和数据使用者的类，并且通过新的 BindingsCollection 对象将这些类绑定在一起。可以创建与 ADO 数据控件相似的、用作数据源的用户控件。还可以创建与 DataGrid 控件相似的、复杂绑定的用户控件。

以下是经ADO (ActiveX 数据对象)访问Access数据库的实例代码：

    Dim cnn As New Connection

    Dim rs As New Recordset

    Dim sql As String

    Dim ARR

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\wdOld.mdbPersist Security Info=False"

    sql = "select 故障名称 from guzhang_bm"

    rs.Open sql, cnn

    Combo1.Text = "故障名称"

    Do While Not rs.EOF

        Combo1.AddItem rs("故障名称")

        rs.MoveNext    '打开表

    Loop

    rs.Close

    cnn.Close

以下是使用ADO Data 控件访问Access数据库德实例代码：

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\wd.mdbPersist Security Info=False"

    Adodc1.RecordSource = "select * from jishijilu" ' where shijian like'%8112%' And gyh_riqi like'%10%'"

    Adodc1.Refresh

    Set MSHFlexGrid1.DataSource = Adodc1

    MSHFlexGrid1.Row = 1

    MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1

ado 的 RecordCount属性没有效果，这可能是个bug.

一般要处理数据用while循环

上边的if语句改一下就可。

if not (rs.bof or rs.eof) then

do while not (rs.bof or rs.eof)

....

rs.movenext

loop

end if

---