ник: ddi
Люди добрые зарание скажу не силён в запросах...
У меня вот такая идя если кто-то знает где есть такой пример потскажитье
хачю зделать програму катроая запускалас где она бы и небыла (с программый другие бд котроые соединаюца линком ) как понял вся инфа находица в таблице MSysObjects а чтобы достать их оттуда и нечево лишнево создал запрос
SELECT MSysObjects.Id, MSysObjects.Name, MSysObjects.Database
FROM MSysObjects
WHERE (((MSysObjects.Type)=6) AND ((Left([Name],4))<>"MSys" And (Left([Name],4))<>"USys"));
|
копировал два поля из нево Database и Name и создал таблицу (таблица1)и поместил туда даные патом удалил сылку путьи из Database до корнивой папки (наприме путь програмы d:\myprog\[здес и лежит программа] ну и в этой папке есть и другие папки оставил толко их пут палочилось temp\ : db\ и т. д.)
создал запрос для таблицы1
SELECT таблица1.name, getAppPath() & [Database] AS Database
FROM таблица1;
|
функиция
Public Function getAppPath() As String
getAppPath = Left(CurrentDb.name, Len(CurrentDb.name) - Len(dir(CurrentDb.name)))
End Function
|
всё работает создал ещё один запрос на обнавление чтобы обновить MSysObjects.Database
но он выдаёт ошибку
Record(s) cannot be edited; no update permission on MSysObjects
не ругайти что так много запросов я потом их сокращю
и если кто может перевизти всё это в вба чтобы програмно всё было