回复 3楼 wds1
太感谢了,帮我解决了大问题,现在问题又来了,如何把查询结果放入窗体中的那个文本框里面呢?
Private Sub Command2_Click()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Joyce\Desktop\tmp\RandSystem.accdb;Persist Security Info=False"
conn.Open
strsql = "SELECT TOP 2 执法人员名单.[姓
名] FROM 执法人员名单 ORDER BY RND(ID)"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open strsql, conn, 1, 1
'自己编写随机数算法,以下示例显示1,3记录
MsgBox "记录数:" & Str(rs.RecordCount) '显示总记录数’
Text4 rs.Fields(1) '//
如何把查询结果放入窗体中的那个文本框里面呢? 系统提示这样做不对
rs.Move 2
Text4 rs.Fields(1) '显示第二个记录
End Sub