Sử dụng VBA để xuất tất cả truy vấn MS Access SQL sang tệp văn bản

Question

Tôi phải ghi lại cơ sở dữ liệu MS Access với nhiều truy vấn macro, v.v. Tôi muốn sử dụng mã để trích xuất từng truy vấn SQL vào một tệp được đặt tên giống như truy vấn, ví dụ: nếu truy vấn được đặt tên là q_warehouse_issues thì tôi muốn trích xuất SQL thành tệp có tên q_warehouse_issues.sql

Tôi KHÔNG MUỐN XUẤT KHẨU BỘ LẠI KẾT QUẢ NHANH, CHỈ RA SQL!

Tôi biết tôi có thể làm điều này bằng tay trong Access, nhưng tôi mệt mỏi của tất cả các nhấp vào, làm saveas, vv

Answer 1

Điều này sẽ giúp bạn bắt đầu:

Dim db As DAO.Database 
    Dim qdf As DAO.QueryDef 

    Set db = CurrentDB() 
    For Each qdf In db.QueryDefs 
    Debug.Print qdf.SQL 
    Next qdf 
    Set qdf = Nothing 
    Set db = Nothing 

Bạn có thể sử dụng File System Đối tượng hoặc các tính năng I/O của tệp VBA có sẵn để viết SQL ra tệp. Tôi cho rằng bạn đã hỏi nhiều hơn về cách lấy SQL hơn là về cách viết tệp, nhưng nếu bạn cần, hãy nói như vậy trong một nhận xét và tôi sẽ chỉnh sửa bài đăng (hoặc ai đó sẽ đăng câu trả lời của riêng họ) hướng dẫn cho điều đó).

Answer 2

Giải pháp này bao gồm các lĩnh vực trong truy vấn

Public Sub ListQueries() 
    ' Author:      Date:    Contact: 
    ' André Bernardes    09/09/2010 08:45 bernardess@gmail.com  http://al-bernardes.sites.uol.com.br/ 
    ' Lista todas as queries da aplicação. 
    ' Listening: 

    Dim i As Integer 
    Dim j As Integer 
    Dim k As Integer 
    Dim l As Integer 

    On Error Resume Next 

    For i = 0 To CurrentDb.QueryDefs.Count - 1 
     Debug.Print "Query: " & CurrentDb.QueryDefs(i).Name 

     For j = 0 To CurrentDb.QueryDefs(i).Fields.Count - 1 
      Debug.Print "Field " & CurrentDb.QueryDefs(i).Fields(j).Name 
     Next 

     Debug.Print " SQL: " & CurrentDb.QueryDefs(i).SQL 
    Next 
End Sub 

Answer 3

1. Trong cửa sổ VB, nhấp Tools->References....
2. Trong cửa sổ tài liệu tham khảo thêm các phụ thuộc Microsoft Scripting Runtime bằng cách kiểm tra nó đi.

Sau đó, mã này sẽ xuất khẩu các truy vấn vào một tập tin thích hợp cho việc sử dụng grep trên:

Sub ExportQueries() 

    Dim fso As New FileSystemObject 

    Dim stream As TextStream 

    Set stream = fso.CreateTextFile("e:\temp\queries.txt") 

    Dim db As DAO.Database 
    Dim qdf As DAO.QueryDef 

    Set db = CurrentDb() 
    For Each qdf In db.QueryDefs 

    stream.writeline "Name: " & qdf.Name 
    stream.writeline qdf.SQL 
    stream.writeline "--------------------------" 
    Next qdf 
    Set qdf = Nothing 
    Set db = Nothing 

End Sub 

Answer 4

Hope this helps.

Public Function query_print() 
Dim db As Database 
Dim qr As QueryDef 

Set db = CurrentDb 

For Each qr In db.QueryDefs 
    TextOut (qr.Name) 
    TextOut (qr.SQL) 
    TextOut (String(100, "-")) 
Next 
End Function 

Public Sub TextOut(OutputString As String) 

    Dim fh As Long 

    fh = FreeFile 
    Open "c:\File.txt" For Append As fh 
    Print #fh, OutputString 
    Close fh 

End Sub