ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / FileSearch
8 сообщений из 8, страница 1 из 1
FileSearch
    #32405712
NataKolenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NataKolenko
Участник
Мне нужно програмно проверить есть ли указанная БД Access в указанной папке, там такая база есть и всего одна, но данный код говорит что две, почему???
Set rst = dbs.OpenRecordset("SELECT putBD, nameBD FROM BD WHERE (((codBD)=2));")
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = rst!putBD ' это папка где ищем
.SearchSubFolders = False
.FileName = rst!nameBD ' это имя БД
If .Execute() = 1 Then
...
Рейтинг: 0 / 0
11.02.2004, 14:34
| Ответить | Цитировать | Написать  
FileSearch
    #32405729
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А что сидит в rst!nameBD?
...
Рейтинг: 0 / 0
11.02.2004, 14:40
| Ответить | Цитировать | Написать  
FileSearch
    #32405807
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Проще использовать Dir()
FileSearch хорош, когда надо много файлов
...
Рейтинг: 0 / 0
11.02.2004, 15:10
| Ответить | Цитировать | Написать  
FileSearch
    #32406756
NataKolenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NataKolenko
Участник
В nameBD сидит - имябазы.mdb - т.е. файл который нужно найти
...
Рейтинг: 0 / 0
12.02.2004, 11:03
| Ответить | Цитировать | Написать  
FileSearch
    #32406762
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Что-то я не вижу, где данный код говорит что две?

А так?

Код: plaintext
1.
Set rst = dbs.OpenRecordset( "SELECT putBD, nameBD FROM BD WHERE (((codBD)=2 ));") 
If Dir(rst!putBD & rst!nameBD)<>"" Then


или вариант для любителей Гетца
Код: plaintext
If Len(Dir(rst!putBD & rst!nameBD))> 0  Then
...
Рейтинг: 0 / 0
12.02.2004, 11:09
| Ответить | Цитировать | Написать  
FileSearch
    #32406993
NataKolenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NataKolenko
Участник
If .Execute() = 1 Then - в этой строчке перескакивает на Else, и если там записать
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
Он и выдаст что 2.
А Dir я не знаю, но сечас попробую. Кстати я слышала про Гетца в форуме, но не читала. Думаете, эту книгу нужно обязательно прочитать???
...
Рейтинг: 0 / 0
12.02.2004, 13:02
| Ответить | Цитировать | Написать  
FileSearch
    #32407090
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
имябазы.mdb - можно точнее? До точки 8 символов? Есть файлы с более длинными именами, которые начинаются на те же 8 символов?
...
Рейтинг: 0 / 0
12.02.2004, 13:42
| Ответить | Цитировать | Написать  
FileSearch
    #32407145
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
NataKolenkoIf .Execute() = 1 Then - в этой строчке перескакивает на Else
А в хелпе советуют
If .Execute()>0
Так что чему он там равен...

NataKolenkoДумаете, эту книгу нужно обязательно прочитать
Думаю, надо, но я не читал
...
Рейтинг: 0 / 0
12.02.2004, 14:04
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / FileSearch
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32407090&tid=1676689]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 151ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 238ms
total:  482ms
созд. / загр.: 482ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]