人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

以前このVBで繰り返しをやめて、最初の1件目だけ読み取りたいと質問したのですが、テーブルにある最後のレコードだけ読み取るということは可能でしょうか?

'tbl_ラベルデータトランの読込
SSql = "SELECT * FROM tbl_REラベルデータトラン "
SSql = SSql & "ORDER BY 店舗コード, 個口NO"
RdTR4.Open SSql, Cnn
Do Until RdTR4.EOF = True
'ラベル送信
Call Label_Send1(RdTR4)
RdTR4.MoveNext
Loop

Me.SubMas.Requery
MsgBox "ラベルプリンタへの送信が終了しました", vbInformation, "終了"

●質問者: hac20380
●カテゴリ:コンピュータ
✍キーワード:CNN LOOP open SELECT VB
○ 状態 :終了
└ 回答数 : 2/3件

▽最新の回答へ

1 ● SG5-NA
●35ポイント

構文からしてRdTR4がADOレコードセットと想定で

Dim varBM as Variant

'tbl_ラベルデータトランの読込

SSql = "SELECT * FROM tbl_REラベルデータトラン "

SSql = SSql & "ORDER BY 店舗コード, 個口NO"

RdTR4.Open SSql, Cnn

Do Until RdTR4.EOF = True

varBM=RdTR4.Bookmark

RdTR4.MoveNext

Loop

'ラベル送信

RdTR4.Bookmark=varBM

Call Label_Send1(RdTR4)

Me.SubMas.Requery

MsgBox "ラベルプリンタへの送信が終了しました", vbInformation, "終了"

または

'tbl_ラベルデータトランの読込

SSql = "SELECT * FROM tbl_REラベルデータトラン "

SSql = SSql & "ORDER BY 店舗コード, 個口NO"

RdTR4.Open SSql, Cnn

RdTR4.MoveLast

'ラベル送信

Call Label_Send1(RdTR4)

でしょうか。

RdTR4が必ず行を返す前提ですが。


2 ● kimizu
●35ポイント

ソート指定を逆順にして、最初のレコードを読み取るのが一般的です。

http://www.pursue.ne.jp/jouhousyo/SQLDoc/select07.html

ORDER BYでDESCを指定すれば、逆順になります。

なので、


ORDER BY 店舗コード DESC, 個口NO DESC


にして、最初の行を読めば、最終レコードです。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ