vba - テキストへのアクセスでSQLクエリをエクスポートする

Question

現在、アクセスで VBA を使用してパススルー クエリからテキストにデータをエクスポートしており、VBA に追加したいと考えています。データをエクスポートしたら、実際のSQLクエリを別のテキストにエクスポートしたいと思います。これを追加する方法を知っている人はいますか？

Answer 1

FileSystemObjectを使用できます。以下の例では遅延バインディングを使用していますが、Windows Script Hostへの参照を設定し、コメント付きの種類を使用できます。

Dim fs As Object ''FileSystemObject
Dim tsOut As Object ''TextStream

sFileOut = "z:\docs\FileOut.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set tsOut = fs.OpenTextFile(sFileOut, 8) ''ForAppending
''Or
'' Set tsOut = fs.CreateTextFile(sFileOut, True) ''Overwrite

sSQL = CurrentDB.QueryDefs(qry).SQL

tsOut.WriteLine sSQL

tsOut.Close

Answer 2

テキスト ファイルへのエクスポート文字列がわかっている場合は、クエリの SQL テキストを次の場所から取得できます。

Dim strSQL as string
strSQL = CurrentDb.QueryDefs("Your query name here").SQL