CommandTextプロパティの設定の仕方がわからない

Question

Excelでお仕事

VBAの学習をしております。
削除機能を追加するにあたコードを書いていたのですが、
「 Command オブジェクトの CommandText が設定されていません。」と実行時エラーが出てしまいました。

調べてみると『ADO.CommandオブジェクトにCommandTextプロパティを設定せずExecuteメソッドを実行しようとして出たエラーです』とあり、実行するSQLが空になっていると...

いろんなサイトを回ったのですが知識不足で解決出来ず２時間無駄にしてしまったので、
ご存知の方いればご教授していただきたいです。

よろしくお願いします。

Private Sub BTN_DEL_Click()

    Dim dbCon As ADODB.Connection                                   ' ADODB.Connection
    Dim dbCmd As ADODB.Command                                   ' ADODB.Command
    Dim strBusyoCd As String                                                ' 選択部署コード
    Dim strYakuCd As String                                                 ' 選択役職コード
    Dim strSQL As String                                                       ' SQL文編集WORK
    Dim blnUpdate As Boolean
    
    Dim msg As String                                                          'MsgBox
    Dim ret As String                                                             '戻り値
    Dim sql As String                                                             'sql
    Dim Command As String

        '確認する
        msg = "このデータを削除しますか？"
        ret = MsgBox(msg, vbQuestion + vbOKCancel, "g_cnsTitle")
            If ret = vbOK Then
                    ' データベースへの接続
                    If Not FP_GetSqlConnection(dbCon) Then
                        Me.Hide
                        Exit Sub
                    End If
        
            'SqlConnection.CreateCommand Method
            dbCon.CreateCommand
            dbCmd.CommandText = strSQL
        
                ' 登録するSQL文を作る
                sql = "DELETE FROM MST_HAIZOKU WHERE"
        
                    ' 実行する
                    dbCon.Execute (sql)
                
                MsgBox "削除しました。", vbInformation + vbOKOnly, ""
                
                Call GP_StartSCUPD
            
            Else
                MsgBox "処理を中断します"
            
            End If

    ' データベース接続を閉じる
    dbCon.Close
    Set dbCon = Nothing
    g_blnReturnValue = True
    Me.Hide
    
End Sub

        'SqlConnection.CreateCommand Method
        dbCon.CreateCommand
        dbCmd.CommandText = strSQL

メソッドでコマンドのインスタンスっていうのはどうすればよいのでしょうか？
JavaならNewをするような認識なのですが、、

Answer 1

メソッドでコマンドのインスタンスっていうのはどうすればよいのでしょうか？
JavaならNewをするような認識なのですが、、

VBAも New です。下記のような感じ。

Set dbCmd = New ADODB.Command

ただし、今回のコードでは、dbCmd は使用してないので、不要です。

               sql = "DELETE FROM MST_HAIZOKU WHERE"

                    ' 実行する
                    dbCon.Execute (sql)

でエラーが出るのは、"DELETE FROM MST_HAIZOKU WHERE" のSQLが間違っているからです。
WHERE の後に、抽出条件式が必要です。

MST_HAIZOKUテーブルの主キーフィールドに対して、エクセルシートのカレント行のキー値で抽出する式が必要ですね。

前の質問の時にも言いましたが、参照しているサイトの内容と質問者さんのスキルがあっていないと思います。
参照しているサイトはVBA、ADO、SQLの基本は習得しているレベルの人を対象とするサイトです。

VBAの入門書（サイト）、SQLの入門書（サイト）でとりあえすで基本を理解してからでないと、
エラーがでるたびにここで質問していても進展しないし、スキルアップにもならないと思います。

Comments

[rebell]

次の案件で使うのと、簡単だからすぐ終わるよねと、言われて焦ってわからないまま質問をして申し訳ないです。。
昨日スッキリのSQL本を購入したのでVBAと平行して基礎を固めようかと思います。

先回の質問に続きありがとうございました。

Answer 2

(dbConに接続情報が設定されているとして)SQL文が格納されている変数の指定が誤っています。

          sql= "DELETE FROM MST_HAIZOKU WHERE"
          ' 実行する
          dbCon.Execute (sql)

Execute メソッド (ADO Connection)

「 Command オブジェクトの CommandText が設定されていません。」

dbCmd使用していないみたいなんですけど、本当にこのコード上のエラーですか？

Comments

[rebell]

ありがとうございます。
実行してデバッグをすると『dbCon.Execute (sql)』の部分がハイライトされるので、おそらくは・・

Answer 3

dbConはコネクションなので、ここからCommandを生成し、さらにCommand.CommandTextに対してSQL文を設定してやる必要があります。

確認できてないですがdbCon.CreateCommandみたいなメソッドでコマンドのインスタンスを生成し、その後そのプロパティにdbCmd.CommandText = strSQLみたいな感じでSQL文設定できませんか？

Comments

[rebell]

ありがとうございます。
設定してみます！