Показать сообщение отдельно
  #6  
Старый 23.12.2018, 11:59
Shkolnik_17 Shkolnik_17 вне форума
Прохожий
 
Регистрация: 18.12.2018
Сообщения: 4
Версия Delphi: Delphi7
Репутация: 10
По умолчанию

lmikle, Вот такая ошибка.
2018-12-23_11-53-37.png
Код написал по твоему примеру.
Код:
procedure TForm1.BitBtn3Click(Sender: TObject);
var
  NCol, I: Integer;
  NameTab, S: string;
begin
  ADOConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB1.mdb;Persist Security Info=False';
  ADOConnection1.Connected:= True;
  ADOQuery1.Connection:= ADOConnection1;
  NCol:= 10; //количество колонок
  NameTab:= 'Tabl1'; // название таблицы
  S:= 'CREATE TABLE'+NameTab+'(';
  for I:= 1 to NCol do
    begin
      S:= S+'Field_' +IntToStr(I)+'VARCHAR(200)';
      if I < NCol then S:= S+ ',';
    end;
  S:= S+')';
  ADOQuery1.SQL.Text:= S;
  ADOQuery1.ExecSQL;  
end;
В чем мой косяк?
Ответить с цитированием