
OleDbConnection conn = new OleDbConnection();//这个要open的,我就不详细写了
string tableName = "表名";//表的名称
DataSet ds = new DataSet();//DataSet是表的集合
string sql = "select from " + tableName;//sql语句查询数据
OleDbDataAdapter da = new OleDbDataAdapter(sql, conn);//从数据库中查询
daFill(ds, tableName);//将数据填充到DataSet
int recordCount = dsTables[tableName]RowsCount;//记录的数量
int randomNumber = new Random()Next(recordCount);//取得一个随机整数
dsTables[tableName]Rows[randomNumber]//调用该随机记录
你让数据库表中的记录有一个数字编号,然后用VB随机生成一个这之间的数!
如果你用ADODC控件的话就是
dim a as single
a=int(adodc1recordsetcount(统计库中记录条数,具体记不清了)rndX)
rnd 生成的是0-1之间的数,后面的X你自己去想是多少?
然后给ADODC重新建立数据源
adodc1recordsouce="select from where 字段=a"
adodc1refsh
然后就是让他显示
lable1caption=adodc1rec`````fiels()
lable2````````````
用数据库变量做也是一样的!!!
写个循环语句,每次随机一个信息存入一个随机数据表内,在设一个计数,计数控制在200以内,每随机一条数据并将随机的数据与随机数据表里之前的数据比对无重复的即+1,计数如果在200以内继续循环。。。、
不好意思 语句我早就忘了,但我这样想的希望可以解决你的问题
Select
Top
5
From
表名
Order
By
NEWID()
,
newid
产生的新的值是不固定的
。
在Select表里的数据的NEWID()
函数时候
随即选出N条记录
。希望能够帮助你
。
Private Sub Command1_Click()
Dim conn As New ADODBConnection, RS As New ADODBRecordset, SSP As Integer, NID As Long
connOpen "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\这里是你的Access数据库名称mdb;Persist Security Info=False"
RSOpen "Select From 片假名", conn, 3, 3
SSP = RSRecordCount '得到数据库的总记录,但你必须保证数据表中字段 ID 的记录是连续的,没有断号
RSClose
Randomize
NID = Int(SSP Rnd + 1) '随机产生一个ID号
RSOpen "Select From 片假名 Where ID=" & NID & "", conn, 3, 3
If Not RSEOF Then '为了防止短号,加了这个判断
Label1Caption = RS!字
Else
MsgBox "对不起!没有找到ID = " & NID & " 的记录!", 16, "错误!"
End If
RSClose
connClose
End Sub
以上就是关于请问C#如何从access数据库中随机抽取一条数据全部的内容,包括:请问C#如何从access数据库中随机抽取一条数据、vb 随机抽取数据库中的信息、数据库里10000条数据,我想随机取出200个,要怎么做呢等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)