Создать программу через SQL-запрос

[willii]

видимо таблица не создалась. ААААААААААА что делать???

ООооо Дааа!
у меня получилось создать таблицу. Я там скобки просто неправильно поставил .
вот код:

procedure TForm1.FormCreate(Sender: TObject);
begin
   with form1.Query1 do
   begin
     Close;
     SQL.Clear;
     SQL.Add('create table "N:\Экзаменационные тесты Delphi\Успеваемость студентов\Yspevaemost.db" (Field1 char(20), Field2 integer) ');
    execsql;
   end;
end;

[Stilet]

Я тебе дам добрый совет: Если работаешь с файловыми базами данных не создавай запросами таблицы. Лучше хранить чистые шаблоны таблиц где-то отдельно, и при необходимости копировать их в рабочий каталог. Это все равно файлы, так и поступать с ними надо как с файлами.

[willii]

я обычно так и делаю, просто у меня задание такое.

Мне еще надо чтобы после запуска программы была возможность отредактировать таблицу. как это сделать?

Может как нибудь DBNavigator сюда пристроить?

[Stilet]

Можно. Только в этом случае не Query а Table надо использовать.

[willii]

А без Table никак не получится отредактировать таблицу?

[Stilet]

Получится. Запросами INSERT и UPDATE.

[willii]

то есть кинуть на форму кнопку "Вставить" и по нажатию на нее создать запрос INSERT? я правильно понял?

[willii]

SQL.Add('create table "N:\Экзаменационные тесты Delphi\Успеваемость студентов\Yspevaemost.db" (Field1 char(20), Field2 integer) ');

Как в место char(20) сделать строковый тип?

[xxbesoxx]

Погуглить не пробовал ? http://www.experts-exchange.com/Prog..._20658129.html
Не знаю как ваши Paradox или какой СУБД у вас . Но, MS SQL Server через ADO можно создать таблица и сразу начать пользователя его .

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Tran: integer;
begin
 Tran:= ADOConnection1.BeginTrans;
  try
  with ADOQuery1 do
             begin
               Close;
               SQL.Clear;
               SQL.ADD('CREATE TABLE '+'Emp');
               SQL.ADD('(Date_strart DateTime, ');
               SQL.Add('fio varchar(50), ');
               SQL.ADD('Phone varchar(40), ');
               SQL.ADD('Salary Money, )');
               ExecSQL;
             end;
    ADOConnection1.CommitTrans;
    ShowMessage('Таблица действительно создана');
    with ADOQuery1 do
    begin
      Close;
      SQL.Text := ' select * from Emp';
      Open;
    end;
   except
    on E:Exception do
    begin
    ADOConnection1.RollbackTrans;
     ShowMessage('Ошибка при создании таблицы');
    end;
  end;
end;
end.

Но может преподаватель требует Paradox , они же любить такой ненужную информацию преподавать .

[Stilet]

Как в место char(20) сделать строковый тип?

По хорошему так:

   with form1.Query1 do
   begin
     Close;
     SQL.text:='insert into "N:\Экзаменационные тесты Delphi\Успеваемость студентов\Yspevaemost.db" (:param1) ');
     Parameters.ParamByName('param1').AsString:='Нужная строка';
    execsql;
   end;