| |
|
|
| | Есть такая проблема: есть форма в ней список [Список] в списке отображаются файлы из определенной папки ... [Список] не прекреплен не к какой таблице ... надо чтоб по адресу файла при двойном нажатии на этот адрес в списке программа добавляла данные в [Таблица] и удаляла тот файл откуда она эти данные взяла (из файла на диске) | |
| |
| |
| |
|
|
| | "добавляла данные в [Таблица]"
данные - это содержимое файла? файлы какие? | |
| |
| |
| |
|
|
| | Таблица1.dbf (Имя, Фамилия, Отчество) => в таблица1 в access (имя, фамилия, отчество) | |
| |
| |
| |
|
|
| | help :
- по запросам на добавление INSERT INTO (особое внимание на оператор IN он позволяет закачивать данные из внешних таблиц)
- по функции Kill | |
| |
| |
| |
|
|
| | в VBA обсолютный чайник ... попробывал чё-то написать вот что вышло
Private Sub Кнопка0_Click(Cancel As Integer)
Dim SQL As String
Dim Docmd As String
Docmd.TransferDatabase acImport = "dBase 4.0", "c:\xxx\", acTable
DoCMS.RunSQL = "INSERT INTO Tbl VALUES ('Имя','Фамилия','Отчество')"
Docmd.DeleteObject acTable = "dBase 4.0", "c:\xxx\", acTable
End Sub | |
| |
| |
| |
|
|
| |
dim strFileName as string
dim strFolderName as string
strFolderName =.... 'здесь путь и имя папки с:\xxx
strFileName = .... 'здесь имя файла без DBF
currentdb.execute "INSERT INTO Tbl (Имя,Фамилия, Отчество )
SELECT Имя, Фамилия, Отчество
FROM " & strFileName & " IN '" & strFolderName & "'[dBase IV;];"
Kill strFolderName & strFileName & ".dbf" ' удаление файла
|
Запихните все это в цикл перебирающий все файлы | |
| |
| |
