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

algoji3ji3

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

下載 (18.99 KB)

2016-4-16 23:27

以下是我的測試檔
送洗.rar (188.85 KB)

範例
下載次數: 7

2016-4-16 23:20

algoji3ji3

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

1. Sub 修改()
   
2. 
   
3.     rc = Range("A2")
   
4.     Range("A6:D100").Select
   
5.     Selection.ClearContents
   
6.     Range("A2").Select
   
7. '1.連線代號
   
8.     Dim myCon As ADODB.Connection '開資料庫
   
9.     Dim mywq As ADODB.Recordset '開資料表
   
10. '2.建立Connection物件
    
11.     Set myCon = New ADODB.Connection
    
12. '3.連結資料庫
    
13.     '驅動程式Provider = Microsoft.ACE.OLEDB.12.0
    
14.     '檔案位置Data Source=
    
15.     myCon.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\送洗.accdb;"
    
16. '4.建立Recordset物件&連結資料表
    
17.     Sql = " UPDATE 送洗 "
    
18.     Sql = Sql & " SET 衣號 = 'B00004'"
    
19.     Sql = Sql & " WHERE 編號 = '" & rc & "'"
    
20.     Set mywq = myCon.Execute(Sql)
    
21. 
    
22.     'mywq.Open Sql, myCon, adOpenDynamic, adLockOptimistic
    
23. '5.關閉連線
    
24.     myCon.Close
    
25. '6.丟棄物件
    
26.     Set mywq = Nothing
    
27.     Set myCon = Nothing
    
28.    
    
29.     Range("A2") = ""
    
30. 
    
31. End Sub

複製代碼

1. Sub 刪除()
   
2. 
   
3.     rc = Range("A2")
   
4.     Range("A6:D100").Select
   
5.     Selection.ClearContents
   
6.     Range("A2").Select
   
7. '1.連線代號
   
8.     Dim myCon As ADODB.Connection '開資料庫
   
9.     Dim mywq As ADODB.Recordset '開資料表
   
10. '2.建立Connection物件
    
11.     Set myCon = New ADODB.Connection
    
12. '3.連結資料庫
    
13.     '驅動程式Provider = Microsoft.ACE.OLEDB.12.0
    
14.     '檔案位置Data Source=
    
15.     myCon.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\送洗.accdb;"
    
16. '4.建立Recordset物件&連結資料表
    
17.     Sql = " DELETE FROM 送洗 "
    
18.     Sql = Sql & " WHERE 編號 = '" & rc & "'"
    
19.     Set mywq = myCon.Execute(Sql)
    
20. 
    
21.     'mywq.Open Sql, myCon, adOpenDynamic, adLockOptimistic
    
22. '5.關閉連線
    
23.     myCon.Close
    
24. '6.丟棄物件
    
25.     Set mywq = Nothing
    
26.     Set myCon = Nothing
    
27.    
    
28.     Range("A2") = ""
    
29. 
    
30. End Sub

複製代碼