Как создать базу данных MS SQL SERVER
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
-
- Сообщения: 117
- Зарегистрирован: 10 ноя 2005, 02:00
Мне нужно создать базу данных MS SQL SERVER программно из Delphi. Подскажите как можно это сделать.
Код: Выделить всё
with TADOQuery.Create(nil) do
try
ConnectionString := 'DRIVER=SQL Server;SERVER=_server_';
SQL.text := 'create database _database_';
ExecSQL;
finally
Free;
end;
С уважением, Lost Angel...
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Ниразу не работал с MSSQL Server-ом, но вообще-то, во всех SQL-серверах с которыми имел дело это было так:
Подключаешься под пользователем с соответсвующими правами и посылаешь DDL-запрос:
CREATE DATABASE "name" <параметры разные>;
Парметры у каждого сервера свои.
Принцип всегда один: раз работа ведется с SQL-сервером, то ему надо посылать SQL-запросы.
Подключаешься под пользователем с соответсвующими правами и посылаешь DDL-запрос:
CREATE DATABASE "name" <параметры разные>;
Парметры у каждого сервера свои.
Принцип всегда один: раз работа ведется с SQL-сервером, то ему надо посылать SQL-запросы.
-
- Сообщения: 117
- Зарегистрирован: 10 ноя 2005, 02:00
Вот так?
ConnectionString := 'Provider=SQLOLEDB.1;' +
'Integrated Security=SSPI;' +
'Persist Security Info=False;' +
'Initial Catalog=master'
ADOConnection1.ConnectionString := ConnectionString;
ADOConnection1.LoginPrompt := False;
ADOConnection1.Connected := True;
CommandText := 'CREATE DATABASE test ON ' +
'( NAME = test_dat, ' +
'FILENAME = ''c:\base.mdf'', '+
'SIZE = 4, ' +
'MAXSIZE = 10, ' +
'FILEGROWTH = 1 )';
ADOCommand1.CommandText := CommandText;
ADOCommand1.Connection := Form1.ADOConnection1;
ADOCommand1.Execute;
ConnectionString := 'Provider=SQLOLEDB.1;' +
'Integrated Security=SSPI;' +
'Persist Security Info=False;' +
'Initial Catalog=master'
ADOConnection1.ConnectionString := ConnectionString;
ADOConnection1.LoginPrompt := False;
ADOConnection1.Connected := True;
CommandText := 'CREATE DATABASE test ON ' +
'( NAME = test_dat, ' +
'FILENAME = ''c:\base.mdf'', '+
'SIZE = 4, ' +
'MAXSIZE = 10, ' +
'FILEGROWTH = 1 )';
ADOCommand1.CommandText := CommandText;
ADOCommand1.Connection := Form1.ADOConnection1;
ADOCommand1.Execute;
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Ну если создается, значит именно так.
Если не создается, то какую-то мелочь надо подправить
Если не создается, то какую-то мелочь надо подправить

-
- Сообщения: 117
- Зарегистрирован: 10 ноя 2005, 02:00
С создание Базы понятно а как можно из Delphi сделать Attach DataBase
Так же. Путём вызова системной хранимой процедуры sp_attach_db
Даже самый дурацкий замысел можно воплотить мастерски
-
- Сообщения: 117
- Зарегистрирован: 10 ноя 2005, 02:00
Насколько также? Все оставить тоже самое но вместо CREATE DataBAse поставить sp_attach_db. Надо еще написать путь к файлу mdf который нужно приаттачить.
С точки зрения Delphi абсолютно так же. А вопросы по SQL обсуждаются в другом разделе форума 

Даже самый дурацкий замысел можно воплотить мастерски
-
- Сообщения: 117
- Зарегистрирован: 10 ноя 2005, 02:00
Нет, не проходит. Надо как-то по другому писать.