код такой
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub RelinK(ByVal pathOl As String)
Dim db As Database
Dim tdf As TableDef
Set db = DAO.OpenDatabase(pathOl & "\Baseforinfo.mdb")
db.TableDefs.Refresh
For Each tdf In db.TableDefs
If tdf.Name = "TABLE1" Then
tdf.Connect = ";DATABASE=" & pathOl & "\Service.mdb" & "; pwd=1"
tdf.RefreshLink
End If
If tdf.Name = "TABLE2" Then
tdf.SourceTableName = pathOl & "\file.csv "
tdf.RefreshLink
End If
Next tdf
db.Close
End Sub
должен обновлять связи в базе у определенных таблиц на новое местоположение.
Ругается на красную строку. Там где обновление не базы, а файлика
сначала я ставлю ему вот такую строку коннекта
tdf.Connect = ";DATABASE=" & pathOl & "\file.csv" & "; pwd=1"
Ругается на csv файлы, говорит - "Незнаю такую бд" или дословно "Нераспознаваемый тип базы данных." что собсно логично.
тогда я ему говорю, дурень ты ушастый правильно вот так
tdf.Connect = ";TEXT=" & pathOl & "\file.csv" & ""
конечно с вариациями на тему где должны находится исходные данные. Точки с запятой менял местами, знак равенства пытался впихнуть, но он ругается на "ошибочный аргумент", или что не понятный источник данных
и наконец я уже пытаюсь ему сказать,
tdf.SourceTableName = pathOl & "\file.csv"
но он все равно не верит и говорит, что это свойство для элементов коллекции менять нельзя
как же верно задать строку коннекта. Бо firststeps я гуглил по теме TableDefs, макрорекордера в аксессе нету. А строку подсказки в аксессе при наведении на таблицу шифровали против шпиёнов.
help
