Этот пример покажет Вам как управлять бинарными файлами
из Access, метод нужен для обращения к файлам отличным от Access
|
|
'==============================================================
' Создаем бинарный файл
Private Sub butWrite_Click()
Dim intFile As Integer
Dim myRec As AppRecord
' Open Me.strPath For Binary Access Write As #intFile
' Open Me.strPath For Random As #intFile Len = Len(myRec)
intFile = FreeFile()
Open Me.strPath For Binary As #intFile
With myRec ' Создание записи
.ID = 125
.Name1 = "Мой телефон"
.Phone1 = 92345678
.Date1 = Date
End With
Put #intFile, 1, myRec ' Сохранение в файле
' Закрываем файл
Close #intFile
' Отображение кнопки
Form_Load
' Сообщение
MsgBox "Бинарный файл " & Me.strPath & " создан!", vbExclamation, "www.leadersoft.ru"
End Sub | |
