• 當前位置：創(chuàng)新互聯(lián) >> 常見問題 >> 虛擬主機 >> 數(shù)據(jù)庫 >> ADO 存取數(shù)據(jù)庫時是我重要屬性和方法

ADO 存取數(shù)據(jù)庫時是我重要屬性和方法

• 作者：創(chuàng)新互聯(lián) 文章來源：虛擬主機部 點擊數(shù)： 更新時間：2010-11-21
• 一、 BOF 與 EOF 屬性
  　　通常我們在 ASP 程序中編寫代碼來檢驗 BOF 與 EOF 屬性，從而得知目前指標所指向的 RecordSet 的位置，使用 BOF 與 EOF 屬性，可以得知一個 Recordset 對象是否包含有記錄或者得知移動記錄行是否已經(jīng)超出該 Recordset 對象的范圍。
  如：
  < % if not rs.eof then ... %>
  < % if not (rs.bof and rs.eof) %>
  　　若當前記錄的位置是在一個 Recordset 對象第一行記錄之前時， BOF 屬性返回 true，反之則返回 false。
  　　若當前記錄的位置是在一個 Recordset 對象最后一行記錄之后時， EOF 屬性返回 true，反之則返回 false。
  　　BOF 與 EOF 都為 False：表示指標位于 RecordSet 的當中。
  　　BOF 為 True：目前指標指到 RecordSet 的第一筆記錄。 EOF 為 True：目前指標指到 RecordSet 的最后一筆記錄。
  　　BOF 與 EOF 都為 True：在 RecordSet 里沒有任何記錄。
  二、 Move 方法
  　　您可以用 Move 方法移動指標到 RecordSet 中的某一筆記錄，語法如下：
  　　rs.Move NumRecords,Start
  　　這里的“rs”為一個對象變量，表示一個想要移動當當前記錄位置的 Recordset 對象；“NumRecords”是一個正負數(shù)運算式，設定當前記錄位置的移動數(shù)目；“start”是一個可選的項目，用來指定記錄起始的標簽。
  　　所有的 Recordset 對象都支持 Move 方法，如果 NumRecords 參數(shù)大于零，當前記錄位置向末尾的方向移動；如果其小于零，則當前記錄位置向開頭的方向移動；如果一個空的 Recordset 對象調用 Move 方法，將會產(chǎn)生一個錯誤。
  　　MoveFirst 方法：將當前記錄位置移至第一筆記錄。
  　　MoveLast 方法：將當前記錄位置移至最后一筆記錄。
  　　MoveNext 方法：將當前記錄位置移至下一筆記錄。 MovePrevious 方法：將當前記錄位置移至上一筆記錄。
  　　Move [n] 方法：移動指標到第 n 筆記錄， n 由 0 算起。
  三、 AbsolutePage 屬性
  　　AbsolutePage 屬性設定當前記錄的位置是位于哪一頁的頁數(shù)編號；使用 PageSize 屬性將 Recordset 對象分割為邏輯上的頁數(shù)，每一頁的記錄數(shù)為 PageSize( 除了最后一頁可能會有少于 PageSize 的記錄數(shù) )。這里必須注意并不是所有的數(shù)據(jù)提供者都支持此項屬性，因此使用時要小心。
  　　與 AbsolutePosition 屬性相同， AbsolutePage 屬性是以 1 為起始的，若當前記錄為 Recordset 的第一行記錄， AbsolutePage 為 1�？梢栽O定 AbsolutePage 屬性，以移動到一個指定頁的第一行記錄位置。
  四、 AbsolutePosition 屬性
  　　若您需要確定目前指標在 RecordSet 中的位置，您可以用 AbsolutePosition 屬性。
  　　AbsolutePosition 屬性的數(shù)值為目前指標相對於第一筆的位置，由 1 算起，即第一筆的 AbsolutePosition 為 1。
  　　注意 , 在存取 RecordSet 時，無法保證 RecordSet 每次都以同樣的順序出現(xiàn)。
  　　若要啟用 AbsolutePosition，必須先設定為使用用戶端 cursor( 指針 )， asp 碼如下：
  　　rs2.CursorLocation = 3
  五、 PageCount 屬性
  　　使用 PageCount 屬性，決定 Recordset 對象包括多少“頁”的數(shù)據(jù)。這里的“頁”是數(shù)據(jù)記錄的集合，大小等于 PageSize 屬性的設定，即使最后一頁的記錄數(shù)比 PageSize 的值少，最后一頁也算是 PageCount 的一頁。必須注意也并不是所有的數(shù)據(jù)提供者都支持此項屬性。
  六、 PageSize 屬性
  　　PageSize 屬性是決定 ADO 存取數(shù)據(jù)庫時如何分頁顯示的關鍵，使用它就可以決定多少記錄組成一個邏輯上的“一頁”。設定并建立一個頁的大小，從而允許使用 AbsolutePage 屬性移到其它邏輯頁的第一條記錄。 PageSize 屬性能隨時被設定。
  七、 RecordCount 屬性
  　　這也是一個非常常用和重要的屬性，我們常用 RecordCount 屬性來找出一個 Recordset 對象包括多少條記錄。如： < % totle=RS.RecordCount %>
  　　在了解了 Recordset 對象的以上屬性和方法后，我們來考慮一下，如何運用它們來達到我們分頁顯示的目的。首先，我們可以為 PageSize 屬性設置一個值，從而指定從記錄組中取出的構成一個頁的行數(shù)；然后通過 RecordCount 屬性來確定記錄的總數(shù)；再用記錄總數(shù)除以 PageSize 就可得到所顯示的頁面總數(shù)；最后通過 AbsolutePage 屬性就能完成對指定頁的訪問。好象很并不復雜呀，下面讓我們來看看程序該如何實現(xiàn)呢？
  　　我們建立這樣一個簡單的 BBS 應用程序，它的數(shù)據(jù)庫中分別有以下五個字段：“ID”，每個帖子的自動編號；“subject”，每個帖子的主題；“name”，加帖用戶的姓名； “email”，用戶的電子郵件地址；“postdate”，加帖的時間。數(shù)據(jù)庫的 DSN 為“bbs”。我們將顯示帖子分頁的所有步驟放在一個名為“ShowList()”的過程中，方便調用。程序如下：
  \'----BBS 顯示帖子分頁----
  < % Sub ShowList() %>
  < %
  PgSz=20 \'設定開關，指定每一頁所顯示的帖子數(shù)目，默認為20帖一頁
  Set Conn = Server.CreateObject("ADODB.Connection")
  Set RS = Server.CreateObject("ADODB.RecordSet")
  sql = "SELECT * FROM message order by ID DESC"
  \'查詢所有帖子，并按帖子的ID倒序排列
  Conn.Open "bbs"
  RS.open sql,Conn,1,1
  If RS.RecordCount=0 then
  response.write "< P>< center>對不起，數(shù)據(jù)庫中沒有相關信息！< /center>< /P>"
  else
  RS.PageSize = Cint(PgSz) \'設定PageSize屬性的值
  Total=INT(RS.recordcount / PgSz * -1)*-1 \'計算可顯示頁面的總數(shù)
  PageNo=Request("pageno")
  if PageNo="" Then
  PageNo = 1
  else
  PageNo=PageNo+1
  PageNo=PageNo-1
  end if
  ScrollAction = Request("ScrollAction")
  if ScrollAction = " 上一頁 " Then
  PageNo=PageNo-1
  end if
  if ScrollAction = " 下一頁 " Then
  PageNo=PageNo+1
  end if
  if PageNo < 1 Then
  PageNo = 1
  end if
  n=1
  RS.AbsolutePage = PageNo
  Response.Write "< CENTER>"
  position=RS.PageSize*PageNo
  pagebegin=position-RS.PageSize+1
  if position < RS.RecordCount then
  pagend=position
  else
  pagend= RS.RecordCount
  end if
  Response.Write "< P>< font color=\'Navy\'>< B>數(shù)據(jù)庫查詢結果:< /B>"
  Response.Write "(共有"&RS.RecordCount &"條符合條件的信息,顯示"&pagebegin&"-"&pagend&")< /font>< /p>"
  Response.Write "< TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF>"
  Response.Write "< TR BGCOLOR=#5FB5E2>< FONT SIZE=2>< TD>< B>主題< /B>< /TD>< TD>< B>用戶< /B>< /TD>< TD>< B>Email< /B>< /TD>< TD>< B>發(fā)布日期< /B>< /TD>< /FONT>< TR BGCOLOR=#FFFFFF>"
  Do while not (RS is nothing)
  RowCount = RS.PageSize
  Do While Not RS.EOF and rowcount >0
  If n=1 then
  Response.Write "< TR BGCOLOR=#FFFFFF>"
  ELSE
  Response.Write "< TR BGCOLOR=#EEEEEE>"
  End If
  n=1-n %>
  < TD>< span style="font-size:9pt">< A href=\'view.asp?key=< % =RS("ID")%>\'>< % =RS("subject")%>< /A>< /span>< /td>
  < TD>< span style="font-size:9pt">< % =RS("name")%>< /A>< /span>< /td>
  < TD>< span style="font-size:9pt">< a href="mailto:< % =RS("email")%>">< % =RS("email")%>< /a>< /span>< /TD>
  < TD>< span style="font-size:9pt">< % =RS("postdate")%>< /span>< /td>
  < /TR>
  < %
  RowCount = RowCount - 1
  RS.MoveNext
  Loop
  set RS = RS.NextRecordSet
  Loop
  Conn.Close
  set rs = nothing
  set Conn = nothing
  %>
  < /TABLE>
  < FORM METHOD=GET ACTION="list.asp">
  < INPUT TYPE="HIDDEN" NAME="pageno" VALUE="< % =PageNo %>">
  < %
  if PageNo >1 Then
  response.write "< INPUT TYPE=SUBMIT NAME=\'ScrollAction\' VALUE=\' 上一頁 \'>"
  end if
  if RowCount = 0 and PageNo < >Total then
  response.write "< INPUT TYPE=SUBMIT NAME=\'ScrollAction\' VALUE=\' 下一頁 \'>"
  end if
  response.write "< /FORM>"
  End if
• ASP連接數(shù)據(jù)庫方法 :上一篇
  跟我學asp備份sql server數(shù)據(jù)庫 :下一篇