日期:2012-06-10  浏览次数:20802 次

  Microsoft Excel Driver     Excel
  
  Microsoft Visual FoxPro Driver   Dbc
  
  SQLOLEDB.1           SQL Server7.0
  


  二、连接数据库和打开数据表

  不同的数据库连接方法不一样(即建立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


  2)建立带密码的Mdb数据库的Recordset对象,它的建立方式与建立不带密码的Mdb数据库的Recordset对象类似,只是多了一个密码参数,即在与数据库连接时,必须给出密码信息。