Создание базы данных Paradox программно

← →
Viktop (2005-10-12 16:09) [0]

Как это осуществить?
Нашёл несколько примеров, но не один не работает
with TTable.Create(Self) do begin // create TTable object DatabaseName := "c:\temp"; // point to directory or alias TableName := "FOO"; // give table a name TableType := ttParadox; // make a Paradox table with FieldDefs do begin Add("Age", ftInteger, 0, True); // add an integer field Add("Name", ftString, 25, False); // add a string field Add("Weight", ftFloat, 0, False); // add a floating-point field end; { create a primary index on the Age field... } IndexDefs.Add("", "Age", [ixPrimary, ixUnique]); CreateTable; // create the table end;
и так пробовал
sql := "CREATE TABLE "employee.db"( Last_Name CHAR(20), First_Name CHAR(15), Salary NUMERIC(10,2), Dept_No SMALLINT, PRIMARY KEY (Last_Name, First_Name))"; Query1.sql.text:=sql; Query1.ExecSQL;

← →
Johnmen © (2005-10-12 16:15) [1]

Самый правильный пример в CreateTable+F1

← →
Anatoly Podgoretsky © (2005-10-12 19:22) [2]

Это создание таблицы, а создание базы CreateDir

← →
аматор © (2005-10-12 21:55) [3]

кажись это кошьмарьная проблема.
Попробуй добавить расширение создай без индекса, а потом попробуй с индексом, тока индексы очищать тоже надо...

"CREATE TABLE "employee.db"( Last_Name CHAR(20),
First_Name CHAR(15), Salary NUMERIC(10,2),
Dept_No SMALLINT, PRIMARY KEY (Last_Name, First_Name))";
"employee.db" - не уверен, а это в кавычки надо брать ? (просто давно базами неиграл...
и ещё, может я лох в этом но

var MayTable : TTable;

(а так как у Вас заделано это, пардон, смешно)

и потом поехали далее. Жаль я тока аматор и могу ощибок много наделать...

Какой кашмар. Народ даже письма за 3 дня ленится почитать. Ты уже 4 или 5ый за неделю кому жуют этот вопрос.

повторение мать ученье - кажись так будет...

Создание базы данных Paradox программно Найти похожие ветки