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

下載本文檔

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

文檔簡(jiǎn)介

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

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

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

4、t;!- 在服務(wù)器上創(chuàng)建 Connection 和 Recordset 對(duì)象 -><%'創(chuàng)建并打開(kāi) Connection 對(duì)象。Set cn=Server.CreateObject("ADODB.Connection")     cn.Open "DSN=數(shù)據(jù)庫(kù)名" '創(chuàng)建并打開(kāi) Recordset 對(duì)象。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í)行這句大有問(wèn)題)Rst.Open "select * from 某表 where 性別=&

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

7、t;)   Clicks = Session("Moves")'移動(dòng)到上一個(gè)已知位置。   Rst.Move CInt(Clicks)'檢查移動(dòng)為 + 還是 - 并進(jìn)行錯(cuò)誤檢查。      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'檢查有無(wú)單擊 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、對(duì) Move Button 單擊組合進(jìn)行錯(cuò)誤檢查。      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. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論