資料|資料庫 Function CreateSecuredMdbRecordset( 資料庫檔案名, 資料表名或Select語句,password )
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&”Jet OLEDB:Database Password=”&assword
Set CreateSecuredMdbRecordset = Server.CreateObject("ADODB.Recordset")
‘ 開啟資料表,參數二為Connection對象
CreateSecuredMdbRecordset.Open "資料表名", conn, 2, 2
End Function
3)DBF檔案不是一個標準的資料庫檔案,只相當於標準資料庫檔案中的一個資料表,所以為了使用DBF檔案,採用把所有的DBF檔案放在一個目錄下,這樣把目錄名看成標準資料中的資料庫表,每一個DBF檔案相當於標準資料庫的資料表。下面函數中Directory是DBF所在的目錄名,
Function CreateDbfRecordset( 目錄名, DBF檔案名稱或Select語句 )
Dim conn,Driver,SourceType,DBPath
‘ 建立Connection 對象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBF;"
DBPath = "SourceDB=" & Server.MapPath( "目錄名" )
‘ 調用Open 方法開啟資料庫
conn.Open Driver & SourceType & DBPath
Set CreateDbfRecordset = Server.CreateObject("ADODB.Recordset")
‘ 開啟DBF檔案,參數二為Connection對象
CreateDbfRecordset.Open DBF檔案名稱或Select語句, conn, 2, 2
End Function
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;"