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

Вниз

Сжатие Access   Найти похожие ветки 

 
Arkady   (2003-02-12 12:52) [0]

Как программно сжать базу данных Access?


 
SVM (Perm)   (2003-02-12 13:12) [1]

Можно, например, через автоматизацию. Поищи в MSDN.


 
sniknik   (2003-02-12 19:35) [2]

проимерно так

function TDMod.PackAccess(BaseName: string): boolean;
var je: Variant;
begin
result:= false;
sPath:= ExtractFilePath(BaseName);
try
je:=CreateOleObject("JRO.JetEngine");
je.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source="+BaseName+";",
"Provider=Microsoft.Jet.OLEDB.4.0;"+
"Data Source="+sPath+"NewBase$$$.Mdb;"+
"Jet OLEDB:Encrypt Database=True");
DeleteFile(BaseName);
RenameFile(sPath+"NewBase$$$.Mdb", BaseName);
result:= true;
except
on E: Exception do DoIfError(E.Message);
end;
end;


 
Arkady   (2003-02-13 08:38) [3]


> sniknik © (12.02.03 19:35)


После выполнения PackAccess база не открывается. Выводится сообщение: «Нераспознаваемый формат базы данных». Использую Access 97.


 
sniknik   (2003-02-13 11:03) [4]

немного измени строку DestConnection (по умолчанию 5 - формат 2000го)

Jet OLEDB:Engine Type Indicates the version of the source database to open or the version of the new database to be created. The OLE DB engine types that you can use are:
1 for JET Version 1.0
2 for JET Version 1.1
3 for JET Version 2.x
4 for JET Version 3.x
5 for JET Version 4.x
If this is omitted for the destination database, it will default to 5. The value for the destination database cannot be a version prior to that of the source database.

т.е. поставь Jet OLEDB:Engine Type=4, (4 для 97, можеш попробовать и др.), можно вместо "Jet OLEDB:Encrypt Database=True" (реально не нужно криптование будет унаследовано).

p.s. удивляюсь я вам, D7, винда небось XP а база от 97 офиса (признано самого глючного) небось и соеденение через BDE.


 
Arkady   (2003-02-13 12:44) [5]


> sniknik © (13.02.03 11:03)

Большое спасибо, заработало.


> винда небось XP

Windows у меня стоит 98.


> а база от 97 офиса (признано самого глючного)

зато читается на всех машинах (не везде есть 2000)


> небось и соеденение через BDE.

Соединение через ADO

p.s. Надо равняться на самую слабую машину, чтобы все везде работало одинаково :).




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

Форум: "Базы";
Текущий архив: 2003.03.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.036 c
3-5473
Comwad
2003-02-13 06:58
2003.03.03
В DBGrid выделить несколько строк сразу


7-5893
F1
2003-01-05 12:13
2003.03.03
Здесь кто-нить знает ассемблер???


6-5702
Saimon
2003-01-03 16:46
2003.03.03
Люди подскажите


3-5464
polecat79
2003-02-13 18:38
2003.03.03
Проблема с использованием


1-5502
UDS
2003-02-20 20:20
2003.03.03
Вопрос по компоненту





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский