Вопрос про создание БД Access+Tables в одним действием.

← →
vegarulez © (2007-11-21 20:59) [0]

Привет всем мастерам! Вопрос такков
я создаю бд таким образом:

uses
...ZAbstractRODataset, ZAbstractDataset, ZDataset, ZConnection, ZSqlUpdate, ComObj;

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.Button3Click(Sender: TObject);
begin
CreateAccessDatabase(edit1.Text);
end;

и далее добавляю в неё(в созданную БД) table вот таким образом:

procedure TForm1.Button4Click(Sender: TObject);
begin
With Zquery1 do
Begin
if Active then Close;
Sql.Text:="CREATE TABLE MyTable (id integer, TestPole1 varchar(20))";
ExecSQL();
close;
End;
end;

Теперь вопрос(ы)...
1. Можно ли как нибудь первую часть создания БД сделать с помошью Zeos компонент?
2. Как одновременно и создать БД и создать таблички в ней... Такое возможно?

← →
Правильный_Вася (2007-11-22 11:01) [1]

подготовь файл БД со всеми таблицами заранее
при необходимости просто копируй его

← →
vegarulez © (2007-11-22 17:31) [2]

А как я его в экзешник запихну?.. Чтоб его просто копировать...

← →
Stanislav_ (2007-11-22 17:38) [3]

можно как ресурс, а можно таскать за экзешником, если какие-то изменения в базе прогу ненужно перекомпиливать

Подскажите как тогда запихнуть её в *.res?
никогда не пользовался *.res... подскажите как это сделать.

А в экзешник как нить можно её вкомпилить?

Вопрос про создание БД Access+Tables в одним действием. Найти похожие ветки