怪物猎人5 switch:Dim adorecordset As New ADODB.Recordset

来源:百度文库 编辑:中科新闻网 时间:2024/04/29 03:25:04
Dim adorecordset As New ADODB.Recordset
Dim db As New ADODB.Connection
db.Open "provider = microsoft.jet.oledb.4.0;data source=" & App.Path & "\acs\db1.mdb;"
djxh = DataList1.BoundText
adorecordset.Open "select * from 表1 where 电机型号='" & djxh & "'", db, adOpenStatic

请问这段程序的用途? 尤其是最后一句中的"db, adOpenStatic"是做什么用的.我试过,如省略则数据库连接不上.谢谢了!

第一行,声明 ADODB.Recordset(记录集) 的实例 adorecordset
第二行,声明 ADODB.Connection(连接) 的实例 db
第三行,打开连接,根据连接字符串连到数据库
第四行,取得 DataList1 的当前文本存入变量 djxh 中
第五行,打开记录集,第1个参数是SQL语句,第2个参数是连接,第3个参数代表使用静态游标方式打开记录集,类似ASP中的 rs.open sql,conn,3,3 的语句,其中adOpenStatic是一个常量,其值等于3