Запрос в Access через VBA
Помогите с запросом в Акцесс.
В каталоге есть куча файлов, в которых есть некая текстовая информация, которая должна грузится в базу. В каталог каждый день подгружается новый файл с новой информацией.
Есть задача по нажатию кнопки в форме грузить новый файл в базу. Есть таблица имен файлов, уже загруженных в БД.
Собственно, задача сводится к следующему - проверить, есть ли в таблице имя нового файла, и если его нет, то загрузить файл в БД.
У меня не получается совладать с синтаксисом Акцесса - нужен код, который проверит запросом имя файла в таблице (можно через count - если 0, то грузим, если 1, то не грузим).
Цитата: nosferatu
Всем привет.
Помогите с запросом в Акцесс.
В каталоге есть куча файлов, в которых есть некая текстовая информация, которая должна грузится в базу. В каталог каждый день подгружается новый файл с новой информацией.
Есть задача по нажатию кнопки в форме грузить новый файл в базу. Есть таблица имен файлов, уже загруженных в БД.
Собственно, задача сводится к следующему - проверить, есть ли в таблице имя нового файла, и если его нет, то загрузить файл в БД.
У меня не получается совладать с синтаксисом Акцесса - нужен код, который проверит запросом имя файла в таблице (можно через count - если 0, то грузим, если 1, то не грузим).
Помогите с запросом в Акцесс.
В каталоге есть куча файлов, в которых есть некая текстовая информация, которая должна грузится в базу. В каталог каждый день подгружается новый файл с новой информацией.
Есть задача по нажатию кнопки в форме грузить новый файл в базу. Есть таблица имен файлов, уже загруженных в БД.
Собственно, задача сводится к следующему - проверить, есть ли в таблице имя нового файла, и если его нет, то загрузить файл в БД.
У меня не получается совладать с синтаксисом Акцесса - нужен код, который проверит запросом имя файла в таблице (можно через count - если 0, то грузим, если 1, то не грузим).
Код:
SELECT COUNT(*) FROM TableName WHERE FileName = 'file_name'
Запрос у меня есть. Самое главное встроить его в тело VBA в Access
Цитата: nosferatu
Спасибо, родной. :-)
Запрос у меня есть. Самое главное встроить его в тело VBA в Access
Запрос у меня есть. Самое главное встроить его в тело VBA в Access
тады не в ту тему пишешь
Разделов по Access нету. Поэтому и пишу сюда.
Цитата: nosferatu
У меня не получается совладать с синтаксисом Акцесса - нужен код, который проверит запросом имя файла в таблице (можно через count - если 0, то грузим, если 1, то не грузим).
Код:
Sub Procedure()
Dim db As Database
Dim rs As Recordset
Dim i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("Твой запрос")
If rs.Fields(0).Value = 0 Then
'грузим
Else
'не грузим
End If
End Sub
Dim db As Database
Dim rs As Recordset
Dim i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("Твой запрос")
If rs.Fields(0).Value = 0 Then
'грузим
Else
'не грузим
End If
End Sub