どなたかご存知の方はご教示願います。
使用言語は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)
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
-
4
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
5
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
10
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
11
アクセス 壊れた? 「ファイルが見つかりません」
Access(アクセス)
-
12
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
13
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
14
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
15
FindFirst を複数条件で検索
Visual Basic(VBA)
-
16
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
17
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
18
Accessでブレークポイントを設定してないのに一時停止してしまう
その他(データベース)
-
19
EXCELVBAでSQLserverからデータをひっぱってきてエクセルに表示させたい
Visual Basic(VBA)
-
20
現在アクティブなタブのページ名を取得したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
switch の範囲指定
-
VBの質問#if 0 then ってどう...
-
DoEventsがやはり分からない
-
EXCEL VBA マクロ 実行する度に...
-
メルカリのメルカードで買い物...
-
UMLでの例外処理
-
【Excel】特定の文字を含むセル...
-
セルの値が0はクリアするマクロ
-
インタラクティブの反対語は?
-
リョウ・・・量?料?
-
ハードウェア処理とソフトウェ...
-
ハードワイアとはどういう意味...
-
特定の文字を、入力文字数に含...
-
VBAのオートフィルについて
-
【ExcelVBA】外部データの更新...
-
C言語switch文のcase記述について
-
Loadイベント中にほかのイベン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
switch の範囲指定
-
メルカリのメルカードで買い物...
-
【Excel】特定の文字を含むセル...
-
DoEventsがやはり分からない
-
EXCEL VBA マクロ 実行する度に...
-
VBの質問#if 0 then ってどう...
-
Do~Loopした回数をカウントしたい
-
もしかして
-
UMLでの例外処理
-
findは動くがfindnextがマクロ...
-
インタラクティブの反対語は?
-
VBA SaveChanges 上書きされない
-
リョウ・・・量?料?
-
Loadイベント中にほかのイベン...
-
セルの値が0はクリアするマクロ
-
FFTの結果ついて
-
Select Case文でこのようなこと...
おすすめ情報