VB ACCESS 如何读取整列数据到TEXT1(1)-text1(6)里去呢 - 编程论坛

请老师看代码

只有本站会员才能查看附件，请登录

Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
   Dim ii As Integer
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=888888;Data Source=" + App.Path + "\简历.mdb;Persist Security Info=False"
   Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
rs.Open "select * from 简历表 where 编号 = '" & 编号.Text & "'And 姓名='" & 姓名.Text & "'", conn, 1, 1

Do Until rs.EOF
    For i = 1 To 4
        Text1(i).Text = Text1(i).Text & rs(i) & vbCrLf
    Next
    rs.MoveNext
Loop
rs.Close

End Sub

不知道应该怎么改啊，还有如何将TEXT1(1)-text1(6)写入数据库的列呢？或者请老师教我一个更好的办法，将一个人的全部简历用textbox写好以后一次性存入数据库

[此贴子已经被作者于2019-9-8 22:56编辑过]