#include<stdlib.h>
#include<stdio.h>
int main(void){
int r=srandom((int)time(0))
int t=srandom((int)time(0))
printf("%d %d\n",r,t)
return 0
}
首先要引用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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)