Выполнение Скрипта Ddl Delphi Пример Использования

Выполнение скрипта DDL (Data Definition Language) в Delphi может потребоваться в случае необходимости создания, изменения или удаления объектов базы данных, таких как таблиц, индексов, ключей и других элементов схемы базы данных. В Delphi для выполнения скрипта DDL можно использовать компоненты TADOCommand или TSQLQuery. Пример использования компонента TADOCommand:

  const    Script =      'CREATE TABLE Customers (' + #13#10 +      '  ID INTEGER PRIMARY KEY,' + #13#10 +      '  Name TEXT NOT NULL,' + #13#10 +      '  Email TEXT NOT NULL UNIQUE);';        procedure ExecuteScript(const AConnection: TADOConnection; const AScript: string);  var    Command: TADOCommand;  begin    Command := TADOCommand.Create(AConnection);    try      Command.CommandType := cmdText;      Command.CommandText := AScript;      Command.Execute;    finally      Command.Free;    end;  end;    procedure TForm1.Button1Click(Sender: TObject);  begin    ExecuteScript(ADOConnection1, Script);  end;

Пример использования компонента TSQLQuery:

  const    Script =      'CREATE TABLE Customers (' + #13#10 +      '  ID INTEGER PRIMARY KEY,' + #13#10 +      '  Name TEXT NOT NULL,' + #13#10 +      '  Email TEXT NOT NULL UNIQUE);';        procedure ExecuteScript(const AConnection: TSQLConnection; const AScript: string);  var    Query: TSQLQuery;  begin    Query := TSQLQuery.Create(nil);    try      Query.SQLConnection := AConnection;      Query.SQL.Text := AScript;      Query.ExecSQL;    finally      Query.Free;    end;  end;    procedure TForm1.Button1Click(Sender: TObject);  begin    ExecuteScript(SQLConnection1, Script);  end;

Оба примера выполняют один и тот же скрипт, создающий таблицу Customers с полями ID, Name и Email. Выбор между TADOCommand и TSQLQuery зависит от используемого компонента доступа к базе данных и личных предпочтений разработчика.