Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26898 / 76732

←次へ　｜　前へ→


	【55160】Re:エクセルからAccessのアクションクエリを実行する方法

Yuki - 08/4/17(木) 15:08 -


	引用なし

	パスワード

▼phoo さん：

>実行させたいのは「テーブル作成クエリ」です。
>
>また、既存テーブルのレコードをすべて一括で削除する方法も教えていただければ。

こんな感じです。
DAO の参照設定をして下さいね。

Sub TABLE_CREATE()
　　Dim apAcc　 As Access.Application
　　Dim db　　　As DAO.Database
　　Dim qdf　　 As DAO.QueryDef
　　Dim strSQL　As String
　　Dim strNM　 As String
　　
　　strNM = "D:\hoge.mdb"
　　
　　Set apAcc = CreateObject("Access.Application")
　　apAcc.OpenCurrentDatabase strNM

　　Set db = apAcc.CurrentDb
　　
　　　　' テーブル作成クエリ　*********************
　　On Error Resume Next　　　　　　　　　　　　　　　　' 作成されるテーブルがある場合
　　strSQL = "DROP TABLE 作成するテーブル名"　　' 作成されるテーブルを削除
　　db.Execute strSQL
　　On Error GoTo 0
　　
　　Set qdf = db.QueryDefs("テーブル作成クエリ") ' テーブル作成クエリ実行
　　qdf.Execute
　　qdf.Close

　　' テーブル内容クリア　**********************
　　strSQL = "DELETE　FROM クリアするテーブル名"
　　db.Execute strSQL
　　db.Close
　　
　　apAcc.Quit
　　Set qdf = Nothing
　　Set db = Nothing
　　Set apAcc = Nothing
End Sub

2 hits

▼

【55133】エクセルからAccessのアクションクエリを実行する方法 phoo 08/4/16(水) 15:22