Динамическое создание таблиц Interbase

[Moneo]

Раньше делал таблицы на BDE, теперь надо на Interbase их переделать.
Был такой код:

ibtable1.TableName:=mytable;
ibtable1.FieldDefs.clear;
ibtable1.FieldDefs.add('id',ftautoinc);  //
ibtable1.FieldDefs.add('name',ftmemo,0,false);
ibtable1.FieldDefs.add('quest',ftmemo,0,false);
ibtable1.FieldDefs.add('type',ftinteger,0,false);
ibtable1.FieldDefs.Add('ans',ftmemo,0,false);
ibtable1.FieldDefs.Add('media',ftboolean);
ibtable1.FieldDefs.Add('media path',ftmemo,0,false);
ibtable1.CreateTable;
ibtable1.Active:=true;
ibtable1.close;
ibtable1.TableName:=mytable;
ibtable1.open;

А теперь вопрос как типы переписать, чтоб id был инкрементом и во что переделать memo?

[eval]

в 99% "Динамическое создание таблиц" - кривая задумка.

[Moneo]

Сообщение от eval

в 99% "Динамическое создание таблиц" - кривая задумка.

Ну с моей стороны виднее что лучше подходит под задачу. Лучше бы рассказали как это сделать.

[eval]

кривое само делается, ему помогать смысла нет

[Moneo]

Сообщение от eval

кривое само делается, ему помогать смысла нет

Я смотрю вы просто оффтопите "Профессионал" - дальнейший разговор мне с вами не интересен.

[Sciv]

Читай в гугле инструкцию по команде SQL CREATE TABLE. Для организации автоинкремента - про понятия триггер и генератор.

[Yurk@]

в 99% "Динамическое создание таблиц" - кривая задумка.

+1, согласен

Ну с моей стороны виднее что лучше подходит под задачу. Лучше бы рассказали как это сделать.

было бы виднее - подобного вопроса не возникло бы.

тебя спасет IBScripter и скрипт вида

CREATE GENERATOR gen_actions_id;

CREATE TABLE actions (
    recordid    INTEGER 
    actionid    INTEGER 
    goodid      VARCHAR(6) 
    dis         DOUBLE PRECISION 
    datechange  DATE,
    deleted     INTEGER 
);

CREATE OR ALTER TRIGGER actions_bi FOR actions
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.recordid IS NULL) THEN
    NEW.recordid = GEN_ID(gen_actions_id,1);
END;

[eval]

Moneo

вы расскажите на кой вам это надо, а я вам расскажу о вашем "виднее", и тема рассосётся сама собой.

[superedward]

Сама идея не такая уж корявая - в той же самой 1С можно динамически создать/изменить таблицу.

     IBQuery:=TIBQuery.Create(Self);
     IBTransactionWrite:=TIBTransaction.Create(Self);
     try
     with IBTransactionWrite do begin
      DefaultDatabase:=IBDataBase;
      Params.Clear;
      Params.Add('nowait');
      Params.Add('read_committed');
      Params.Add('rec_version');
     end;
     with IBQuery do begin
      Database:=IBDataBase;
      Transaction:=IBTransactionWrite;
      IBTransactionWrite.StartTransaction;
      SQL.Clear;
      SQL.Add('CREATE TABLE '+sTable+' (');
      SQL.Add(' fID INTEGER NOT NULL PRIMARY KEY,');
      SQL.Add(' fName VARCHAR(255)');
      SQL.Add(')');
      ExecSQL;

      SQL.Clear;
      SQL.Add('CREATE GENERATOR g'+sTable+'ID');
      ExecSQL;
      IBTransactionWrite.Commit;
     end;{with IBQuery do begin}
     finally
      IBQuery.Free;
      IBTransactionWrite.Free
     end;