|
4）由Foxpro生成的DBC數據庫與MDB數據庫相似，都是一個數據庫包含幾個數據表的形式，所以對DBC數據庫的存取方法與MDB數據庫相似。
Function CreateDbcRecordset( DBC數據庫文件名, 數據表名或Select語句 )
Dim conn,Driver,SourceType,DBPath
’ 建立Connection 對象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBC;"
DBPath = "SourceDB=" & Server.MapPath( "DBC數據庫文件名" )
’ 連接數據庫
conn.Open Driver & SourceType & DBPath
Set CreateDbcRecordset = Server.CreateObject("ADODB.Recordset")
’ 打開數據表，參數二為Connection對象
CreateDbcRecordset.Open "數據表名或Select語句", conn, 2, 2
End Function
5）將Excel97或Excel2000生成的XLS文件（book）看成一個數據庫，其中的每一個工作表(sheet)看成數據庫表。
Function CreateExcelRecordset( XLS文件名,Sheet名 )
Dim conn.Driver,DBPath
’ 建立Connection對象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "XLS文件名" )
’ 調用Open 方法打開數據庫
conn.Open Driver & DBPath
Set CreateExcelRecordset = Server.CreateObject("ADODB.Recordset")
’ 打開Sheet，參數二為Connection對象,因為Excel ODBC驅動程序無法直接用’sheet名來打開sheet,所以請注意以下的select語句
CreateExcelRecordset.Open "Select * From ["&sheet&”$]”, conn, 2, 2
End Function
|
