使用ASP存取各種常用分類數(shù)據(jù)庫(6)
發(fā)表時間:2024-02-21 來源:明輝站整理相關軟件相關文章人氣:
[摘要]三、程序清單'以下程序用VBScript編寫3)DBF文件不是一個標準的數(shù)據(jù)庫文件,只相當于標準數(shù)據(jù)庫文件中的一個數(shù)據(jù)表,所以為了使用DBF文件,采用把所有的DBF文件放在一個目錄下,這樣把目錄名看成標準數(shù)據(jù)中的數(shù)據(jù)庫表,每一個DBF文件相當于標準數(shù)據(jù)庫的數(shù)據(jù)表。下面函數(shù)中Director...
三、程序清單
'以下程序用VBScript編寫
3)DBF文件不是一個標準的數(shù)據(jù)庫文件,只相當于標準數(shù)據(jù)庫文件中的一個數(shù)據(jù)表,所以為了使用DBF文件,采用把所有的DBF文件放在一個目錄下,這樣把目錄名看成標準數(shù)據(jù)中的數(shù)據(jù)庫表,每一個DBF文件相當于標準數(shù)據(jù)庫的數(shù)據(jù)表。下面函數(shù)中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 方法打開數(shù)據(jù)庫
conn.Open Driver & SourceType & DBPath
Set CreateDbfRecordset = Server.CreateObject("ADODB.Recordset")
' 打開DBF文件,參數(shù)二為Connection對象
CreateDbfRecordset.Open DBF文件名或Select語句, conn, 2, 2
End Function