Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / FileSearch / 8 сообщений из 8, страница 1 из 1
11.02.2004, 14:34
    #32405712
NataKolenko
NataKolenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileSearch
Мне нужно програмно проверить есть ли указанная БД 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:40
    #32405729
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileSearch
А что сидит в rst!nameBD?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2004, 15:10
    #32405807
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileSearch
Проще использовать Dir()
FileSearch хорош, когда надо много файлов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2004, 11:03
    #32406756
NataKolenko
NataKolenko
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileSearch
В nameBD сидит - имябазы.mdb - т.е. файл который нужно найти
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2004, 11:09
    #32406762
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FileSearch
Что-то я не вижу, где данный код говорит что две?

А так?

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

NataKolenkoДумаете, эту книгу нужно обязательно прочитать
Думаю, надо, но я не читал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / FileSearch / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 371ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1676689]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 236ms
total:  371ms
x
x
Закрыть


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