Question

我在数据库中遗漏了一些查询。它在两天之前就丢失了，并选择了查询保留而没有代码只有select;在那里休息。它在我的数据库中遇到了几个选择查询。简单地说，当我在Access中打开sql接口时，会遗漏查询代码。

我重新启动了几次，但是代码丢失了，从我的角度来看它看起来真的很疯狂，但你没有经历过它吗？

Answer 1

是的，它发生在我身上。我认为这是办公室的错误。我注意到在尝试使用许多不同的嵌套查询时会发生这种情况。所以，遗憾的是，恢复丢失的查询的唯一方法是......来自备份。尝试简化嵌套查询的结构。

Answer 2

我使用找到的脚本备份了所有MS ACCESS查询，为我保存了很多次。

Dim db As Object
Dim qdf As Object

Dim ff As Long

Backup_File = gDBPATH() & "\Bin\Backup_of_All_DB_Queries-" & MonthName(Month(Now()), False) & "-" & Day(Now()) & "-" & Year(Now()) & ".txt"

Backup_File_Msg = "Backup all DB queries to: " & Backup_File & "  ?"

MyMsg = MsgBox(Backup_File_Msg, 260, "Query Backup")

If MyMsg = 6 Then

Set db = CurrentDb

ff = FreeFile()

Open Backup_File For Output As #ff

    For Each qdf In db.QueryDefs

        Print #ff, "Query: " & qdf.Name & vbCrLf

        Print #ff, "SQL: " & qdf.SQL

        Print #ff, "-----------------------------------------------" & vbCrLf

    Next qdf

Close #ff

Backup_File_Msg = "Completed backup of all DB queries to: " & Backup_File

MyMsg = MsgBox(Backup_File_Msg, vbOKOnly, "Query Backup")

End If

访问 - 选择查询中缺少查询代码

2 个答案: