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
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
在窗体上首先放一个label1,然后在label1上面右键,单击复制,再在窗体上右键,单击粘贴,重复8次,这样就在窗体上添加了有9个元素的控件数组。 之后: mrc.movefirst for i=1 to mrc.recordcount label1(i)=mrc(0) mrc.movenext next i
用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
next i
mrc.close
end if
我是想要LABEL*.CAPTION = RS.FIELDS(0)
编译时总是提示LABEL(i)这个过程没有定义,难道还要单独的写一个函数???
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代表第幾條記錄
之后:
mrc.movefirst
for i=1 to mrc.recordcount
label1(i)=mrc(0)
mrc.movenext
next i