动态设置DATA控件

Question

我在from已经订定义了一个data空间A，但是我希望数据库动态绑定，并且能够使用a.recordset.recordcount来进行数据库的数据判断。现在的问题是，recordset不能使用。
用以下两句代码进行了数据路径指定和数据表的制定，但是recordset不能使用。    base_info.DatabaseName = App.Path & "\CUSTOMER_INFO.mdb"
    base_info.RecordSource = "base_info"请高手指教。

Answer 1

使用ado吧，DATA控件使用不方便！

Answer 2

‘执行SQL语句的函数（ADO连接方法）Public Function ExecuteSQL(ByVal sql _
   As String, MsgString As String) _
   As ADODB.Recordset
   ConnectString = "DBQ=" & DataBaseName & ";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(sql)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute sql
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(sql), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "²éѯµ½" & rst.RecordCount & _
         " Ìõ¼Ç¼ "
   End If
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "²éѯ´íÎó: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function

Answer 3

因为我已经写了一堆的代码了，不想再改控件了，用data控件，做不到我的要求吗？

Answer 4

难道data控件做不到我的要求吗？有没有哪位大虾能帮我一下阿？

Answer 5

老大：
 请加base_info.RecordSource.refresh试试。