Создать базу данных на локальном MS SQL сервере 2000

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure CreateDatabase(WindowsSecurity: Boolean; Username, Password: String);
 var
   ConnectionString: String;
   CommandText: String;
 begin
   if WindowsSecurity then
     ConnectionString := 'Provider=SQLOLEDB.1;' +
                         'Integrated Security=SSPI;' +
                         'Persist Security Info=False;' +
                         'Initial Catalog=master'
   else
     ConnectionString := 'Provider=SQLOLEDB.1;' +
                         'Password=' + Password + ';' +
                         'Persist Security Info=True;' +
                         'User ID=' + Username + ';' +
                         'Initial Catalog=master';

   try

     try
       ADOConnection.ConnectionString := ConnectionString;
       ADOConnection.LoginPrompt := False;
       ADOConnection.Connected := True;


       CommandText := 'CREATE DATABASE test ON ' +
                      '( NAME = test_dat,    ' +
                      'FILENAME = ''c:\program files\microsoft sql server\mssql\data\test.mdf'', ' +
                      'SIZE = 4, ' +
                      'MAXSIZE = 10, ' +
                      'FILEGROWTH = 1 )';

       ADOCommand.CommandText := CommandText;
       ADOCommand.Connection := ADOConnection;
       ADOCommand.Execute;
       MessageDlg('Database succesfully created.', mtInformation, [mbOK], 0);

     except
       on E: Exception do MessageDlg(E.Message, mtWarning, [mbOK], 0);
     end;

   finally
     ADOConnection.Connected := False;
     ADOCommand.Connection := nil;
   end;

 end;

Программный процессор Delphi, создает новый базу данных на локальном экземпляре MS SQL Server 2000 с помощью провайдера SQLOLEDB. Процедура принимает три параметра: WindowsSecurity, Username и Password. Если WindowsSecurity равен True, то соединение будет использовать Windows-авторизацию для подключения к экземпляру SQL Server; в противном случае, оно будет использовать указанный пользовательский идентификатор и пароль.

Вот шаг за шагом, что код делает:

1. Он создает строку подключения на основе включения или отключения Windows-авторизации.
2. Он создает объект ADOConnection и устанавливает свойство ConnectionString в созданной строке подключения.
3. Он устанавливает свойство LoginPrompt в False, что означает, что пользователь не будет спрашиваться о входе при подключении к экземпляру SQL Server.
4. Он подключается к экземпляру SQL Server с помощью свойства Connected.
5. Он создает объект ADOCommand и устанавливает свойство CommandText в SQL-запрос, который создает новую базу данных под именем "test".
6. Команда текста включает несколько параметров, таких как:
   • Имя базы данных ("test").
   • Путь к файлу базы данных ("c:\program files\microsoft sql server\mssql\data\test.mdf").
   • Начальный размер и максимальный размер файла базы данных.
   • Скорость роста файла базы данных (1 мегабайт).
7. Он выполняет команду с помощью метода Execute.
8. Если создание базы данных успешно, он отображает диалоговое окно сообщения с текстом "База данных успешно создана.".
9. Если происходит исключение при выполнении процедуры, оно ловит исключение и отображает диалоговое окно сообщения с ошибкой.
10. Наконец, он разрывает соединение с экземпляром SQL Server, установив свойство Connected в False, и освобождает любые ресурсы, используемые объектом ADOCommand.

Обратите внимание, что это код старой версии SQL Server, и рекомендуется использовать более новые версии для новых проектов. В качестве альтернативных решений есть несколько опций: 1. Использовать компонент TADOQuery вместо TADOCommand для выполнения SQL-запроса. 2. Использовать компонент TSQLEntity для создания сущности базы данных (например, таблицы, представления) вместо создания всей базы данных. 3. Использовать компонент TSQLConnection для подключения к экземпляру SQL Server и выполнения SQL-запросов. 4. Использовать более современную версию Delphi, которая поддерживает ADO.NET или другие опции подключения к базе данных.

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

Создать базу данных на локальном MS SQL-сервере 2000 с использованием Delphi и процедуры CreateDatabase.

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

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

:: Главная :: MSSQL ::