實驗Recordset.Movenext,Recordset.Previous,Recorset...等移動記錄_第1頁
實驗Recordset.Movenext,Recordset.Previous,Recorset...等移動記錄_第2頁
實驗Recordset.Movenext,Recordset.Previous,Recorset...等移動記錄_第3頁
全文預(yù)覽已結(jié)束

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、    我在實驗Recordset.Movenext,Recordset.Previous,Recorset.等移動記錄的時候遇到了困難.我用Access做后臺數(shù)據(jù)庫,通過一個查詢條件查詢得一個記錄集,我想用一個表格實現(xiàn)記錄的逐條瀏覽(不是一組記錄分頁瀏覽). 即"共查到*條記錄,現(xiàn)在是第*條",單擊"Next"按鈕后下一條記錄的內(nèi)容顯示在表格中.我用如下代碼實現(xiàn)(見最后)發(fā)現(xiàn)若將Rst.Open "select * from 某表 where 從某個Form獲取的查詢條件" 改成 &

2、#160;Rst.Open "select * from 某表"(相當(dāng)于不做查詢動作)后, 記錄的瀏覽功能才得以實現(xiàn).否則總是出現(xiàn)" EOF或BOF為真 "的錯誤提示.可我明明可以從"某表"中 "select. where."到好幾個記錄的!總之如何將"記錄的逐條瀏覽"和"select * from 某表 where 從某個Form獲取的查詢條件" 結(jié)合起來?望予以指點為感!楊利2000/4/13程序代碼:<% LANGUAGE=VBScript %><!-

3、 #Include file="ADOVBS.INC" -><html><head><title></title></head><body BGCOLOR="#FFFFF0"><h3 align="center"><font face="隸書" color="#004080"><big>現(xiàn)在您可以編輯以下記錄</big></font></h3>&l

4、t;!- 在服務(wù)器上創(chuàng)建 Connection 和 Recordset 對象 -><%'創(chuàng)建并打開 Connection 對象。Set cn=Server.CreateObject("ADODB.Connection")     cn.Open "DSN=數(shù)據(jù)庫名" '創(chuàng)建并打開 Recordset 對象。Set Rst = Server.CreateObject("ADODB.Recordset")    Rst.Active

5、Connection = cn    Rst.CursorType = adOpenKeyset    Rst.LockType = adLockOptimistic   Rst.Open "select * from 某表 where 性別='"&request.form("t1")&"'"(執(zhí)行這句大有問題)Rst.Open "select * from 某表 where 性別=&

6、#39;男'"(執(zhí)行這句有點問題)Rst.Open "select * from hr_base"(執(zhí)行這句沒有問題)' 檢查 Request.Form 集合以查看所記錄的任何移動。If Not IsEmpty(Request.Form("MoveAmount") Then' 跟蹤該會話的移動數(shù)目和方向。    Session("Moves") = Session("Moves") + Request.Form("MoveAmount&quo

7、t;)   Clicks = Session("Moves")'移動到上一個已知位置。   Rst.Move CInt(Clicks)'檢查移動為 + 還是 - 并進行錯誤檢查。      If CInt(Request.Form("MoveAmount") = 1 Then         If Rst.EOF Then 

8、;           Session("Moves") = Rst.RecordCount            Rst.MoveLast         End If       

9、60;    Rst.MoveNext      End If      If Request.Form("MoveAmount") < 1 Then         Rst.MovePrevious      End If'檢查有無單擊 First Re

10、cord 或 Last Record 命令按鈕。      If Request.Form("MoveLast") = 3 Then         Rst.MoveLast         Session("Moves") = Rst.RecordCount     

11、 End If      If Request.Form("MoveFirst") = 2 Then         Rst.MoveFirst         Session("Moves") = 1      End IfEnd If'

12、對 Move Button 單擊組合進行錯誤檢查。      If Rst.EOF Then         Session("Moves") = Rst.RecordCount         Rst.MoveLast         Respon

13、se.Write "This is the Last Record"         End If            If Rst.BOF Then         Session("Moves") = 1         Rst.MoveFirst         Response.Write "This is the First Record"      End If   %><!- 顯示當(dāng)前記錄數(shù)目和記錄集大小-><h3 align="center"><font f

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論