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

投稿日: 2007/04/19(Thu) 16:08
投稿者ひろ
Eメール
URL
タイトル約○○件中 ○〜○件を表示2

お世話になっております。前スレが長くなってしまったので新しく立てます。すみません。。

現在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 " & _
    " ) where NO >= " & a & " and NO <= " & a + 19
    
'レコードセットを更新する
    Adodc1.Refresh
'ADOのレコードソースをデータグリッドコントロールに連結する
    Set DataGrid1.DataSource = Adodc1.Recordset

フォームロード時に1〜20件を表示しています。
変数「a」に同じフォームにあるコマンドボタンを押すことによってプラス20ずつして表示
出来たらと思うのですが、コマンドボタンのコードがうまく書けない状態です。
どのようにしたら、うまく「a」に変数が入るのでしょうか?


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

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