"Вызов хранимой процедуры Sybase для вставки записи в таблицу Contacts из полей tEdit в Delphi"

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

В данной статье мы рассмотрим, как вызвать хранимую процедуру Sybase для вставки записи в таблицу Contacts из полей tEdit в Delphi. Мы будем использовать компоненты FireDAC для подключения к базе данных и вызова хранимой процедуры.

Прежде всего, убедитесь, что у вас уже есть подключение к базе данных Sybase через компоненты FireDAC. Если нет, добавьте компоненты TFDConnection и TFDQuery на форму и настройте их свойства для подключения к вашей базе данных.

Далее, создайте хранимую процедуру в вашей базе данных Sybase для вставки записи в таблицу Contacts. Например, процедура может выглядеть следующим образом:

CREATE PROCEDURE InsertContact
    @FirstName NVARCHAR(50),
    @LastName NVARCHAR(50),
    @Email NVARCHAR(100),
    @Phone NVARCHAR(20),
    @Address NVARCHAR(255)
AS
BEGIN
    INSERT INTO Contacts (FirstName, LastName, Email, Phone, Address)
    VALUES (@FirstName, @LastName, @Email, @Phone, @Address)
END

Теперь, чтобы вызвать эту хранимую процедуру из Delphi, выполните следующие шаги:

1. Добавьте компонент TFDStoredProc на форму и настройте его свойства следующим образом:
   • Name: Укажите имя хранимой процедуры (в нашем случае, InsertContact)
   • Connection: Укажите соединение с базой данных (свяжите с компонентом TFDConnection)
2. Добавьте параметры для хранимой процедуры, соответствующие полям в таблице Contacts. Для этого:
   • Щелкните правой кнопкой мыши на компоненте TFDStoredProc и выберите "Edit Parameters".
   • Нажмите кнопку "Add" и добавьте параметры для каждого поля в таблице Contacts. Укажите соответствующие имена параметров и типы данных.
3. Установите значения параметров, основываясь на данных, введенных пользователем в поля tEdit на форме. Например:

FDStoredProc1.ParamByName('FirstName').AsString := Edit1.Text;
FDStoredProc1.ParamByName('LastName').AsString := Edit2.Text;
FDStoredProc1.ParamByName('Email').AsString := Edit3.Text;
FDStoredProc1.ParamByName('Phone').AsString := Edit4.Text;
FDStoredProc1.ParamByName('Address').AsString := Edit5.Text;

1. Вызовите хранимую процедуру, использовав метод Execute:

FDStoredProc1.Execute;

После выполнения этих шагов, запись будет вставлена в таблицу Contacts в вашей базе данных Sybase, используя значения, введенные пользователем в поля tEdit на форме.

Обратите внимание, что если при вставке записи возникнет ошибка, компонент TFDStoredProc выбросит исключение. Always check for exceptions after calling Execute method to handle any errors that may occur.

В качестве альтернативного подхода, вы можете использовать компонент TFDQuery для выполнения SQL-инструкции INSERT с параметрами, вместо использования хранимой процедуры. Этот подход может быть более простым, но использование хранимой процедуры позволяет вам централизовать бизнес-логику в базе данных и упрощает ее обслуживание.

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

В данной статье рассматривается, как вызвать хранимую процедуру Sybase для вставки записи в таблицу Contacts из полей ввода в Delphi с использованием компонентов FireDAC.

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

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

:: Главная :: Sybase ::