|
ADP: Временный MDB для временных таблиц
При загрузке формы во временной папке создается временный MDB файл
в котором создается таблица - источник данных для формы
Option Compare Database
Option Explicit
Private Const str_tmpdb_path = "~tmp_data.mdb"
Private Tfile
Private Sub Form_Load()
Dim fso, tfolder
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
'Определяем путь к папке верменных файлов
Set fso = CreateObject("Scripting.FileSystemObject")
Set tfolder = fso.GetSpecialFolder(2)
Tfile = tfolder & str_tmpdb_path
If Dir(Tfile) <> "" Then Kill Tfile
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Tfile
tbl.Name = "tmp"
tbl.Columns.Append "ID", adInteger
tbl.Columns.Append "name", adVarWChar, 32
cat.Tables.Append tbl
Me.RecordSource = "SELECT [id], [name] FROM [tmp] IN '" & Tfile & "'"
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Me.RecordSource = ""
Kill Tfile
End Sub
Этот способ разработан для решения проблем с некоторым функционалом форм в ADP проектах
| |