目次
现在您可以编辑以下记录" >现在您可以编辑以下记录
ホームページ データベース mysql チュートリアル 实验Recordset.Movenext,Recordset.Previous,Recorset...等移动

实验Recordset.Movenext,Recordset.Previous,Recorset...等移动

Jun 07, 2016 pm 03:16 PM
実験

我在 实验 Recordset.Movenext,Recordset.PRevious,Recorset.......等 移动 记录 的时候遇到了困难. 我用access做后台数据库,通过一个查询条件查询得一个 记录 集,我想用一个表格实现 记录 的逐条浏览(不是一组 记录 分页浏览). 即共查到**条 记录 ,现在是第

我在实验Recordset.Movenext,Recordset.PRevious,Recorset.......等移动记录的时候遇到了困难.
我用access做后台数据库,通过一个查询条件查询得一个记录集,我想用一个表格实现记录的逐条浏览(不是一组记录分页浏览). 即"共查到**条记录,现在是第*条",单击"Next"按钮后下一条记录的内容显示在表格中.....

我用如下代码实现(见最后)

发现若将Rst.Open "select * from 某表 where 从某个Form获取的查询条件"
改成 Rst.Open "select * from 某表"(相当于不做查询动作)后, 记录的浏览功能才得以实现.
否则总是出现" EOF或BOF为真 "的错误提示.可我明明可以从"某表"中 "select... where..."到好几个记录的!

总之如何将"记录的逐条浏览"和"select * from 某表 where 从某个Form获取的查询条件" 结合起来?

望予以指点为感!

杨利
2000/4/13

程序代码:








现在您可以编辑以下记录



'创建并打开 Connection 对象。
Set cn=Server.CreateObject("ADODB.Connection")
  cn.Open "DSN=数据库名"
'创建并打开 Recordset 对象。
Set Rst = Server.CreateObject("ADODB.Recordset")
  Rst.ActiveConnection = cn
  Rst.CursorType = adOpenKeyset
  Rst.LockType = adLockOptimistic  
Rst.Open "select * from 某表 where 性别='"&request.form("t1")&"'"(执行这句大有问题)
Rst.Open "select * from 某表 where 性别='男'"(执行这句有点问题)
Rst.Open "select * from hr_base"(执行这句没有问题)
' 检查 Request.Form 集合以查看所记录的任何移动
If Not IsEmpty(Request.Form("MoveAmount")) Then
' 跟踪该会话的移动数目和方向。
  session("Moves") = Session("Moves") + Request.Form("MoveAmount")
  Clicks = Session("Moves")
'移动到上一个已知位置。
  Rst.Move CInt(Clicks)
'检查移动为 + 还是 - 并进行错误检查。
   If CInt(Request.Form("MoveAmount")) = 1 Then
     If Rst.EOF Then
      Session("Moves") = Rst.RecordCount
      Rst.MoveLast
     End If  
     Rst.MoveNext
   End If
   If Request.Form("MoveAmount")      Rst.MovePrevious
   End If
'检查有无单击 First Record 或 Last Record 命令按钮。
   If Request.Form("MoveLast") = 3 Then
     Rst.MoveLast
     Session("Moves") = Rst.RecordCount
   End If
   If Request.Form("MoveFirst") = 2 Then
     Rst.MoveFirst
     Session("Moves") = 1
   End If
End If
' 对 Move Button 单击组合进行错误检查。
   If Rst.EOF Then
     Session("Moves") = Rst.RecordCount
     Rst.MoveLast
     Response.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
  %>

共查到记录,当前为第

If IsEmpty(Session("Moves")) Then
      Session("Moves") =1
End If
%>

记录




  > Type="button" Name="cmdUp" Value="下一条"> Value="末一条">

                                   

查询结果:

                    
                    

(用于逐条显示记录的表格)                    
  
                  
                                    
                  
   value="0">                  
                  
                  
                              
 

このウェブサイトの声明
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。

ホットAIツール

Undresser.AI Undress

Undresser.AI Undress

リアルなヌード写真を作成する AI 搭載アプリ

AI Clothes Remover

AI Clothes Remover

写真から衣服を削除するオンライン AI ツール。

Undress AI Tool

Undress AI Tool

脱衣画像を無料で

Clothoff.io

Clothoff.io

AI衣類リムーバー

AI Hentai Generator

AI Hentai Generator

AIヘンタイを無料で生成します。

ホットツール

メモ帳++7.3.1

メモ帳++7.3.1

使いやすく無料のコードエディター

SublimeText3 中国語版

SublimeText3 中国語版

中国語版、とても使いやすい

ゼンドスタジオ 13.0.1

ゼンドスタジオ 13.0.1

強力な PHP 統合開発環境

ドリームウィーバー CS6

ドリームウィーバー CS6

ビジュアル Web 開発ツール

SublimeText3 Mac版

SublimeText3 Mac版

神レベルのコード編集ソフト(SublimeText3)

Alter Tableステートメントを使用してMySQLのテーブルをどのように変更しますか? Alter Tableステートメントを使用してMySQLのテーブルをどのように変更しますか? Mar 19, 2025 pm 03:51 PM

この記事では、MySQLのAlter Tableステートメントを使用して、列の追加/ドロップ、テーブル/列の名前の変更、列データ型の変更など、テーブルを変更することについて説明します。

MySQL接続用のSSL/TLS暗号化を構成するにはどうすればよいですか? MySQL接続用のSSL/TLS暗号化を構成するにはどうすればよいですか? Mar 18, 2025 pm 12:01 PM

記事では、証明書の生成と検証を含むMySQL用のSSL/TLS暗号化の構成について説明します。主な問題は、セルフ署名証明書のセキュリティへの影響を使用することです。[文字カウント:159]

MySQLの大きなデータセットをどのように処理しますか? MySQLの大きなデータセットをどのように処理しますか? Mar 21, 2025 pm 12:15 PM

記事では、MySQLで大規模なデータセットを処理するための戦略について説明します。これには、パーティション化、シャード、インデックス作成、クエリ最適化などがあります。

人気のあるMySQL GUIツール(MySQL Workbench、PhpMyAdminなど)は何ですか? 人気のあるMySQL GUIツール(MySQL Workbench、PhpMyAdminなど)は何ですか? Mar 21, 2025 pm 06:28 PM

記事では、MySQLワークベンチやPHPMyAdminなどの人気のあるMySQL GUIツールについて説明し、初心者と上級ユーザーの機能と適合性を比較します。[159文字]

ドロップテーブルステートメントを使用してMySQLにテーブルをドロップするにはどうすればよいですか? ドロップテーブルステートメントを使用してMySQLにテーブルをドロップするにはどうすればよいですか? Mar 19, 2025 pm 03:52 PM

この記事では、ドロップテーブルステートメントを使用してMySQLのドロップテーブルについて説明し、予防策とリスクを強調しています。これは、バックアップなしでアクションが不可逆的であることを強調し、回復方法と潜在的な生産環境の危険を詳述しています。

外国の鍵を使用して関係をどのように表現しますか? 外国の鍵を使用して関係をどのように表現しますか? Mar 19, 2025 pm 03:48 PM

記事では、外部キーを使用してデータベース内の関係を表すことで、ベストプラクティス、データの完全性、および避けるべき一般的な落とし穴に焦点を当てています。

JSON列にインデックスを作成するにはどうすればよいですか? JSON列にインデックスを作成するにはどうすればよいですか? Mar 21, 2025 pm 12:13 PM

この記事では、クエリパフォーマンスを強化するために、PostgreSQL、MySQL、MongoDBなどのさまざまなデータベースでJSON列にインデックスの作成について説明します。特定のJSONパスのインデックス作成の構文と利点を説明し、サポートされているデータベースシステムをリストします。

共通の脆弱性(SQLインジェクション、ブルートフォース攻撃)に対してMySQLを保護するにはどうすればよいですか? 共通の脆弱性(SQLインジェクション、ブルートフォース攻撃)に対してMySQLを保護するにはどうすればよいですか? Mar 18, 2025 pm 12:00 PM

記事では、準備されたステートメント、入力検証、および強力なパスワードポリシーを使用して、SQLインジェクションおよびブルートフォース攻撃に対するMySQLの保護について説明します。(159文字)

See all articles