![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
どなたかご存知の方はご教示願います。
使用言語は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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Select Case文でこのようなことは可能でしょうか?
Visual Basic(VBA)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
-
4
変数にnullを代入するには
Excel(エクセル)
-
5
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
8
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
9
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
10
EXCELVBAでSQLserverからデータをひっぱってきてエクセルに表示させたい
Visual Basic(VBA)
-
11
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
12
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
13
AccessVBA NULLについて
Visual Basic(VBA)
-
14
現在アクティブなタブのページ名を取得したい
Access(アクセス)
-
15
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
16
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
17
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
18
ACCESSでコントロールソースの変更
Access(アクセス)
-
19
On ErrorでエラーNoが0
Visual Basic(VBA)
-
20
ODBCの接続に失敗しました(3146)について
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
VBAでループ内で使う変数名を可...
-
リョウ・・・量?料?
-
エクセルで、日付を入力すると...
-
お家デートをしててハグを長い...
-
メルカリのメルカードで買い物...
-
DoEventsがやはり分からない
-
月度は何て読みますか?
-
IQテストの数列
-
【Excel】特定の文字を含むセル...
-
FFTの結果ついて
-
インタラクティブの反対語は?
-
取り消し線が入った文字を削除...
-
VBの質問#if 0 then ってどう...
-
VBAで処理フラグの立て方
-
2重のDo~Loopは?
-
再帰処理を途中で抜けるには
-
Access チェックボックスでチェ...
-
switch の範囲指定
-
EXCEL VBA マクロ 実行する度に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
DoEventsがやはり分からない
-
switch の範囲指定
-
メルカリのメルカードで買い物...
-
【Excel】特定の文字を含むセル...
-
VBの質問#if 0 then ってどう...
-
VBAでCOPYを繰り返すと、処理が...
-
EXCEL VBA マクロ 実行する度に...
-
findは動くがfindnextがマクロ...
-
インタラクティブの反対語は?
-
UMLでの例外処理
-
リョウ・・・量?料?
-
Do~Loopした回数をカウントしたい
-
セックスレスの既婚女性は自慰...
-
月度は何て読みますか?
-
セルの値が0はクリアするマクロ
-
Loadイベント中にほかのイベン...
-
FFTの結果ついて
おすすめ情報