Как редактировать записи в базе данных Access из Delphi

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

Вопрос пользователя заключается в необходимости создать приложение-адресную книгу, которое будет использовать файл базы данных Access (.mdb). Пользователь уже знает, как вставлять новые контакты в базу данных, но сталкивается с проблемой редактирования существующих контактов. В качестве примера проекта, который можно использовать для тестирования, предоставлена ссылка на архив с проектом (AddressBookTest.zip).

Решение проблемы

Для редактирования записей в базе данных Access из приложения на Delphi, необходимо использовать SQL-команду UPDATE. Эта команда позволяет обновить данные в таблице, выбрав их по определённому критерию, в данном случае — по идентификатору записи.

Пример кода для обновления данных контакта с ID=10:

UPDATE tblContacts
SET FirstName = 'Имя',
    LastName = 'Фамилия'
WHERE ID=10;

Если вам нужно обновить более одного поля, просто добавьте соответствующие пары SET и FIELD_NAME в SQL-запрос, разделяя их запятыми.

Использование параметров в запросе

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

Пример параметризованного SQL-запроса для вставки новых данных:

qryAux.SQL.Text:='INSERT INTO tblContacts(FirstName, LastName) VALUES(:fist, :last)';
qryAux.ParamByName('fist').AsString := frmEd.edFirstName.Text;
qryAux.ParamByName('last').AsString := frmEd.edLastName.Text;
qryAux.ExecSQL;

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

Пример кода для получения данных контакта с ID=10:

qryAux.SQL.Text := 'SELECT * FROM tblContacts WHERE ID=10';
qryAux.Open;

if not qryAux.Eof then begin
  frmEd.edFirstName.Text := qryAux.FieldByName('FirstName').AsString;
  frmEd.edLastName.Text := qryAux.FieldByName('LastName').AsString;
end;

После того, как данные отображены в интерфейсе, для их обновления в базе данных, используйте следующий код:

qryAux.SQL.Text := 'UPDATE tblContacts SET FirstName = :fist, LastName = :last WHERE ID=10';
qryAux.ParamByName('fist').AsString := frmEd.edFirstName.Text;
qryAux.ParamByName('last').AsString := frmEd.edLastName.Text;
qryAux.ExecSQL;

Используя параметры, вы повышаете безопасность вашего приложения, так как избегаете инъекций SQL.

Заключение

Используя SQL-команду UPDATE и параметризованные запросы, можно эффективно редактировать данные в базе данных Access из приложения, написанного на Delphi. Это позволяет разработчикам создавать мощные и безопасные приложения для работы с данными.

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

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

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

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

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