Access VBAでSQLを実行する

AccessのVBAで、好きなSQLを実行する方法。

でもCREATE TABLEみたいにテーブルを追加したり削除したりはできないっぽい。
主にSELECTとUPDATE、INSERTみたいな運用系(?)SQL専用だな。

view plainprint?

1. '#### 支度 ####  
2. Dim con As ADODB.Connection  
3. Dim rs As ADODB.Recordset  
4.   
5. '#### DBを開く ####  
6. Set con = Application.CurrentProject.Connection  
7.   
8. '#### SQL実行 ####  
9. Set rs = con.Execute("SELECT * FROM テーブル WHERE ID = ""DXERW""")  
10.   
11. '#### 後片付け ####  
12. con.Close  
13. Set con = Nothing  

'#### 支度 ####
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

'#### DBを開く ####
Set con = Application.CurrentProject.Connection

'#### SQL実行 ####
Set rs = con.Execute("SELECT * FROM テーブル WHERE ID = ""DXERW""")

'#### 後片付け ####
con.Close
Set con = Nothing

こんな感じ。