如何生成随机数数据库

首先要引用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.0Data 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

可能有如下情况：

1.数据库中的表格正在被其他网络用户使用维护中，如果你有管理员帐户可以在服务器关闭该用户的进程，这样你就可以更改。

2.可能你开了多个进程，关闭掉，只留一个进程就可以。希望能够帮上你的忙。

---