Динамическое создание запросов в MS Access как в MS SQL

@GreyW · Регистрация: 21.06.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток!

Пишу программу на Delphi. Обращение к разным базам. С MS SQL все получается, а с MS Access не очень.
Вот один из насущных вопросов. Подскажите пожалуйста кто знает:
Как в MS Access динамически создавать и удалять запросы как в MS SQL?

SQL

CREATE VIEW MyView AS
SELECT MyTable1.Field1,
       MyTable2.Fld1,
       MyTable2.Fld2
FROM   dbo.MyTable1 INNER JOIN
       dbo.MyTable2 ON
       MyTable1.Field1 = MyTable2.Fld1
WHERE  MyTable2.Fld3 = 'X'

SQL

USE MyDB IF EXISTS
(SELECT TABLE_NAME 
 FROM INFORMATION_SCHEMA.VIEWS
 WHERE TABLE_NAME = 'MyView')
DROP VIEW MyView

@ltv_1953 · 06.07.2015, 16:37

Для того,чтобы использовать CREATE VIEW, DROP VIEW ... нужно в параметрах базы Аксесса указать - синтаксис для SQL сервера (ANSI 92).

@uznik93 · 07.07.2015, 09:45

Visual Basic

1 2	CurrentDb.QueryDefs("MyView").sql = "SELECT MyTable1.Field1, MyTable2.Fld1, MyTable2.Fld2 " & _ "FROM MyTable1 INNER JOIN MyTable2 ON MyTable1.Field1 = MyTable2.Fld1 WHERE MyTable2.Fld3 = 'X'"

Так то-же можно. В Акцессе.

@GreyW · 07.07.2015, 13:21 **[ТС]**

Сообщение от uznik93

Так то-же можно. В Акцессе.

Прошу прощения, но это не подойдет. Т.к. программа на Delphi и в файл я физически не могу добавить код VBA.

Сообщение от ltv_1953

Для того,чтобы использовать CREATE VIEW, DROP VIEW ... нужно в параметрах базы Аксесса указать - синтаксис для SQL сервера (ANSI 92).

Спасибо. С CREATE VIEW и DROP VIEW вроде разобрался.
Теперь не получается проверить существование VIEW.
Пробовал

SQL

1 2	USE DbSET.mdb IF EXISTS (SELECT TABLE_NAME FROM INFORMATION_SCHEMA.VIEWS WHERE TABLE_NAME = ''qIzmEnerg'')

Что то не получается.

Добавлено через 7 минут
Подскажите как SQL запросом проверить условие, например:
ЕСЛИ ЕСТЬ ЗАПРОС 'qIzmEnerg' ТО УДАЛИТЬ ЗАПРОС 'qIzmEnerg'
или
ЕСЛИ ЕСТЬ ЗАПРОС 'qIzmEnerg' ТО УДАЛИТЬ ЗАПРОС 'qIzmEnerg' ИНАЧЕ СОЗДАТЬ ЗАПРОС 'qIzmEnerg'
Заранее спасибо.

@ltv_1953 · 07.07.2015, 13:34

Проверить, есть ли запрос, можно в таблице MSysObjects (выборка по полям Name и Type=5). А вот IF и прочего в SQL Аксесса не видел. Перенесите логику в Дельфи.

@GreyW · 08.07.2015, 16:29 **[ТС]**

Всем спасибо!
Вот функция, если кому надо:

Delphi

function ExistView(strVN: string; MyConnection: TADOConnection): Boolean;
var
  slst: TStringList;
begin
  slst := TStringList.Create;
  try
    MyConnection.GetTableNames(slst);
    if slst.IndexOf(strVN) > -1 then
      ExistView := True
    else
      ExistView := False;
  finally
    slst.Free;
  end;
end;

@ltv_1953 17486 / 7248 / 1651 Регистрация: 21.06.2012 Сообщений: 13,864
	06.07.2015, 16:37	2
	Сообщение было отмечено GreyW как решение Решение Для того,чтобы использовать CREATE VIEW, DROP VIEW ... нужно в параметрах базы Аксесса указать - синтаксис для SQL сервера (ANSI 92). 1

@ltv_1953 17486 / 7248 / 1651 Регистрация: 21.06.2012 Сообщений: 13,864
	07.07.2015, 13:34	5
	Проверить, есть ли запрос, можно в таблице MSysObjects (выборка по полям Name и Type=5). А вот IF и прочего в SQL Аксесса не видел. Перенесите логику в Дельфи. 1

	08.07.2015, 16:29

Динамическое создание запросов в MS Access как в MS SQL

Решение