Форум: "Базы";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизМастера! Как программно создать базу MSAccess? Найти похожие ветки
← →
@Ujin (2002-10-17 12:09) [0]Вопрос в теме. Я видел, кто-то уже отвечал на него...
← →
sniknik (2002-10-17 12:36) [1]сто раз отвечали и в фаге наверняка есть (а вот поиск по форуму базы данных не работает! до сих пор)
function TDMod.CreateMDBBase(BaseName: string): boolean;
var AdoEngine: Variant;
begin
result:= false;
if Length(BaseName)=0 then begin
DoIfError("Не определено имя базы");
exit;
end;
try
if Copy(UpperCase(BaseName), Length(BaseName)-3, 4) <> ".MDB" then BaseName:= BaseName + ".MDB";
AdoEngine:= CreateOleObject("ADOX.Catalog");
AdoEngine.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Trim(BaseName)+";Jet OLEDB:Engine Type=5;");
AdoEngine.ActiveConnection.Close;
AdoEngine:= Null;
result:= true;
except
on E: Exception do DoIfError(E.Message);
end;
end;
← →
Карелин Артем (2002-10-17 12:44) [2]МММ. А мне проще создать пустую базу, засунуть ее в ресурс и записывать оттуда при необходимости.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c