大家好，刚开始学习ADO,请大家给点建议。谢谢,12小时在线。

Question

Public Sub AddNewX()   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String
   Dim strID As String
   Dim strFirstName As String
   Dim strLastName As String
   Dim booRecordAdded As Boolean   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
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "employee", cnn1, , , adCmdTable   strID = Trim(InputBox("Enter employee ID:"))
   strFirstName = Trim(InputBox("Enter first name:"))
   strLastName = Trim(InputBox("Enter last name:"))
   
   If (strID <> "") And (strFirstName <> "") _
      And (strLastName <> "") Then      rstEmployees.AddNew
      rstEmployees!emp_id = strID
      rstEmployees!fname = strFirstName
      rstEmployees!lname = strLastName
      rstEmployees.Update
      booRecordAdded = True
      MsgBox "New record: " & rstEmployees!emp_id & " " & _
         rstEmployees!fname & " " & rstEmployees!lname   Else
      MsgBox "Please enter an employee ID, " & _
         "first name, and last name."
   End If
   cnn1.Execute "DELETE FROM employee WHERE emp_id = '" & strID & "'"
      
   rstEmployees.Close
   cnn1.CloseEnd Sub更多MFC里有

Answer 1

ADO 支持用于建立基于客户端/服务器和 Web 的应用程序的主要功能。其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。ADO 同时具有远程数据服务 (RDS) 功能，通过 RDS 可以在一次往返过程中实现将数据从服务器移动到客户端应用程序或 Web 页、在客户端对数据进行处理然后将更新结果返回服务器的操作。

Answer 2

ADO 提供便捷方法创建 Recordset：将新的 Field 对象添加到 Recordset 的 Field 集合。随后，可以打开 Recordset 并插入来自任意源（不必是数据库）的数据。还可以通过程序产生数据。新 Recordset 可以使用对任意 Recordset 均为可用的所有数据操作方法。使用 Recordset 将信息提供给可视控件，甚至更新实际数据源。

Answer 3

对字段进行索引可以极大增强 Recordset 对象的 Find 方法、以及 Sort 和 Filter 属性的性能。通过设置 Field 对象的动态 Optimize 属性，可以创建该对象的内部索引。当将 CursorLocation 属性设置为 adUseClient 时，该动态属性被添加给 Field 对象的 Properties 集合。请记住该索引对于 ADO 是内部的，即无法访问该索引或者将该索引用于其他的目的。Sort 属性决定穿越 Recordset 行的顺序，Filter 属性决定当穿越行时哪些行是可访问的，Find 方法在 Recordset 的索引列（字段）中快速定位值。

Answer 4

ADO有许多BUG。使用起来非常头痛。