2008年10月18日土曜日

Access VBAでSQLを実行する

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

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

こんな感じ。