即効テクニック |
●概要● 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」を選択しておいてください。