Проблема с БД при создании инсталлятора - VB

Формулировка задачи:

Привет. У меня возникла небольшая проблемка. Написал я програмку которая в работе обращается к БД ACCESS подключение выглядит таким образом
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = DAO.OpenDatabase('C:NDataDetMater')
sSQL = 'SELECT DISTINCT N1, N2, N3, N4, N5, N6, N7 FROM sver'        
Set Rs = Db.OpenRecordset(sSQL)
Создал я инстальник для своей программы. И тут возникла проблемка связанная с тем что я указал жестко путь в программном коде. После инсталляции программы в другой каталог программа естественно не находит БД по указанному пути. Вопрос: Подскажите каким образом мне нужно было указывать путь к БД чтобы небыло таких проблем.


textual

Код к задаче: «Проблема с БД при создании инсталлятора - VB»

Set Db = DAO.OpenDatabase('C:NDataDetMater')
 
public function Путь() as string
   Путь=GetSetting('***','***','БД',FSO(App.Path,'Имя Бд'))
end function
 
Set Db = DAO.OpenDatabase(Путь())' добавляю скобки к Ф чтоб помнить что она чтото возращает :-)
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.929 из 5

Источник