Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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

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

Оформил: 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;

Статья Создать базу данных на локальном MS SQL сервере 2000 раздела Базы данных MSSQL может быть полезна для разработчиков на Delphi и FreePascal.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
11.12.2019 10:12:07/0.40276694297791/0