Отладка запросов: исправление ошибок несуществующих полей в Delphi

Delphi , Базы данных , Access

В статье будет рассмотрена проблема, с которой сталкиваются разработчики при работе с запросами в Delphi: ошибка "поле не найдено". Используя примеры кода на Object Pascal, мы разберемся, почему возникает данная ошибка и как ее можно исправить.

Описание проблемы

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

Пример кода с ошибкой

function TSQLs.Get(value, room, hotel: string): string;
begin
  with Databasehub.DataModule1 do
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('SELECT "'+value+'" FROM TblRoom WHERE RoomType="' + room + '" AND HotelName 
    ="'+hotel+'"');
    // ... остальной код
  end;
end;

В данном примере кода используется небезопасное формирование запроса с помощью конкатенации строк, что может привести к различным проблемам, включая SQL-инъекции.

Подход к решению проблемы

Для начала, стоит отметить, что использование параметризованных запросов существенно повышает безопасность и удобство работы с данными. Также важно правильно обрабатывать имена полей, особенно если они содержат специальные символы или пробелы.

Исправленный код

function TSQLs.GetCost(const Room, Hotel: string): Currency;
var
  Qry: TADOQuery;
begin
  Qry := TADOQuery.Create(nil);
  try
    Qry.Connection := Databasehub.DataModule1.AdoConnection; // Подключение к источнику данных
    Qry.ParamCheck := True;
    Qry.SQL.Text := 'SELECT Cost FROM TblRoom WHERE RoomType=:Room AND HotelName=:Hotel'; 
    Qry.Parameters.ParamByName('Room').Value := Room;
    Qry.Parameters.ParamByName('Hotel').DataType := ftString;
    Qry.Parameters.ParamByName('Hotel').Value := Hotel;
    Qry.Parameters.ParamByName('Hotel').DataType := ftString;
    Qry.Active := True;
    if not Qry.EOF then
      Result := Qry.FieldByName('Cost').AsCurrency;
  finally
    Qry.Free;
  end;
end;

Комментарии к коду

• Используйте функцию QuotedStr для корректного формирования строковых литералов в запросах.
• Избегайте использования двойных кавычек вокруг имен полей в запросах, используйте квадратные скобки для имен, содержащих специальные символы или пробелы.
• Всегда проверяйте входные данные на предмет SQL-инъекций.
• Проверьте, что запрос возвращает хотя бы одну запись, прежде чем пытаться получить значение поля.

Альтернативный ответ

Первым делом, убедитесь, что поля в программе соответствуют типам в базе данных. Например, поле 'Cost' должно быть определено как тип Currency в вашей базе данных, и в Delphi также следует использовать соответствующий тип данных.

Подтвержденный ответ

При формировании SQL-запроса избегайте использования двойных кавычек вокруг имен полей. Если имя поля содержит пробелы или специальные символы, используйте квадратные скобки для обозначения. Кроме того, всегда очищайте входные строки от потенциально опасных символов, чтобы предотвратить SQL-инъекции.

Пример безопасного запроса:

ADOQuery1.SQL.Text := 'SELECT [' + value + '] FROM TblRoom WHERE RoomType=' + QuotedStr(Room) + ' AND HotelName = ' + QuotedStr(Hotel);

Использование параметризованных запросов также является предпочтительным, так как это повышает безопасность и упрощает поддержку кода.

ADOQuery1.ParamCheck := True;
ADOQuery1.SQL.Text := 'SELECT [' + value + '] FROM TblRoom WHERE RoomType=:Room AND HotelName=:Hotel';
ADOQuery1.Parameters.ParamByName('Room').Value := Room;
ADOQuery1.Parameters.ParamByName('Hotel').Value := Hotel;

Не забудьте обработать случай, когда запрос не возвращает записей, используя Qry.EOF вместо проверки ADOQuery1.RecordCount.

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

Создано по материалам из источника по ссылке.

Проблема в статье связана с отладкой запросов в Delphi, где рассматриваются причины возникновения ошибок 'поле не найдено' и способы их устранения, включая использование параметризованных запросов и корректное формирование SQL-запросов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Access ::