查人人中国名人网未来的枪作文:如何生成随机数数据库
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 19:54:48
有没有什么程序或软件可以生成一个随机数ACCESS数据库
随机数数量要上万个,不能重复,而且还可以定随机数的长度和定前几个数字为固定数字
随机数数量要上万个,不能重复,而且还可以定随机数的长度和定前几个数字为固定数字
首先要引用ADO对象，打开菜单“工程-引用”，选择“Microsoft ActiveX Data Objects 2.0 Library”将其沟选，这样就可以进行声明ADO对象了
Dim cnn As New ADODB.Connection 'ADO连接对象
Dim Collection As ADODB.Recordset 'ADO记录集对象
Dim Cnt As Integer '计算产生随机数的个数
Dim No() As Integer '动态数组存放所有产生的随机数字
Private Sub Command1_Click()
Form_Unload (True) '调用窗体的卸载事件
End Sub
Private Sub Form_Load()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\Collection.mdb"
'打开数据库连接，驱动程序Microsoft.Jet.OLEDB.4.0，数据源为当前目录下的Collection数据库
Set Collection = New ADODB.Recordset
'申请一个新的Collection记录集对象
Collection.Open "select * from tab", cnn, adOpenKeyset, adLockOptimistic
'打开记录集对象
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
If Cnt