[JcN]

Хочу вывести в StatusBar путь подключённой БД
Мне надо вывести занчение Data source из ADOConnection1.ConnectionString
Как это сделать?

[vinni]

ADOTable1.Tablename?

[JcN]

в данном случаи будет выводить название конкретной таблиц БД
А мне надо именно Путь к БД
C:\MyBD.mdb

[Страдалецъ]

Для этого вам придется парсить стоку подключения AdoConnection1.ConnectionString. Вообще обычно принято собирать эту строку, а у вас ситуация обратная.
Выглядеть будет гдето так:

Код:

P1 := Pos('Data Source=',AdoConnection1.ConnectionString)+12;
P2 := PosEx(';',AdoConnection1.ConnectionString,P1);
Form1.Caption :=ExtractFilePath(Copy(AdoConnection1.ConnectionString,P1,P2-P1));

Незабудьте подключить StrUtils для PosEx.

[JcN]

Спасибо) разобралсяв написанном)
но выводит почему то без названия файла базы
т.е. вместо C:\MyBD.mdb
выводит C:\

[Страдалецъ]

...Хочу вывести в StatusBar путь подключённой БД...

Что просили, то и выводит
А если надо вместе с БД, то так:

Код:

Form1.Caption :=Copy(AdoConnection1.ConnectionString,P1,P2-P1);

[JcN]

Спасибо большое!!!
ступил)