Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Начинающим";
Текущий архив: 2007.12.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 2.545 c
2-1195315615
X-Man
2007-11-17 19:06
2007.12.16
Клиент-Сервер тестирующая программа


2-1195557399
Dennis I. Komarov
2007-11-20 14:16
2007.12.16
Забыл :(


15-1194980036
tesseract
2007-11-13 21:53
2007.12.16
Электронная россия ? Электронные выборы


15-1195126234
БарЛог
2007-11-15 14:30
2007.12.16
Домен контроллер на windows 2003


2-1195890376
MaShechka
2007-11-24 10:46
2007.12.16
Как поменять название в шапке Message Dialog?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский