どなたかご存知の方はご教示願います。
使用言語はVB6_SP5、DBはMdb(アクセス97形式)です。
ADOでDBに接続し、レコードセットを取得しそのレコードの任意のフィールドの値により処理を3通りに分けたいのです。(値はNULL、"1"、"9" の3つです。)
IF文で条件分岐を行いたいのですが、うまく振り分けができずにおります。
IF ISNULL(RS.FIELDS("HHH").VALUE) THEN
NULLの場合の処理
ELSE
"1"の場合の処理
END IF
' "9" の場合はなにもしない
結果は全てNULLの場合の処理を実行してしまいます。
どこを修正すれば宜しいのでしょうか?
No.3ベストアンサー
- 回答日時:
これでダメですか?(未検証)
Dim strDATA As String
strDATA = Nz(RS.Fields("HHH").Value,"")
Select Case strDATA
Case "1"
'"1"の場合の処理
Case "9"
'"9"の場合の処理
Case ""
'Nullの場合の処理
End Select
No.2
- 回答日時:
判定の条件を変えてみては?
If rs.Fields("HHH").Value = "1" Then
("1"の場合の処理)
ElseIf rs.Fields("HHH").Value = "9" then
'何もしない
Else
(Nullの場合の処理)
End IF
No.1
- 回答日時:
とりあえず、「結果は全てNULL」の処理に行く理由が、
上記のソースで確認できませんが、
RS.FIELDS("HHH").VALUEの値をログかトレースで、"1","9"が
入る事は確認済みでしょうか?
自分の予想としてはクエリーの方に誤りがあると思っています。
関係ないけど"1"の判定抜けています
ELSE IF ("1"の判定)
"1"の場合の処理
END IF
' "9" の場合はなにもしない
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PostgreSQL DBFluteについて質問です。 環境:PostgreSQL java8 前提:webアプリケーショ 1 2022/07/07 00:49
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- その他(コンピューター・テクノロジー) 【Tableau Desktop】文字列から8桁の数字を日付型(yyyyMMdd)として取得 1 2023/07/31 10:17
- PHP PHPでCSVを出力するさいに、ループの中で前の行の値を変更したい 3 2022/10/27 17:44
- PHP クエリObjectをforeachで回す時に、次のレコードへ移動せずに次のレコードを取得したい 2 2022/07/28 15:29
- C言語・C++・C# c言語の問題です 3 2023/01/10 16:15
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
Select Case文でこのようなことは可能でしょうか?
Visual Basic(VBA)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
-
4
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
5
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
6
アクセス 壊れた? 「ファイルが見つかりません」
Access(アクセス)
-
7
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
8
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
9
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
12
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
13
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
14
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
15
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
16
EXCELVBAでSQLserverからデータをひっぱってきてエクセルに表示させたい
Visual Basic(VBA)
-
17
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
18
現在アクティブなタブのページ名を取得したい
Access(アクセス)
-
19
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
-
20
ADOで現在のレコードの次のレコードの値も取得
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
メルカリのメルカードで買い物...
-
EXCEL VBA マクロ 実行する度に...
-
switch の範囲指定
-
DoEventsがやはり分からない
-
【Excel】特定の文字を含むセル...
-
インタラクティブの反対語は?
-
FFTの結果ついて
-
VB.NET Excelを読み込んでDataT...
-
findは動くがfindnextがマクロ...
-
Access チェックボックスでチェ...
-
VB6,Ifから抜けるには?
-
読み方教えてください。
-
UMLでの例外処理
-
Arduino UNO のC言語
-
TextBoxに日付を自動的に入れる
-
月度は何て読みますか?
-
2重のDo~Loopは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
switch の範囲指定
-
メルカリのメルカードで買い物...
-
【Excel】特定の文字を含むセル...
-
DoEventsがやはり分からない
-
EXCEL VBA マクロ 実行する度に...
-
VBの質問#if 0 then ってどう...
-
Do~Loopした回数をカウントしたい
-
もしかして
-
UMLでの例外処理
-
findは動くがfindnextがマクロ...
-
インタラクティブの反対語は?
-
VBA SaveChanges 上書きされない
-
リョウ・・・量?料?
-
Loadイベント中にほかのイベン...
-
セルの値が0はクリアするマクロ
-
FFTの結果ついて
-
Select Case文でこのようなこと...
おすすめ情報