2005. június 17., péntek

Create database on local MS SQL Server 2000

Problem/Question/Abstract:

How to Create database on local MS SQL Server 2000?

Answer:

// Torry's Delphi Tips - Database
// Author Adnan Hebibovic
// Listed 21.12.2003

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;


Nincsenek megjegyzések:

Megjegyzés küldése