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

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

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

Viktop ©   (2005-10-12 16:09:00) 

Как это осуществить?
Нашёл несколько примеров, но не один не работает
 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;

---

аматор   (2005-10-13 21:31:00) [1]

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

---

mr.IL   (2005-10-13 09:09:00) [2]

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

---

аматор   (2005-10-12 21:55:00) [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;

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

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

---

Anatoly Podgoretsky   (2005-10-12 19:22:00) [4]

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

---

Johnmen   (2005-10-12 16:15:00) [5]

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

---

Наверх