VBAの学習をしております。
削除機能を追加するにあたコードを書いていたのですが、
「 Command オブジェクトの CommandText が設定されていません。」と実行時エラーが出てしまいました。
調べてみると『ADO.CommandオブジェクトにCommandTextプロパティを設定せずExecuteメソッドを実行しようとして出たエラーです』とあり、実行するSQLが空になっていると...
いろんなサイトを回ったのですが知識不足で解決出来ず2時間無駄にしてしまったので、
ご存知の方いればご教授していただきたいです。
よろしくお願いします。
VBA
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をするような認識なのですが、、
まだ回答がついていません
会員登録して回答してみよう