Excel VBA で削除処理 レコードが無い場合の条件分岐

Question

前提・実現したいこと

ExcelとOracle DataBaseを繋げて、Excel VBAでDB操作（Delete処理）を行いたいです。

【Delete処理内容】
ユーザーフォーム(DeleteForm)に生徒番号を入力
→入力値と一致する生徒を探す
→レコードがある…削除
→レコードが無い…メッセージボックス表示

発生している問題・エラーメッセージ

レコードがある/ない の分岐がうまくいきません。
存在しない生徒番号を入力しても「レコードがある」方に行ってしまいます。
「レコードが無い場合、EOFがTrueになる」とネットに書いてあったはずですが毎回Falseになります。

実行時エラー '3709'
この操作を実行するために接続を使用できません。
このコンテキストで閉じているかあるいは無効です。

該当のソースコード

Public Sub DeleteFormButton_Click()  'フォーム入力→削除ボタンの処理
'tnsnames.ora ファイルのネットサービス名'
    Const STRDATASOURCE = "__SERVICE__"

    Const USERNAME = "__USERNAME__"       '接続するデータベースのユーザー名
    Const PASSWORD = "__PASSWORD__"       'パスワード
    
    Dim oraCon As New ADODB.Connection      '接続オブジェクト
    Dim oraRs As New ADODB.Recordset        'レコードセット
    Dim oraCmd As New ADODB.Command         '操作
    Dim constr As String
    Dim strSQL1 As String
    Dim strSQL2 As String
 
    constr = "Provider=MSDAORA"
    constr = constr & ";Data Source=" & STRDATASOURCE
    constr = constr & ";User ID=" & USERNAME
    constr = constr & ";Password=" & PASSWORD
    
    oraCon.ConnectionString = constr
    oraCon.Open
' DBと接続までは完了しています
    
    strSQL1 = "SELECT MAX(ID) FROM student WHERE ID = '" & Me.DeleteForm.Text & "'"
    oraRs.Open strSQL1, oraCon
    
    If oraRs.EOF Then
        nullMsg
        Else
        With oraCmd
        strSQL2 = "DELETE FROM student WHERE ID = '" & Me.DeleteForm.Text & "' ; "
        .CommandText = strSQL2
'ここからエラー
        oraCmd.Execute (strSQL2), oraCon
        Set oraRs = .Execute
        End With
        End If
        
    oraCon.Close
    
    Unload Me
End Sub
---
Sub nullMsg()
    MsgBox "入力された番号と一致する" & vbCrLf & "生徒はいません。", "エラー"
End Sub

試したこと

If文の条件を変更

If oraRs.RecordCount = 0 Then

→oraRs.RecordCountの中身はレコードのあるない関わらず常に-1

補足情報（FW/ツールのバージョンなど）

Excel 2010
Oracle DataBase 12c
Oracle Client 12c

Answer 1

これでどうでしょう。

strSQL1 = "SELECT ID FROM student WHERE ID = '" & Me.DeleteForm.Text & "'"

Comments

[ko_e]

回答ありがとうございます！
こちらの方法もレコードが無い方の分岐ができました。

MAXを入れないシンプルなSELECT文にするとEOFがTrueになるのですね…
試行を見落としていました、ありがとうございます！

Answer 2

下記でどうでしょうか。

    strSQL1 = "SELECT Count(ID) As Cnt FROM student WHERE ID = '" & Me.DeleteForm.Value & "'"
    oraRs.Open strSQL1, oraCon

    If oraRs!Cnt = 0 Then
        oraRs.Close
        nullMsg
    Else
       '以下略

Comments

[ko_e]

ありがとうございます！
こちらの方法でレコードが無い方に行きました！

Cntについて初めて知りました。また勉強します。

※こちら最初にエラー発生しましたという旨のコメントをつけさせていただきましたが、こちらの記述ミスでした。通知が行っていたら申し訳ありません。

[hatena19]

Cnt 自体に意味はありません。フィールドの名前を設定しただけですので。
Countだとレコードがない場合は0が返るはずなんですけど、Oracle だと違うのかな？

Null判定は If oraRs!Cnt = Null Then ではなく If IsNull(oraRs!Cnt) Then です。
If Nz(oraRs!Cnt)=0 Then だと 0 でも Null で真になります。

エラー対処はレコードセットを閉じてから開いてください。
oraRs.Close
oraRs.Open strSQL1, oraCon

[ko_e]

Asは命名でしたのでCountですね…申し訳ありません

私が記述ミスでNullが返ってしまった件への補足もありがとうございます…！
Nzは0でもNullでもTrueになるのですか！

今まで一覧表示処理だけで初めてExecuteを使ったため、レコードセットを閉じる場所も悩んでいました(T_T)
とても勉強になりますありがとうございます！