发信人: r_hayes(Hayes)
整理人: qcrsoft(2002-05-13 01:06:52), 站内信件
|
不同的数据库连接方法不一样（即建立Connection的实例方法不一样），一旦建立Connection实例完毕，利用Recordset对象进行存取数取数据的方法大同小异，下面对于不同的数据类型，编写了相对应的连接函数，其原型如下：
1）Function CreatMdbRecordset( 数据库文件名, 数据表文件名或Select语句 )；建立Mdb类型的数据库对象
2)Function CreateSecuredMdbRecordset( 数据库文件名，数据表文件名或Select语句, 密码 )；建立带密码的MDB类型的数据库对象；
3)Function CreateDbfRecordset(目录名, DBF文件名或Select语句)；建立DBF类型的数据库对象；
4)Function CreateDbcRecordset(DBC数据库文件名, 数据表名或Select语句)；建立DBC类型的数据库对象；
5)Function CreateExcelRecordset(XLS文件名,Sheet名)；建立Excel类型的数据库对象；
6)Function CreateSQLServerRecordset(计算机名称,用户ID, 用户密码,数据库名称 数据表或查看表或Select指令 )；建立SQL Server 类型的数据库对象；
三、程序清单
’以下程序用VBScript编写
1)建立MdbRecordset对象，Mdb数据库是一个完整的数据库，内部可能含有若干个数据表，在此函数中，Connection的作用是连接数据库，Recordset的作用是打开数据表。
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")
’ 打开数据表，参数二为Connection对象
CreateMdbRecordset.Open "数据表名", conn, 2, 2
End Function
----
灌灌
灌灌
灌灌
灌灌 灌灌
灌灌 灌灌灌
灌灌灌灌灌灌灌 灌灌 灌灌灌
灌灌灌灌灌灌灌灌灌灌灌灌
灌灌灌灌灌灌
灌灌灌灌灌灌灌
灌灌 灌灌 灌灌
灌灌 灌灌 灌灌
灌灌 灌灌 灌灌
灌灌 灌灌 灌灌灌
灌灌 灌灌 灌灌灌灌
灌灌 灌灌 灌灌灌灌灌
灌灌 灌灌 灌灌灌灌灌
灌灌 灌灌 灌灌
灌灌灌灌
灌灌灌
灌 |
|