ÐÒÏÔÉ×ÎÁÑ ÏÛÉÂËÁ, ÇÄÅ-ÔÏ ÇÌÀÞÕ
Alexey Kurbatov
Вот кусок кода. База .mdb .
ADOTable1.ConnectionString :=
{
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + lDBPathName + ';' +
'Persist Security Info=False;' +
'Jet OLEDB:Database Password=' + DBPASSWORD;
}
'Provider=Microsoft.Jet.OLEDB.4.0;' +
'User ID=Admin;' +
'Password=' + dbPassword + ';' +
'Data Source=' + lDBPathName + ';' +
'Mode=ReadWrite;' +
'Extended Properties="";' +
'Persist Security Info=False;' +
'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=True;' +
'Jet OLEDB:SFP=False';
ADOTable1.TableName := 'db1';
ADOTable1.Active := True;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ADOTable1.Last;
В отмеченном месте выдает ошибку, мол какой-то компонент
именованный FIO уже существует. Откуда он взялся - не известно.
Может какую-то инициализацию дополнительную пройти надо?
Alexey
... Карликовый пудель, кличка - Акатуй.