原 型: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)