| |
|
|
| | Подскажите функцию проверки
"наличие таблицы в другой базе"
только чтоб без DAO и без ADO | |
| |
| |
| |
|
|
| | Что значит "без DAO и без ADO"? Без подключенных библиотек?
Тогда так:
Dim db As Object, s As String
On Error Resume Next
Set db = OpenDatabase(Путь)
s = db.TableDefs(ИмяТаблицы).Name
If Err.Number = 0 Then Msgbox "Есть!"
Если и без VBA, то попробуйте присоединить таблицу макрокомандой TransferDatabase. | |
| |
| |
| |
|
|
| | Да, без подключения и без использования.
Может запросом.? | |
| |
| |
| |
|
|
| | Но почему-то OpenDatabase Acces не хочет брать.
Синим цветом её "чернит"? | |
| |
| |
| |
|
|
| | Мол если присоединение даёт ошибку-значит таблицы там нет.? | |
| |
| |
| |
|
|
| | попробовать прилинковать - ошибка будет ответом
можно зацепиться запросом - ошибка будет ответом | |
| |
| |
| |
|
|
| | Вот из Help
DoCmd.TransferDatabase acLink, "ODBC Database", _
"ODBC;DSN=DataSource1;UID=User2;PWD=www;LANGUAGE=us_english;" _
& "DATABASE=pubs", acTable, strTableName, "Новая"
ноя в ней заблудился.
DSN=DataSource1;UID=User2;PWD=www;LANGUAGE=us_english-Это зачем
"DATABASE=pubs",-это что?
написал вот так
DoCmd.TransferDatabase acImport, "Microsoft Access", PutBazi, acTable, strTableName, "Новая"
Скопировалась таблица
Значит она тама есть  | |
| |
| |
| |
|
|
| | Получается вот так...
Function Nalichie_TBL_v_Drugoy_Baze(PutBazi, strTableName) As Boolean
Nalichie_TBL_v_Drugoy_Baze = False
On Error Resume Next
DoCmd.TransferDatabase acImport, "Microsoft Access", PutBazi, acTable, strTableName, "Íîâàÿ"
If Err.Number = 0 Then Nalichie_TBL_v_Drugoy_Baze = True '"Åñòü!"
Err.Number = 0
End Function
|
| |
| |
| |
|
|
| |
|
|
| | попробуй удалить :)))
если ошибка - значит такой таблицы нет
если ошибки нет - значит такой таблицы уже нет | |
| |
| |
|
|
| |
|
|
| | но тода её надо удалять в текущей базе....  | |
| |
| |
|
|
| |
|
|
| | автогеном проще и надежнее
что до проверки наличия таблицы в базе - воспользуйся поиском по форуму | |
| |
| |
|
|
| |
|
|
| | Я пользовался поиском - неудачно.
Два перелома три ссадины... | |
| |
| |
| |
|
|
| | можно вопрос?
ПОчему без ADO или DAO? (как любят говорить на SQL.RU, "религия не позволяет?")  | |
| |
| |
| |
|
|
| | Позволят религия.
Просто в Mde ссылка если отвалится, то автоматом не восстановишь.(видимо)
А я все функции - которые используются в базе запихиваю в файлик moduli.Mde | |
| |
| |
| |
|
|
| | А я все функции - которые используются в базе запихиваю в файлик moduli.Mde
Может это и не в тему.
А как ими (функциями) потом пользоваться или оттудова выдергивать? (Я еще не опытный, может ссылка есть?) | |
| |
| |
| |
|
|
| | Как нибудь раскажу.
Это целая история....
Сергей Гаврилов надоумил | |
| |
| |
