access打开窗体代码,access窗体代码

access登录界面代码Www.veryhoo网站。Com]%%————————————————————————————————————————————————————————————access vba代...

www.veryhuo.com]%'-------------------------数据库连接-----------------------SetobjConn=Server.CreateObject(ADODB.Connection)objConn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;_DataSource=Server.MapPath(data.mdb)objConn.Open'-------------------------数据库连接-----------------------'-------------------------检索数据-----------------------strSQL=SELECTid,DataColumnFROMDataTable'Sql语句，检索数据库SetobjRS=Server.CreateObject(ADODB.Recordset)'创建记录集objRS.OpenstrSQL,objConn,1,1　'执行检索Count=objRS.RecordCount'得到记录总数Item=4　'显示记录数'-------------------------检索数据-----------------------'-------------------------------------------------------------------------------redima(Item,2),t(Count)'定义2数组，数组a用来储存记录，数组t用来删选记录'---------------------------------------'初始数组数值，目的为了插入数据以后和此值做比较foreachjintj=0next'---------------------------------------'---------------------------------------'随机抽取记录号Randomizetimer　'初始化随机数生成器forj=1toItemk=int(rnd*Count1)'从总数里面随机取一条记录dowhilet(k)0　'判断是否记录是否已经在数组中k=int(rnd*Item1)loopt(k)=1'第k条记录被选中next'--------------------------------------j=1:i=1'定义下标'--------------------------------------'循环选取数据集objRS中的部分记录存放到数组中DoWhileNotobjRS.Eofift(j)=1thena(i,1)=objRS(id)　'记录ida(i,2)=objRS(DataColumn)'记录内容i=i1endifj=j1objRS.MoveNextLoop'--------------------------------------'-------------------------------------------------------------------------------'----------------------------显示内容--------------------fori=1toItemResponse.write序号a(i,1)brResponse.write内容a(i,2)pnext'----------------------------显示内容--------------------'---------------------------'释放资源objRs.ClosesetobjRs=nothingobjConn.ClosesetobjConn=nothing'---------------------------%