Question

VB ACCESS 如何读取整列数据到TEXT1（1）-text1（10）里去呢？

比如 数据的 1表 里有1-10 列，将10列的内容显示到TEXT1(0)-TEXT1(10) 呢？？？

Answer 1

你没有说明你是用哪种方式来连接数据库的，下面使用ado连接对象来连接，而且只有关键的代码，其他自己脑补：

'....其他略...
rs.Open "select * from 表名", conn, 1, 1
For i = 0 To 10
    Text1(i).Text = rs(i)
Next
rs.Close
'....其他略...

追问

cn.Open connstr
rs.Open "select * from 人事部", cn, 1, 1
For i = 1 To 10
Text4(i) = rs(i)
Next
rs.Close
cn.Close

老师们，我想读取整列数据要怎么改一下呢？
读取 人事部 姓名 这一列，到text的数组里去

追答

话说你最好使用表格控件，再绑定adodc控件，都不用代码，直接就出来了。

如果非要用文本框来做，就这样：

cn.Open connstr
rs.Open "select  * from 人事部", cn, 1, 1
Do Until rs.EOF
    For i = 1 To 10
        Text4(i).Text = Text4(i).Text & rs(i) & vbCrLf
    Next
    rs.MoveNext
Loop
rs.Close
cn.Close