帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-1-3 19:05 | 只看該作者

[發問] 引用ado cmd的execute方法失敗

各位大大好：
小弟想引用adodb command語法來執行
更新資料庫欄位資料，但出現語法錯誤如下：
執行階段錯誤-2147217904 (80040e10)
無值提供給一或多個必要參數
語法如下：

Sub mm()
Dim cmdCommand As New ADODB.Command
Dim recSet As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim code, dateSold As String
Dim conStr As String, mFile As String, strSQLCommand As String
mFile = "D:\TEMP\EX6.mdb"
conStr = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & mFile
cn.ConnectionString = conStr
cn.Open
cmdCommand.ActiveConnection = cn
code = 5
dateSold = "好喝沙士"
strSQLCommand = "UPDATE tb產品2A SET 單位數量='1200' WHERE ((產品編號)=" & code & ") AND ((產品名稱)=" & dateSold & ") "
cmdCommand.CommandText = strSQLCommand
cmdCommand.CommandType = adCmdText
Set recSet = cmdCommand.Execute
End Sub

複製代碼

test-b1.rar (6.39 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2016-1-4 09:31 | 只看該作者

回復 1# dechiuan999

dateSold = "'好喝沙士'"

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

3^#

發表於 2016-1-4 20:20 | 只看該作者

回復 2# GBKEE

版主大大您好：

謝謝您。
小弟依版主大大提供的方式，
問題已克服。小弟已往前邁出
一大步。但心裡還是存有疑惑
，望版主大大能再開釋。
疑問一：
code=5為何不須加單引號
而dateSold = "'好喝沙士'"
須加單引號不知有何差異。
疑問二：
小弟原是引用ado recordset
來更新資料庫欄位資料，但遇
到mysql好像不是能完全支援。
因此，想嘗試改用此方法。
但小弟的疑惑是如依此就無法
使用sql語法縮小要更新範圍
及執行recordset並直接完成更新。
而目前excel資料表每一項次是
逐項引用execute來執行。
這樣是否很不適當而有另一方
法來

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2016-1-5 09:56 | 只看該作者

回復 3# dechiuan999
我沒有使用過資料庫軟體
資料庫的使用大同小異.附檔是網路上下載的可參考一下.

Ex.rar (210.96 KB)

Option Explicit
Sub Ex()
'引用 Microsoft DAO 3.0 Object Libiary
Dim myData As String, myTable As String, SQL As String
Dim myDb As DAO.DataBase
Dim myRs As DAO.Recordset
Dim i As Integer
Dim code, dateSold
ActiveSheet.Cells.Clear '清除工作表的全部資料
myData = "D:\TEMP\EX6.mdb"
Set myDb = OpenDatabase(myData)
code = 5 '資料表的欄位 FieldType 是dbSingle' 6
dateSold = "'好喝沙士'" '資料表的欄位 FieldType 是 dbText '10
SQL = "UPDATE tb產品2A SET 單位數量=88 WHERE ((產品編號)=" & code & ") AND ((產品名稱)=" & dateSold & ") "
myDb.Execute (SQL) '
SQL = "select * from tb產品2A WHERE 產品編號<=" & code
Set myRs = myDb.OpenRecordset(SQL)
If myRs.RecordCount > 0 Then
For i = 1 To myRs.Fields.Count '複製欄位名
Cells(1, i) = myRs.Fields(i - 1).Name
Next i
'設置欄位名字體為加粗並居中對齊
With Range(Cells(1, 1), Cells(1, myRs.Fields.Count))
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With
Range("A2").CopyFromRecordset myRs '複製全部資料
End If
'關閉記錄集及資料庫連接 , 並釋放變數
myRs.Close
myDb.Close
Set myRs = Nothing
Set myDb = Nothing
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

5^#

發表於 2016-1-5 14:37 | 只看該作者

回復 4# GBKEE

版主大大您好：

讓版主大大勞心了。
小弟已先下載收藏，
也會好好研究它。

就感恩！

TOP