Создание новых таблиц в Access через Delphi

[mopozoff]

Как создать новую таблицу или саму базу данных Access через Delphi?
Как скопировать уже имеющуюся таблицу с новым именем и ту которую копировали очистить?

[Stilet]

Выполни через ADOQuery запрос на создание таблицы:

CREATE TABLE `q` (
`y` VARCHAR( 43 ) NOT NULL 
);

для примера.

Для копирования данных должен подойти INSERT

Для очистки таблицы примени метод EmptyTable

[mopozoff]

Куда в ADOQuerry это писать?
Как добраться до таблицы которая в Access (что-то типа такого: ADO... . <имя таблицы> . <параметры и методы>), чтобы использовать EmptyTable?
Какие параметры должны быть у INSERT?

[Stilet]

Куда в ADOQuerry это писать?

with adoquery1.sql do begin
 add('CREATE TABLE q (y VARCHAR( 43 ) NOT NULL); ');
end;

Только тут надо с ковычками не переназапутать

Как добраться до таблицы которая в Access (что-то типа такого: ADO... . <имя таблицы> . <параметры и методы>), чтобы использовать EmptyTable?

Я наверное маненько набрехав, ибо в ADO (только щаз вспомнил) нет такого метода, но ничего
команда SQL Delete from <таблица> (ее вызывать через ExecSQL) опустошит таблицу.

Какие параметры должны быть у INSERT?

А в хелп по SQL заглянуть?

[Dux]

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

Как создать новую таблицу или саму базу данных Access через Delphi?

{Using ADOX:  uses ComObj; // You can with ADOX (Microsoft ADO Extensions for DDL and Security)}

function CreateAccessDatabase(FileName: string): string;
var 
     cat: OLEVariant; 
begin 
   Result := ''; 
         try 
          cat := CreateOleObject('ADOX.Catalog');       
          cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';');    
          cat := NULL; 
        except on e: Exception do 
       Result := e.message; 
       end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
CreateAccessDatabase('c:\Testdb.mdb'); 
end;

[mopozoff]

Пишу такой текст:

adoquery1.Close;
adoquery1.SQL.Clear;
with adoquery1.sql do begin
add('CREATE TABLE quit (id smallint NOT NULL PRIMARY KEY,fio varchar(50)not null); ');
end;
adoQuery1.Open;

Таблица создаётся, всё ок, но вылетает ошибка "ADOQuery1: CommandText does not return a result set" Русская версия "Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции"
Как с ней бороться?

[Stilet]

Как с ней бороться?

adoQuery1.ExecSQL;
P.S. Читать посты нужно внимательно.

[AlexandrSid]

Делай не
adoQuery1Open;,
а
adoQuery1.ExecSQL;

[mopozoff]

Ещё вопрос.
Как из базы считать список таблиц, скажем, в Listbox?
И проверить имеется ли таблица с какми-либо именем в базе?

[TaTT DoGG]

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

adoQuery1.ExecSQL;
P.S. Читать посты нужно внимательно.

а уладять таблицу нужно, как я понял через DELETE TABLE. Так?
Так вот если так, то именно на ExecSQL программа и ругается