急用：用adodc怎样向数据表插入数据？？

Question

Dim cn As New ADODB.Connection, rs As New ADODB.Recordsetrs.open
For  i=0 to 9
  rs.AddNew
  rs(0) = Date
  rs(1) = strCond
  rs(2) = strList
  rs.UpdateBatch
Next i应该怎么写？？？

Answer 1

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=testDB;Data Source=testSvr"rs.Open "select top 1 * from 表",cn,adOpenDynamic ,adLockBatchOptimistic 
For  i=0 to 9
  rs.AddNew
  rs(0) = Date
  rs(1) = strCond
  rs(2) = strList  
Next i
rs.UpdateBatch

Answer 2

用Adodc控件也一样：Adodc1.ConnectionString "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=testDB;Data Source=testSvr"Adodc1.RecordSource= "select top 1 * from 表"
For  i=0 to 9
  Adodc1.Recordset.AddNew
  Adodc1.Recordset(0) = Date
  Adodc1.Recordset(1) = strCond
  Adodc1.Recordset(2) = strList  
Next i
Adodc1.Recordset.UpdateBatch

Answer 3

faysky2() 的分是应该得的，呵呵。
zou19820704 你来晚了，不过也表示一下。谢谢两位，我做好了，哈哈。