VB6.0 数组控件text1,如何用datafield 批量绑定sql数据库

Question

Private Sub Form_Load()
Adodc1.ConnectionString = "连接字符串(略)"
Adodc1.RecordSource = "select * from 表名"
Text1(n).DataField = "列字段"
上面代码我会,但是我的数组控件text1(n)有400个,难道一个一个绑定吗?求大神们帮帮我

Answer 1

Adodc1.ConnectionString = "连接字符串(略)"
Adodc1.RecordSource = "select * from 表名"
For n = 0 To Adodc1.Recordset.Fields.Count - 1
    Text1(n).DataField = Adodc1.Recordset.Fields.Item(n).Name
Next n