VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/04/19(Thu) 17:18
投稿者： シュウ
Ｅメール：
ＵＲＬ：
タイトル： Re: 約○○件中 ○〜○件を表示２

> お世話になっております。前スレが長くなってしまったので新しく立てます。すみません。。
>
> 現在ADOと接続をした後、以下のようにしています。
> 　　a = "1"
>
>     '表示する内容をグリッドに表示
>     Adodc1.CommandType = adCmdText
>     'Adodc1.RecordSource = " select * from "
>     Adodc1.RecordSource = " select * from ( " & _
>     " select row_number() over (order by NUM desc) NO, CODE " & _
>     " , NAME, NUM , YEAR, TERM, REG_DAY, UPDATE_DAY from test order by NUM &quo
t; & _
>     " ) where NO >= " & a & " and NO <= " & a
+ 19
>    
> 'レコードセットを更新する
>     Adodc1.Refresh
> 'ADOのレコードソースをデータグリッドコントロールに連結する
>     Set DataGrid1.DataSource = Adodc1.Recordset
>
> フォームロード時に１〜２０件を表示しています。
> 変数「a」に同じフォームにあるコマンドボタンを押すことによってプラス20ずつして表示
> 出来たらと思うのですが、コマンドボタンのコードがうまく書けない状態です。
> どのようにしたら、うまく「a」に変数が入るのでしょうか？

とりあえず、どこにも定義がないので「a」の正体がよくわかりませんが…。
まあ、「a」はモジュール変数で定義するべきでしょうね。（個人的にはLONG型をお勧めします）
フォームロード時に上記の処理が実行されたとして、
後は、コマンドボタン押下時の処理に、
「a」に1を入れる を 「a」に20を追加 と変更して、
後は同じ処理をしてやればいいんじゃないでしょうか？

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -