在VB中随机抽取数据库中的某一个数据显示在label上

发布网友发布时间：2023-10-11 01:46

共3个回答

热心网友时间：2024-12-04 13:06

Private Sub Command1_Click()
Dim conn As New ADODB.Connection, RS As New ADODB.Recordset, SSP As Integer, NID As Long
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\这里是你的Access数据库名称.mdb;Persist Security Info=False"
RS.Open "Select * From 片假名", conn, 3, 3
SSP = RS.RecordCount  '得到数据库的总记录，但你必须保证数据表中字段 ID 的记录是连续的，没有断号
RS.Close
Randomize
NID = Int(SSP * Rnd + 1)    '随机产生一个ID号
RS.Open "Select * From 片假名 Where ID=" & NID & "", conn, 3, 3
If Not RS.EOF Then   '为了防止短号，加了这个判断
Label1.Caption = RS!字
Else
MsgBox "对不起！没有找到ID = " & NID & " 的记录！", 16, "错误！"
End If
RS.Close
conn.Close
End Sub

热心网友时间：2024-12-04 13:07

1、产生一个随机整数（num），如果需要你要判断一下你数据库最大ID是多少
2、sql="Select 字 from 表 where ID = " & num

--这样就是随机取得了

热心网友时间：2024-12-04 13:07

使用随机函数。
如：
Randomize‘重置随机种子Dim K As Integer’最大随机数，你的数据库中的记录数
Dim M As Integer’保存随机数
M = K * Rnd '产生一个随机数

在VB中 随机抽取数据库中的某一个数据显示在label上

在VB中随机抽取数据库中的某一个数据显示在label上