Używanie języka VBA do eksportowania wszystkich zapytań SQL MS Access do plików tekstowych

Question

Muszę udokumentować bazę danych MS Access za pomocą wielu wielu zapytań makr itp. Chciałbym użyć kodu do wyodrębnienia każdego zapytania SQL do pliku o nazwie takiej samej jak kwerenda, np. jeśli zapytanie ma nazwę q_warehouse_issues, a następnie chcę wyodrębnić SQL do pliku o nazwie q_warehouse_issues.sql

NIE CHCĘ WYWRÓCIĆ ZESTAW WYNIKÓW QUERY, TYLKO W SQL!

wiem, że mogę to zrobić ręcznie w programie Access, ale jestem zmęczony wszystkimi kliknięcie, robi saveas itp

Answer 1

To powinno Ci zacząć:

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 

Można użyć File System Obiekt lub wbudowane funkcje We/Wy pliku VBA do zapisania SQL do pliku. Zakładam, że pytasz więcej o to, jak uzyskać SQL, niż o to, jak napisać plik, ale jeśli potrzebujesz tego, powiedz to w komentarzu, a ja zmienię wpis (lub ktoś napisze własną odpowiedź instrukcje dla tego).

Answer 2

Rozwiązanie to pola w zapytaniu

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. w oknie VB, kliknij Tools->References....
2. W oknie Odniesienia dodać zależność Microsoft Scripting Runtime poprzez sprawdzenie go.

Następnie kod ten będzie eksportować kwerendy do pliku odpowiedniego korzystania grep na:

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

nadzieję, że to pomaga.

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