二. 数据库操作
下面就是本数据库操作类的函数功能说明,应该算是手册了,请多看例子的应用。
原 型: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)
出处:蓝色理想
责任编辑:tada
上一页 ASP操作数据库的类 [2] 下一页 ASP操作数据库的类 [4]
◎进入论坛网络编程版块参加讨论
|