| |
>Filter ではなく、SQL文を使っては？
>UPDATE で、WHERE 句を使って絞り込めばいいかと。
ありがとうございます。
ＳＱＬを初めてつかいました。抽出は上手くできましたが、更新がどうしたら
よいか解りません。
処理のながれとしては、抽出したレコードを１件ずつ読み込み別のテーブルに
追加処理をし、その後１件ずつレコードの更新を行いたいのです。
以下のようにしたら、抽出のみはうまくできました。
更新はどこでどのようにしたらよいでしょうか？
よろしくお願いいたします。
Set 入荷DB = CurrentProject.Connection
MYSQL = "SELECT JN入荷.確定済FLG,JN入荷.雑誌コード " _
& "FROM JN入荷 " _
& "WHERE ((JN入荷.確定済FLG)=0);"
入荷TBL.Open MYSQL, 入荷DB, adOpenKeyset, adLockPessimistic
Do Until 入荷TBL.EOF
MsgBox 入荷TBL![雑誌コード] <=== 本来ここで別テーブルに追加処理。
入荷TBL.MoveNext この後に１件ずつ（追加処理が終
Loop 了したもののみ）更新したい。
入荷TBL.Close: Set 入荷TBL = Nothing
入荷DB.Close: Set 入荷DB = Nothing
|
|
ぷー
- 04/10/22(金) 20:28 -
