Скачать: CL | DM;

Вопрос про создание БД 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]

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

---

← →
vegarulez ©   (2007-11-22 17:44) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c