[vdstud]

В программе используется ADO и БД Access. Запросы SQL необходимо хранить вне тела программы, чтобы была возможность их изменения без перекомпиляции. Хранить запросы в отдельных файлах - неудобно (при переносе программы на другой компьютер). MS Access дает возможность хранить запросы непосредственно в файле БД. Собственно вопрос: как использовать данную возможность из Delphi. Заранее спасибо.

[Страдалецъ]

Да так-же как и таблицы, через запрос. Только вместо "Create table ..."используется "Create view ..."

[vdstud]

Я, наверное, неправильно выразился. Мне надо файле Access хранить текст запроса. А в компоненту ADOQuery - подгружать его динамически. Из отдельного файла - это функция ADOQuery.SQL.LoadFromFile(), а как из файла Access загрузить текст запроса с определенным именем?

[Страдалецъ]

Если я правильно понял, то вам нужен исходный текст запроса для вьюшки сохраненной в базе. Не делал такого, но предположу что надо читать Description из схемы базы данных для вашего запроса.

[Ildar-tsr]

Первое поле в таблице имя запроса, второе сам запрос (хотя я предпочитаю обращаться не по имени, а по индексу).
Тебе понадобиться такая функция:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

function Tdm.Selects(s: string): string; var QSel: TADOQuery; begin   QSel:= TADOQuery.Create(nil);   QSel.Connection:= ADOConnection1;   QSel.SQL.Text:= 'select {поле_где_хранится_текст_запроса} from {имя_таблицы} where {поле_имени_запроса} = '+QuotedStr('тут_имя_твоего_запроса');   QSel.Open;     Result:= qSel.FieldByName('{поле_где_хранится_текст_запроса}').AsString;     qSel.Close;   qSel.Free; end;

Вызов в программе непосредственно:

Код:

1 2 3

... ADOQuery1.SQL.Text:= Selects('TEST_SELECT'); //Вернет текст запроса с именем TEST_SELECT ...

Теперь ты можешь корректировать текст запроса "влет", без перекомпиляции.

[Страдалецъ]

Нет, ему не это нужно. В Акцесовской БД есть объекты: Таблицы, Запросы.
Для доступа через ADO без разницы в этом случае таблица это или запрос т.к. они располагаются в одном пространстве имен, и получить вы сможете только структуру этих объектов т.е. перечисление полей их составляющих. Но ему-то нужно не просто перечисление, а именно исходный текст запроса.
Хотя если он для хранения текста запросов использует свою табличку то вероятно вы правы.

[Ildar-tsr]

Сообщение от Страдалецъ

Нет, ему не это нужно. В Акцесовской БД есть объекты: Таблицы, Запросы.
Для доступа через ADO без разницы в этом случае таблица это или запрос т.к. они располагаются в одном пространстве имен, и получить вы сможете только структуру этих объектов т.е. перечисление полей их составляющих. Но ему-то нужно не просто перечисление, а именно исходный текст запроса.
Хотя если он для хранения текста запросов использует свою табличку то вероятно вы правы.

Мне почему-то показалось, что ТС именно это имеет в виду. Как бы то ни было, данный мною метод весьма полезен, т.к. сам использую его в своем проекте. А если хранить запросы в квериках, то каждое изменение влечет обязательное обновление программы у всех пользователей, а эту операцию нежелательно выполнять крайне часто.

[vdstud]

Сообщение от Страдалецъ

Нет, ему не это нужно. В Акцесовской БД есть объекты: Таблицы, Запросы.

Да, Вы меня правильно поняли.

Сообщение от Страдалецъ

...и получить вы сможете только структуру этих объектов т.е. перечисление полей их составляющих.

А это неправда. Решение найдено, благодаря Вашей мысли:

Сообщение от Страдалецъ

Если я правильно понял, то вам нужен исходный текст запроса для вьюшки сохраненной в базе. Не делал такого, но предположу что надо читать Description из схемы базы данных для вашего запроса.

Спасибо!
Вот функция, может кому-то еще пригодится.

Код:

1 2 3 4 5 6 7 8 9 10

function TFmMain.GetSQLFromAcces(MyConnection:TADOConnection;SQLName:String):String; var NewADODataSet:TADODataSet; begin   NewADODataSet:=TADODataSet.Create(Application);   NewADODataSet.Connection:=MyConnection;   MyConnection.OpenSchema(siViews, EmptyParam, EmptyParam, NewADODataSet);   NewADODataSet.Locate('TABLE_NAME',SQLName,[]);   Result:=VarToStr(NewADODataSet.FieldValues['VIEW_DEFINITION']);   NewADODataSet.Free; end;

В параметр MyConnection передаем компонент класса TADOConnection, настроенный на соединение с БД Access, а в SQLName - имя этого запроса в файле MS Access.

Пример использования:
ADOQuery1.SQL.Text:=GetSQLFromAcces(ADOConnection1 ,'MyTableSQL');