База ассеss, компоненты АDО.

[kenta]

Как программно получить путь к базе?

[Serge_Bliznykov]

поиск, по ключевому слову ConnectionString

[solyr]

/////////////////////////////////// Содержимое файла настроек соединения
[oledb]
Provider=Microsoft.Jet.OLEDB.4.0
User ID=Admin
Data Source=c:\Tools\Delphi\DataBase Prj\Local DB\Access\DB\MainDB.mdb
Mode=ReadWrite|Share Deny None
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:Compact Without Replica Repair=False
Jet OLEDB:SFP=False

/////////////////////// Проца позволяющая производить соед-е с БД в независимости от расположения проги. БД Access должна быть в кталоге DB, которые в свою очередъ находится в катлоге программы

procedure TForm1.FormCreate(Sender: TObject);
var IniFile:TIniFile;
strConnection:string;
begin
try
//чтение файла настроек (независим от путия располжения каталога программы),
//формирование строки соединения,
//активация соединения
IniFile:=TIniFile.Create(ExtractFil ePath(Application.ExeName)+'DB\main DB.ini');
IniFile.WriteString('oledb','Data Source',ExtractFilePath(Application .ExeName)+'DB\MainDB.mdb');
strConnection:='Provider='+IniFile. ReadString('oledb','Provider','')+' ;';
strConnection:=strConnection+'User ID='+IniFile.ReadString('oledb','Us er ID','')+';';
strConnection:=strConnection+'Data Source='+IniFile.ReadString('oledb' ,'Data Source','')+';';
strConnection:=strConnection+'Mode= '+IniFile.ReadString('oledb','Mode' ,'')+';';
strConnection:=strConnection+'Exten ded Properties='+IniFile.ReadString('ol edb','Extended Properties','')+';';
strConnection:=strConnection+'Persi st Security Info='+IniFile.ReadString('oledb',' Persist Security Info','')+';';
strConnection:=strConnection+'Jet OLEDB:System database='+IniFile.ReadString('oled b','Jet OLEDB:System database','')+';';
strConnection:=strConnection+'Jet OLEDB:Registry Path='+IniFile.ReadString('oledb',' Jet OLEDB:Registry Path','')+';';
strConnection:=strConnection+'Jet OLEDB:Database Password='+IniFile.ReadString('oled b','Jet OLEDB:Database Password','')+';';
strConnection:=strConnection+'Jet OLEDB:Engine Type='+IniFile.ReadString('oledb',' Jet OLEDB:Engine Type','')+';';
strConnection:=strConnection+'Jet OLEDB:Database Locking Mode='+IniFile.ReadString('oledb',' Jet OLEDB:Database Locking Mode','')+';';
strConnection:=strConnection+'Jet OLEDB:Global Partial Bulk Ops='+IniFile.ReadString('oledb','J et OLEDB:Global Partial Bulk Ops','')+';';
strConnection:=strConnection+'Jet OLEDB:Global Bulk Transactions='+IniFile.ReadString(' oledb','Jet OLEDB:Global Bulk Transactions','')+';';
strConnection:=strConnection+'Jet OLEDB:New Database Password='+IniFile.ReadString('oled b','Jet OLEDB:New Database Password','')+';';
strConnection:=strConnection+'Jet OLEDB:Create System Database='+IniFile.ReadString('oled b','Jet OLEDB:Create System Database','')+';';
strConnection:=strConnection+'Jet OLEDB:Encrypt Database='+IniFile.ReadString('oled b','Jet OLEDB:Encrypt Database','')+';';
strConnection:=strConnection+'Jet OLEDB:Compact Without Replica Repair='+IniFile.ReadString('oledb' ,'Jet OLEDB:Compact Without Replica Repair','')+';';
strConnection:=strConnection+'Jet OLEDB:SFP='+IniFile.ReadString('ole db','Jet OLEDB:SFP','')+';';
IniFile.Free;
ADOQuery1.ConnectionString:=strConn ection;
ADOQuery1.Active:=TRUE;
except
end;
end;

[ОДИНОЧЕСТВО В СЕТИ]

Проца позволяющая производить соед-е с БД в независимости от расположения проги. БД Access должна быть в кталоге DB, которые в свою очередъ находится в катлоге программы

не проще при build-e ConnectionString оставить в пути к базе
db/имя файла базы.mdb

[solyr]

Проще, но вдруг в приложении пригодится в опциях менять настройки соединения. Тут как бы с заделом на будущее