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

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

Create database [Firebird 1.5]

Domkrat ©   (2004-09-16 12:06:00) 

Ув. мастера, как создать базу в runtime, использую FibPlus.
При попытке создания спомощью FibQuery выскакивает ошибка
'Cannot prepare a CREATE DATABASE/SCHEMA statement'.

---

Domkrat   (2004-09-16 13:14:00) [1]

Спасибо всем.
P.S.
TFIBDatabase.CreateDatabase будет попроще чем использоватбь API-шные функции.

---

1008   (2004-09-16 13:03:00) [2]

По-идее IBQuery хочет IBDataBase подключённую к базе.
Может попробовать: winexec('<Path>\isql -i script.sql', ...

---

Nikolay M.   (2004-09-16 13:00:00) [3]

http://forums.devshed.com/t80659/s.html

---

-SeM-   (2004-09-16 12:59:00) [4]

TFIBDatabase.CreateDatabase

---

Domkrat   (2004-09-16 12:53:00) [5]

Query := TFIBQuery.Create(Self);
     with Query do
     begin
       Database:=CurDatabase;
       Transaction:=CurTransaction;
       GoToFirstRecordOnExecute:=True;

       DataBaseStr := 'c:\data\archiv.gdb';
       Close;
       SQL.Clear;
       SQL.Add('create database '+QuotedStr(DataBaseStr));
       SQL.Add('user '+QuotedStr('Arch')+' password '+QuotedStr('arch'));
       SQL.Add('page_size 16384');
       ExecQuery;
       Transaction.CommitRetaining;
       Free;
     end;

---

Val   (2004-09-16 12:36:00) [6]

Код, пожалуйста.

---

Наверх