二. 数据库操作

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

原  型：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")
'Your Code Here ...
db.C(rs)