Створення бази даних Paradox програмно
Як це здійснити?
Знайшов кілька прикладів, але не один не працює
# XA0; with TTable.Create (Self) do
# XA0; begin // create TTable object
# XA0; # XA0; DatabaseName: = "c: \ temp"; // point to directory or alias
# XA0; # XA0; TableName: = "FOO"; // give table a name
# XA0; # XA0; TableType: = ttParadox; // make a Paradox table
# XA0; # XA0; with FieldDefs do
# XA0; # XA0; begin
# XA0; # XA0; # XA0; Add ( "Age", ftInteger, 0, True); // add an integer field
# XA0; # XA0; # XA0; Add ( "Name", ftString, 25, False); // add a string field
# XA0; # XA0; # XA0; Add ( "Weight", ftFloat, 0, False); // add a floating-point field
# XA0; # XA0; end;
# XA0; # XA0;
# XA0; # XA0; IndexDefs.Add ( "", "Age", [ixPrimary, ixUnique]);
# XA0; # XA0; CreateTable; // create the table
# XA0; end;
і так пробував
sql: = "CREATE TABLE" employee.db "(Last_Name CHAR (20),
# XA0; # XA0; # XA0; First_Name CHAR (15), Salary NUMERIC (10,2),
# XA0; # XA0; # XA0; Dept_No SMALLINT, PRIMARY KEY (Last_Name, First_Name)) ";
Query1.sql.text: = sql;
Query1.ExecSQL;
Самий правильний приклад в CreateTable + F1
Це створення таблиці, а створення бази CreateDir
кажись це кошьмарьная проблема.
Спробуй додати розширення створи без індексу, а потім спробуй з індексом, струму індекси очищати теж треба.
"CREATE TABLE" employee.db "(Last_Name CHAR (20),
# XA0; # XA0; # XA0; First_Name CHAR (15), Salary NUMERIC (10,2),
# XA0; # XA0; # XA0; Dept_No SMALLINT, PRIMARY KEY (Last_Name, First_Name)) ";
"Employee.db" - не впевнений, а це в лапки треба брати. (Просто давно базами неграючі.
і ще, може я лох в цьому але
(А так як у Вас забите це, пардон, смішно)
і потім поїхали далі. Шкода я струму аматор і можу ощібок багато наробити.
Який кашмар. Народ навіть листи за 3 дні лінується почитати. Ти вже 4 або 5ий за тиждень кому жують це питання.
повторення мати навчання - кажись так буде.