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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

{/codecitation}

Добавить комментарий