| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание БД [D5, D6, D7, IB5.x, IB6.x, MSSQL, MySQL]

xOn ©   (2005-02-21 09:01:00) 

Я как новичок, хотел спросит следующее,
1. Как создается БД (база данных) в среде Delphi 7 ?
2. Как в программе указать добавит новых данных в существующий БД ?

  Если можно дайте маленкий код пример, или ссылки.

Заранее спасибо.

---

xOn   (2005-02-22 07:55:00) [1]

Всем огромное спасибо, особенно, ЮЮтебе.

---

Desdechado   (2005-02-21 10:34:00) [2]

Вообще-то в среде Дельфи не создаются БД и с ними ничего не делается. А вот в программе на дельфи все это сделать можно, но сильно зависит от СУБД. Вариант для IB - выше.

---

ЮЮ   (2005-02-21 09:14:00) [3]

>Если можно дайте маленкий код пример
Думаешь поможет?

(для MS SQL)  
procedure TCADOConnection.CreateDatabase(const DBName: string);
var
 i, p, lcs: integer;
 prevDBName: string;
begin
 // здесь FADO: TADOConnection;  
 if not FADO.Connected then    
   raise ECCon.Create(
     'Соединение с БД не установлено'
   );

 p := Pos('Initial Catalog=', FConnectionString);
 if p > 0 then begin
   Inc(p, Length('Initial Catalog='));
   lcs := Length(FConnectionString);
   SetLength(prevDBName, lcs);
   i := p;
   while (i <= lcs) and (FConnectionString[i] <> ';') do begin
     prevDBName[i - p + 1] := FConnectionString[i];
     Inc(i);
   end;
   SetLength(prevDBName, i - p);
 end;

 Connect;
 Exec('USE master');
 Exec('CREATE DATABASE ' + DBName);

 Disconnect;
 FConnectionString := StringReplace(
   FConnectionString,
   'Initial Catalog=' + prevDBName,
   'Initial Catalog=' + DBName,
   [rfReplaceAll]
 );
 Connect;
end;

(для IB)
procedure TCIBXConnection.CreateDatabase(const Login, Password: string);
begin
 // здесь FDatabase: TIBDatabase, Params -
FDatabase.Params;

 Params.Delete(Params.IndexOfName('user_name'));
 Params.Delete(Params.IndexOfName('password'));
 Params.Add('USER "' + Login + '"');
 Params.Add('PASSWORD "' + Password  + '"');
 FDatabase.SQLDialect := 3;
 FDatabase.CreateDatabase;
end;

---

Anatoly Podgoretsky   (2005-02-21 09:07:00) [4]

А причем тогде Д5 и Д6
В большинстве случаев общий синтаксис такой CREATE DATABASE

---

Наверх