全文

在ASP中操作数据库的方法

2001-12-21 19:26作者：　　出处：　　责任编辑：方舟

　　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 FoxProDriver};” SourceType = “SourceType=DBF;”
　DBPath=“SourceDB=” ＆ Server.MapPath(“目录名”)
　’调用Open 方法打开数据库
　conn.Open Driver ＆ SourceType ＆ DBPath
　Set CreateDbfRecordset = Server.CreateObject(“ADODB.Recordset”)
　’打开DBF文件
　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;”
　DBPath = “SourceDB=” ＆ Server.MapPath(“DBC数据库文件名”)
　’连接数据库
　conn.Open Driver ＆ SourceType ＆ DBPath
　Set CreateDbcRecordset = Server.CreateObject(“ADODB.Recordset”)
　’打开数据表
　CreateDbcRecordset.Open“数据表名或Select语句”, conn, 2, 2
End Function

　　5.将Excel生成的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
　CreateExcelRecordset.Open “Select ＊ From [”＆sheet＆“＄]”, conn, 2, 2
End Function

　　6.SQL Server属于Server级的数据库，使用时要求比较严格，必须要输入用户名及密码才能使用。

Function CreateSQLServerRecordset(计算机名称,用户ID, 用户密码,数据库名称数据表或查看表或Select指令 )
　Dim Params, conn
　Set CreatSQLServerConnection = Nothing
　Set conn = Server.CreateObject (“ADODB.Connection”)
　Params = “Provider=SQLOLEDB.1”
　Params = Params ＆ “;Data Source=” ＆ Computer
　Params = Params ＆ “;User ID=” ＆ UserID
　Params = Params ＆ “;Password=” ＆ Password
　Params = Params ＆ “.Initial Catalog=”＆数据库名称
　Conn open Paras
　Set CreateSQLServerRecordset = Server. CreateObject(“ADODB.Recordset")
　CreateSQLServerRecordset.Open source, conn, 2, 2
End Function

共2页。 9 7 1 2

共2页。首页上一页 1 2