7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub btn_ChuTi_Click()
Dim rs As New ADODB.Recordset
Sql = "select top 20 Qcontent,Qanswer from TbmQusetions order by newID() desc" '把查询用户信息的SQL语句赋给变量Sql
rs.Open Sql, cnn, adOpenStatic, adLockBatchOptimistic '以只读的方式静态的打开Sql执行的结果的记录集
rs.movefirst
lblT1.Caption = rs("Qcontent")
rs.movenext
lblT2.Caption =rs("Qcontent")
.................
lbl3.Caption =
lblT4.Caption =
lblT5.Caption =
lblT6.Caption =
End Sub
Private Sub btn_ChuTi_Click()
Dim rs As New ADODB.Recordset
Sql = "select top 20 Qcontent,Qanswer from TbmQusetions order by newID() desc" '把查询用户信息的SQL语句赋给变量Sql
rs.Open Sql, cnn, adOpenStatic, adLockBatchOptimistic '以只读的方式静态的打开Sql执行的结果的记录集
rs.movefirst
for i=0 to 19
lblT(i).Caption = rs("Qcontent")
rs.movenext
next i
End Sub