| |
|
|
| | Подскажите как из одной базы Access запустить функцию в другой базе Acess и получить результат? | |
| |
| |
| |
|
|
| | Подключить второй проект в качестве библиотеки в первом проекте (Имена проектов должны отличаться).
Вызывать из первого проекта функцию второго проекта, с указанием библиотеки (имени второго проекта). | |
| |
| |
| |
|
|
| | Можно по подробнее, с примерами?;) | |
| |
| |
| |
|
|
| | http://hiprog.com/forum/read.php?id_forum=1&id_theme=1635
http://hiprog.com/forum/read.php?id_forum=1&id_theme=1511 | |
| |
| |
| |
 31 Кб. |
|
| | Вот пример:
В зипе в папке два файла:
1. Work.mdb - это файл, куда мы будем подключать библиотеку, и из которого будем вызывать функции.
2. library.luk - это наша библиотека (файл MDB, у которого я просто поменял расширение на LUK)
Загружаем Work.mdb, автоматом откроется форма "frm1".
На событии Open формы вызывается функция подключения библиотеки.
Левая кнопка вызывает функцию из библиотеки, возвращающую имя файла библиотеки.
Правая кнопка вызывает функцию из библиотеки, возвращающую путь и имя файла библиотеки.
На событии Close формы вызывается функция отключения библиотеки.
Проверено на А2003 и А2007, на других не имею возможности.
При частой работе с библиотекой лучше иметь постоянную ссылку на библиотеку.
Библиотека должна быть откомпилирована,
и менять расширение файла на LUK совсем необязательно.  | |
| |
| |
| |
|
|
| | Lukas, Это получает действительно билиотека;)
И функция в этой библиотеке у меня не видит "своих" таблиц. Наверно я плохо пояснил. Я хотел сделать что бы при вызове функции из одной базы в другой, функция на "другой базе" произвела операцию со "своими" таблицами и вернула результат в базу из которой ее вызывали. | |
| |
| |
| |
|
|
| | Надо указать с какой DB работать. (CurrentDb or CodeDb)
Пример: получить значение ItemValue по значению IDItem таблицы t1 библиотеки.
Функция в библиотечной БД:
Public Function GetValueByID(ID As Long)
With CodeDb.OpenRecordset("SELECT ItemValue FROM t1 WHERE IDItem=" & ID, dbOpenSnapshot)
If Not .EOF Then GetValueByID = .Fields(0)
.Close
End With
End Function
|
| |
| |
| |
| |
|
|
| | Все получилось! Всем ОГРОМНОЕ спасибо!!! | |
| |
| |
