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;
В чем мой косяк?