[發問] 請問控制access內的資料修改與刪除怎麼寫呢?

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-4-16 23:28 | 只看該作者

請問大大
基本上我已經可以用excel vba與access對話做新增與查詢，
可是如果要做修改與刪除怎麼寫呢?有可能辦到嗎?
假如
測試檔內ACCESS 資料表"送洗" 編號A00002 的衣號目前是"B00001"
假設我要改成"B00002"，VBA該怎麼寫呢

以下是我的測試檔

送洗.rar (188.85 KB)

論壇贊助勳章

2^#

發表於 2016-4-17 00:31 | 只看該作者

本帖最後由 algoji3ji3 於 2016-4-17 00:32 編輯

研究出來了....參考了這個網站...https://www.1keydata.com/tw/sql/sqlupdate.html
:L

Sub 修改()
rc = Range("A2")
Range("A6:D100").Select
Selection.ClearContents
Range("A2").Select
'1.連線代號
Dim myCon As ADODB.Connection '開資料庫
Dim mywq As ADODB.Recordset '開資料表
'2.建立Connection物件
Set myCon = New ADODB.Connection
'3.連結資料庫
'驅動程式Provider = Microsoft.ACE.OLEDB.12.0
'檔案位置Data Source=
myCon.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\送洗.accdb;"
'4.建立Recordset物件&連結資料表
Sql = " UPDATE 送洗 "
Sql = Sql & " SET 衣號 = 'B00004'"
Sql = Sql & " WHERE 編號 = '" & rc & "'"
Set mywq = myCon.Execute(Sql)
'mywq.Open Sql, myCon, adOpenDynamic, adLockOptimistic
'5.關閉連線
myCon.Close
'6.丟棄物件
Set mywq = Nothing
Set myCon = Nothing
Range("A2") = ""
End Sub

複製代碼

Sub 刪除()
rc = Range("A2")
Range("A6:D100").Select
Selection.ClearContents
Range("A2").Select
'1.連線代號
Dim myCon As ADODB.Connection '開資料庫
Dim mywq As ADODB.Recordset '開資料表
'2.建立Connection物件
Set myCon = New ADODB.Connection
'3.連結資料庫
'驅動程式Provider = Microsoft.ACE.OLEDB.12.0
'檔案位置Data Source=
myCon.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\送洗.accdb;"
'4.建立Recordset物件&連結資料表
Sql = " DELETE FROM 送洗 "
Sql = Sql & " WHERE 編號 = '" & rc & "'"
Set mywq = myCon.Execute(Sql)
'mywq.Open Sql, myCon, adOpenDynamic, adLockOptimistic
'5.關閉連線
myCon.Close
'6.丟棄物件
Set mywq = Nothing
Set myCon = Nothing
Range("A2") = ""
End Sub

複製代碼

靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。