| Function CreateMdbRecordset(数据库文件名, 数据表名或Select语句 ) Dim conn,Provider,DBPath ’建立Connection 对象 Set conn = Server.CreateObject(“ADODB.Connection”) Provider=“Provider=Microsoft.Jet.OLEDB.4.0;” DBPath = “Data Source=” & Server.MapPath(“数据库文件名”) ’打开数据库 conn.Open Provider & DBPath Set CreateMdbRecordset = Server.CreateObject(“ADODB.Recordset”) ’打开数据表 CreateMdbRecordset.Open “数据表名”, conn, 2, 2 End Function |
| Function CreateSecuredMdbRecordset( 数据库文件名, 数据表名或Select语句,password ) Dim conn,Provider,DBPath ’建立Connection 对象 Set conn = Server.CreateObject(“ADODB.Connection”) Provider = “Provider=Microsof.Jet.OLEDB.4.0;” DBPath = “Data Source=”& Server.MapPath(“数据库文件名”) ’连接数据库,注意要带有密码参数 conn.Open Provider & DBPath&“Jet OLEDB:Database Password=”&assword Set CreateSecuredMdbRecordset = Server. CreateObject(“ADODB.Recordset”) ’打开数据表 CreateSecuredMdbRecordset.Open “数据表名”, conn, 2, 2 End Function |
用户评论