Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 174

•  TDictionary Custom Sort  6 234

•  Fast Watermark Sources  6 037

•  3D Designer  8 935

•  Sik Screen Capture  6 361

•  Patch Maker  6 782

•  Айболит (remote control)  6 763

•  ListBox Drag & Drop  5 640

•  Доска для игры Реверси  96 255

•  Графические эффекты  6 983

•  Рисование по маске  6 263

•  Перетаскивание изображений  5 156

•  Canvas Drawing  5 530

•  Рисование Луны  5 229

•  Поворот изображения  4 777

•  Рисование стержней  3 377

•  Paint on Shape  2 633

•  Генератор кроссвордов  3 520

•  Головоломка Paletto  2 810

•  Теорема Монжа об окружностях  3 620

•  Пазл Numbrix  2 367

•  Заборы и коммивояжеры  3 048

•  Игра HIP  2 004

•  Игра Go (Го)  1 931

•  Симулятор лифта  2 290

•  Программа укладки плитки  1 993

•  Генератор лабиринта  2 445

•  Проверка числового ввода  2 129

•  HEX View  2 463

•  Физический маятник  2 081

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



Оформил: DeeCo

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;




Похожие по теме исходники

Экспорт баз данных в Excel

База данных "Книжный магазин"

База данных Видеофильмов

База данных "Школа"

 

База данных без BDE

База данных студентов

Фильтрование данных

Pevrica (сжатие данных)

 

Конструктор тестов SQL

SQL Zapros




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте