HOME > 即効テクニック > AccessVBA > クエリ・SQL > クエリをテーブルに変換3(ADO)

即効テクニック

クエリ・SQL

クエリをテーブルに変換3(ADO)

(Access 97)
●概要●
DAOと同様にADOによって同じ処理をさせてみます。ADOでアクションクエリを実行させる手段として、ここではConnectionオブジェクトのExecuteメソッドを使用しています。
●サンプルコード●
Public Sub FileExport3()
 
 Dim cn As New ADODB.Connection
 Dim strSQL As String
 
 Set cn = New ADODB.Connection
 cn.ConnectionString = _
    "Provider=microsoft.jet.oledb.4.0;" & _
    "Data Source=d:\NorthWind.mdb"
  cn.Open
 
 strSQL = "SELECT * INTO カタログT IN 'D:\Northwind.mdb' FROM カタログ"
 cn.Execute strSQL, , adCmdText
 cn.Close
 
 Set cn = Nothing
End Sub
●動作確認●
テーブルに「カタログT」が作成されていることを確認してください。

●補足●
Access97で実行する場合はあらかじめ参照設定で「Microsoft ActiveX Data Objects2.1 Library」を選択しておいてください。