Выполнение запросов с использованием DAO

Question

Я хочу выполнить список запросов к базе данных Access, используя DAO. Метод Database.Execute () кажется подходящим для этого с замечанием, что он может выполнять только «запросы действия», то есть запросы, которые не возвращают набор результатов ( ссылка MSDN ). Для запросов, которые возвращают записи, можно использовать «Database.OpenRecordset ()». Оба метода выдают исключения, если передан неправильный тип запроса.

Имея в списке как запросы действий, так и запросы выбора, как я могу заранее решить, какие записи будут возвращаться, а какие нет?

Answer 1

Вдохновленный ответом @ HansUp, я немного больше изучил структуру QueryDef, предоставляемую интерфейсом DAO. Структура имеет свойство «Тип», которое я могу использовать для различения разных типов запросов ( MSDN ). Я закончил со следующей реализацией:

function TAccessDatabase.SQLExec(AName, AQuery: String): Integer;
var
  I: Integer;
  QDef: QueryDef;
  QDefExists: Boolean;
begin
  Result := 0;

  // Lookup querydef in the database
  QDefExists := False;
  for I := 0 to DB.QueryDefs.Count - 1 do
  begin
    QDef := DB.QueryDefs[I];
    if QDef.Name = AName then
    begin
      QDefExists := True;
      break; //-->
    end;
  end;

  // Create query def if it doesn't exists
  if not QDefExists then
  begin
    QDef := DB.CreateQueryDef(AName, AQuery);
    // Refresh is required to get the correct QDef.Type_
    DB.QueryDefs.Refresh;
  end;

  // Execute the query only if it is not a SELECT
  if QDef.Type_ <> dbQSelect then
  begin
    db.Execute(AQuery, dbInconsistent);
    Result := DB.RecordsAffected;
  end;
end;

Спасибо всем за полезные ответы и замечания.

Answer 2

Обратите внимание, что метод выполнения ADO может использоваться независимо от того, возвращает ли запрос набор результатов.

Но вы действительно хотите выполнить все «запросы»? Что если они содержат SQL DDL? Предположим, вы создали PROCEDURE, используя этот код SQL DDL:

CREATE PROCEDURE qryDropMe AS DROP PROCEDURE qryDropMe;

;)

Answer 3

Access поддерживает скрытую системную таблицу MSysObjects, которая содержит поле (Flags), в котором хранится значение, указывающее тип запроса. Вы можете попробовать следующую функцию с каждым из имен запросов из вашего списка и использовать возвращаемое значение, чтобы определить, использовать ли Database.Execute () или Database.OpenRecordset ()

Функция требует разрешения на чтение для MSysObjects. Я слышал сообщения о том, что некоторым пользователям Access 2007 отказано в разрешении читать MSysObjects. Однако я не сталкивался с этой проблемой в Access 2007.

Я протестировал несколько типов запросов, чтобы определить значения флагов. Если один из ваших запросов относится к типу, который я не проверял, функция вернет значение Flags как нераспознанное. Вы можете изменить функцию для включения этого типа флагов.

Единственный DDL-запрос, который я тестировал, был DROP TABLE (Flags = 96).

Также имейте в виду, что не все запросы «SELECT ... FROM ...» являются запросами выбора для вашей цели (возвращая набор записей). Запрос, такой как «SELECT fields INTO newtable FROM oldtable;» не возвращает записи, и пользовательский интерфейс Access классифицирует его как запрос Make Table.

Public Function QueryType(ByVal pQueryName As String) As String
    Dim lngFlags As Long
    Dim strType As String
    Dim strCriteria As String

    strCriteria = "[Name] = """ & pQueryName & """ And [Type] = 5"
    lngFlags = DLookup("Flags", "MSysObjects", strCriteria)

    Select Case lngFlags
    Case 0
        strType = "Select"
    Case 16
        strType = "Crosstab"
    Case 32
        strType = "Delete"
    Case 48
        strType = "Update"
    Case 64
        strType = "Append"
    Case 80
        strType = "Make Table"
    Case 96
        strType = "Drop Table"
    Case 128
        strType = "Union"
    Case Else
        strType = "Flags " & CStr(lngFlags) & " unrecognized"
    End Select

    QueryType = strType
End Function

Answer 4

Почему бы вам не поймать выброшенное исключение и не проанализировать его?

Есть ли у вас какой-либо способ использовать инструкцию beginTrans / Rollback? Затем вы можете отправить свою команду SQL, собрать ошибки, а затем откатить транзакции, оставив базу данных без изменений.

А как насчет использования соединения ADO, несколько более умного, чем соединение ADO, где соединение содержит коллекцию «ошибок» и возвращает некоторые другие данные, например количество затронутых записей?

Answer 5

Эта информация относится к типу запроса. Итак:

• Все запросы, которые выполняют SELECT ... FROM ... , являются выбранными запросами
• Все ВСТАВИТЬ , ОБНОВЛЕНИЕ , УДАЛИТЬ являются запросами действий

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