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

•  TDictionary Custom Sort  3 226

•  Fast Watermark Sources  2 991

•  3D Designer  4 750

•  Sik Screen Capture  3 259

•  Patch Maker  3 467

•  Айболит (remote control)  3 528

•  ListBox Drag & Drop  2 904

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

•  Графические эффекты  3 843

•  Рисование по маске  3 171

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

•  Canvas Drawing  2 672

•  Рисование Луны  2 500

•  Поворот изображения  2 093

•  Рисование стержней  2 120

•  Paint on Shape  1 525

•  Генератор кроссвордов  2 183

•  Головоломка Paletto  1 730

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

•  Пазл Numbrix  1 649

•  Заборы и коммивояжеры  2 016

•  Игра HIP  1 262

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

•  Симулятор лифта  1 422

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

•  Генератор лабиринта  1 512

•  Проверка числового ввода  1 297

•  HEX View  1 466

•  Физический маятник  1 322

•  Задача коммивояжера  1 357

 
скрыть


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-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

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