vb 随机从access数据库中取1条纪录并显示在text文本框中怎么写代码?
展开全部
Private Sub Form_Load()
’打开数据库的代码你应该自己写好了吧，所以省略，
Randomize
Adodc1.Recordset.MoveFirst
For i = 0 To Int(Rnd(0 * Adodc1.Recordset.RecordCount))
Adodc1.Recordset.MoveNext
Text1.Text = Adodc1.Recordset.Fields(Int(Rnd() * Adodc1.Recordset.Fields.Count))
Next i
end sub
’打开数据库的代码你应该自己写好了吧，所以省略，
Randomize
Adodc1.Recordset.MoveFirst
For i = 0 To Int(Rnd(0 * Adodc1.Recordset.RecordCount))
Adodc1.Recordset.MoveNext
Text1.Text = Adodc1.Recordset.Fields(Int(Rnd() * Adodc1.Recordset.Fields.Count))
Next i
end sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
