Create database

← →
Domkrat © (2004-09-16 12:06) [0]

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

← →
Val © (2004-09-16 12:36) [1]

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

← →
Domkrat © (2004-09-16 12:53) [2]

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;

← →
-SeM- (2004-09-16 12:59) [3]

TFIBDatabase.CreateDatabase

← →
Nikolay M. © (2004-09-16 13:00) [4]

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

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

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

Create database Найти похожие ветки