![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите создать новый Access файл. [D7, Access]
Sergilov © (2004-12-08 21:37:00)Если кто-то работал с 1С, то видел что при старте есть возможность создать новую базу данных. Данные для ADO соеденения хранятся в INI файле, а как создать новвый Access файл? Нужную структуру я думаю ему можно потом задать через SQL запрос. А как создать сам файл?
sniknik (2004-12-08 23:30:00) [1]
function TDMod.CreateMDBBase(const BaseName: string): boolean;
var AdoEngine: Variant;
begin
result:= false;
try
try
AdoEngine:= CreateOleObject('ADOX.Catalog');
AdoEngine.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetMdbName(BaseName)+';Jet OLEDB:Engine Type=5;');
AdoEngine.ActiveConnection.Close;
result:= true;
except
on E: Exception do DoIfError(E);
end;
finally
AdoEngine:= Null;
end;
end;
DoIfError это моя процедура