ASP操作数据库的类(3)

strServer : String 数据库服务器地址,Access请留空
strUid : String 数据库用户名,Access请留空
strPwd : String 数据库密码

原 型：Oc(connStr)
功 能：打开数据库连接
返回值：Object 数据库连接对像
参 数：
connStr : String 数据库连接字符串，由CreatConn函数生成

原 型：Co(obj)
功 能：关闭对像
参 数：
obj : Object 要关闭的对象名称

原 型：OpenConn
功 能：打开默认数据库连接，会自动建立一个名称为Conn的连接对像
参 数：无

原 型：CloseConn
功 能：关闭名称为Conn的默认数据库连接对像
参 数：无

二. 数据库操作

下面就是本数据库操作类的函数功能说明，应该算是手册了，请多看例子的应用。

原 型：dbCtrl.dbConn(objConn)
功 能：获取数据库连接对像
参 数：
objConn : Object 已经建立的数据库连接对像
举 例：
Dim db : Set db = New DbCtrl
db.dbConn = Oc(CreatConn(1,"E:\WebSite\MySite\Data\%TestDb%.mdb","","",""))
Co(db)

说 明：此属性为可选，如果不指定此属性则默认数据连接为页面上名称为Conn的数据库连接对像

原 型：dbCtrl.AutoID(TableName)
功 能：自动获取唯一序列号（自动编号）
返回值：Integer
参 数：
TableName : String 需要获得唯一序列号的数据表名
举 例：
Dim newId
newId = db.AutoId("TestTable")
Response.Write(newId)

原 型：dbCtrl.GetRecord(TableName,FieldsList,Condition,OrderField,ShowN)
功 能：取得符合条件的纪录集
返回值：Object 纪录集对像
参 数：
TableName : String 表名称
FieldsList : String 字段名称，用逗号隔开，留空则为全部字段
Condition : String or Array 查询条件，如果是数组应遵循前面的参数约定
orderField : String 排序方式
ShowN : Integer 获取纪录的数量，相当于sql中的 Select Top N
举 例：
Dim rs
Set rs = db.GetRecord("TestTable","fId,fName,fAge","fSex='男' And IsActive = 1","fName Asc", 0)
While Not rs.eof
Response.Write ("Name is:" & rs(1) & " Age is:" & rs(2) & "<br />")
rs.movenext()
Wend
db.C(rs)

对于以上的例子，用下面的数组方式指定条件是等价的：

Set rs = db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0)

另外，你可以用下面的语句来查看这个函数生成的sql语句：

Response.Write(db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0))

如你所见，只需要在原来的函数前加一个w即可。

原 型：dbCtrl.GetRecordBySQL(strSelect)
功 能：根据sql语句取得纪录集
返回值：Object 纪录集对像
参 数：
strSelect : String 用于生成记录集的SQL语句
举 例：
Dim rs
Set rs = db.GetRecordBySQL("Select a.Id, a.LastName, b.Group From User a InnerJoin Depart b On a.GroupId = b.GroupId")