一个简单的问题，急！！！

Question

我想用label1,label2...label9分别显示一个ACCESS数据库中的第1--9个记录
有什么好的方法吗？
比如label(i)=rs.fields("*")

Answer 1

access没有用过！
用sql是
  txtsql="select 字段 from 表"
  set mrc=executesql(txtsql,msgtext)
  if mrc.eof=false and mrc.recordcount=9 then
     for i=1 to mrc.recordcount
     label(i)=mrc.field(0)
     mrc.movenext
     next i
   end if

Answer 2

对不起！没有关门
next i
mrc.close
   end if

Answer 3

label(i)=mrc.field(0) 这一句你的能运行吗？
我是想要LABEL*.CAPTION = RS.FIELDS（0）
编译时总是提示LABEL（i)这个过程没有定义，难道还要单独的写一个函数？？？

Answer 4

label(i).caption=mrc.field(0) 是代表label的一個數組Option ExplicitPublic rs As New ADODB.Recordset
Public conn As New ADODB.ConnectionPrivate Sub Form_Load()
 Dim strconn As String
 strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 conn.CursorLocation = adUseClient
 
 conn.Open strconn
 
 If rs.State = 1 Then rs.Close
 rs.Open "Select * from People", conn, adOpenKeyset, adLockPessimistic
 
 rs.MoveFirst
 Me.Label1(0).Caption = Trim("" & rs("ID"))
 Me.Label1(1).Caption = Trim("" & rs("Name"))End Subrs.move i'i代表第幾條記錄

Answer 5

在窗体上首先放一个label1，然后在label1上面右键，单击复制，再在窗体上右键，单击粘贴，重复8次，这样就在窗体上添加了有9个元素的控件数组。
之后：
mrc.movefirst
for i=1 to mrc.recordcount
     label1(i)=mrc(0)
     mrc.movenext
  next i