Board logo

標題: [發問] 請問控制access內的資料修改與刪除怎麼寫呢? [打印本頁]
作者: algoji3ji3    時間: 2016-4-16 23:28     標題: 請問控制access內的資料修改與刪除怎麼寫呢?

請問大大
基本上我已經可以用excel vba與access對話做新增與查詢，
可是如果要做修改與刪除怎麼寫呢?有可能辦到嗎?
假如
測試檔內ACCESS  資料表"送洗"   編號A00002   的  衣號目前是"B00001"
假設我要改成"B00002"，VBA該怎麼寫呢
[attach]23885[/attach]
以下是我的測試檔
[attach]23884[/attach]
作者: algoji3ji3    時間: 2016-4-17 00:31

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

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

  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)

  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") = ""

  31. End Sub
複製代碼
  1. Sub 刪除()

  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)

  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") = ""

  30. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)