如何动态改会data控件的属性??(急,在线等待)

Question

我运行了程序,现在想在运行的时候,改变data控件指向的表,应该如何写代码??

Answer 1

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
  cnn.ConnectionString = "Provider=MSDASQL;DSN=data;UID=sa;PWD=sa;"
  cnn.CursorLocation = adUseClient
  cnn.Open
  rs.Open "select * from table where 条件 , cnn,       adOpenDynamic,adLockBatchOptimistic
Set Data.DataSource = rs

Answer 2

Set Data.DataSource = rs

Answer 3

data.databasename=数据库路径data.datasource="select * from 表"
data.refresh