Немного не по теме, но в таком варианте база не откроется на другом компьютере, т.к. возможно не совпадет путь к файлу *.mdb. Для решения можно в процедуру TForm1.FormCreate добавить вот это
Код:
con1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'User ID=Admin;' +
'Data Source=' + ExtractFileDir(ParamSTR(0)) + '\proba.mdb;' +
'Mode=Share Deny None;' +
'Extended Properties="";' +
'Jet OLEDB:System database="";' +
'Jet OLEDB:Registry Path="";' +
'Jet OLEDB:Database Password="";' +
'Jet OLEDB:Engine Type=5;' +
'Jet OLEDB:Database Locking Mode=1;' +
'Jet OLEDB:Global Partial Bulk Ops=2;' +
'Jet OLEDB:Global Bulk Transactions=1;' +
'Jet OLEDB:New Database Password="";' +
'Jet OLEDB:Create System Database=False;' +
'Jet OLEDB:Encrypt Database=False;' +
'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;' +
'Jet OLEDB:SFP=False';
con1.Connected:= true;
предварительно у
con1 очистив содержимое строки
ConnectionString и переведя его свойство
Connected в
false.