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

Question

Я хочу выполнить список запросов в базе данных Access с помощью DAO. Метод «Database.Execute()» подходит для этого с замечанием о том, что он может выполнять только «запросы действий», то есть запросы, которые не возвращают набор результатов (MSDN reference). Для запросов, которые возвращают записи, можно использовать «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

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

• Все запросы, которые выполняются в SELECT ... FROM ... являются выберите запросы
• Все ВСТАВИТЬ, UPDATE, DELETE являются действие запросов

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

Answer 3

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

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

CREATE PROCEDURE qryDropMe AS DROP PROCEDURE qryDropMe; 

;)

Answer 4

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

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

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

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

Кроме того, помните, что не все запросы «SELECT ... FROM ...» - это выбор запросов для вашей цели (возврат набора записей). Запрос, такой как «SELECT полей INTO newtable FROM oldtable;» не возвращает записи, а пользовательский интерфейс доступа классифицирует его как запрос 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 5

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

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

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