Консультация № 44195
25.05.2006, 13:18
0.00 руб.
0 3 3
в инете нашел код приведенный ниже,помогите пожалуйста,объясните его значение

Приложение:
var i: intger;beginfor i:=0 to ADOConnection1.ConnectionObject.Properties.Count-1 doif ADOConnection1.ConnectionObject.Properties.Item[i].Name =‘Data Source‘ then ADOConnection1.ConnectionObject.Properties.Item[i].Value:=ExtractFilePath(Application.ExeName)+‘data.mdb‘;

Обсуждение

Неизвестный
25.05.2006, 13:45
общий
это ответ
Здравствуйте, злой фей!
Он устанавливает путь к базе данных (перебирает все свойства ConnectionObject пока не найдет свойство с именем Data Source и правит его). Подразумевается, что база - это файл Access, который лежит в одной с программой папке. Такой ход может быть удобен, если папку с программой перенесли в другое место - тогда код сам узнает эту папку, и соответсвующим образом поправит путь.
давно
Мастер-Эксперт
425
4118
25.05.2006, 13:55
общий
это ответ
Здравствуйте, злой фей!
Это означает примерно следующее:
Перебираем у ConnectionObject все его свойства и если встречается свойство с именем "Data Source" тогда присваиваем ему значение в виде "Каталог, где лежит приложение"+"файл базы данных data.mdb".
Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)
Неизвестный
25.05.2006, 14:18
общий
это ответ
Здравствуйте, злой фей!
Данный код просматривает все компоненты, подключенные к ADOConnection1. Если имя подключенного компонента "Data Source", к нему подключается база ‘data.mdb‘, расположенная в одном каталоге с приложением.
Форма ответа