引用ado cmd的execute方法失敗 - Excel程式區

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

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

1^# 跳轉到 »

發表於 2016-1-4 09:31 | 顯示全部帖子

回復 1# dechiuan999

複製代碼

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

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

2^#

發表於 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元的贊助,人人有能力.

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。