Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обновление таблиц в Access из VB / 6 сообщений из 6, страница 1 из 1
09.07.2010, 19:01
    #36733431
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление таблиц в Access из VB
код такой
Код: plaintext
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

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

сначала я ставлю ему вот такую строку коннекта
Код: plaintext
tdf.Connect = ";DATABASE=" & pathOl & "\file.csv" & "; pwd=1"
Ругается на csv файлы, говорит - "Незнаю такую бд" или дословно "Нераспознаваемый тип базы данных." что собсно логично.

тогда я ему говорю, дурень ты ушастый правильно вот так

Код: plaintext
tdf.Connect = ";TEXT=" & pathOl & "\file.csv" & ""
конечно с вариациями на тему где должны находится исходные данные. Точки с запятой менял местами, знак равенства пытался впихнуть, но он ругается на "ошибочный аргумент", или что не понятный источник данных

и наконец я уже пытаюсь ему сказать,
Код: plaintext
tdf.SourceTableName = pathOl & "\file.csv"
но он все равно не верит и говорит, что это свойство для элементов коллекции менять нельзя

как же верно задать строку коннекта. Бо firststeps я гуглил по теме TableDefs, макрорекордера в аксессе нету. А строку подсказки в аксессе при наведении на таблицу шифровали против шпиёнов.

help
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 19:05
    #36733439
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление таблиц в Access из VB
умом понимаю что еще можно убить таблицу и присоеднить новую, но там же такая же проблема будет: незнаю как сделать это по уму
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 19:05
    #36733440
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление таблиц в Access из VB
Shamanus,

Что-то есть подозрение, что в аксессовской ветке тебе раз в сто быстрее ответют
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 19:14
    #36733457
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление таблиц в Access из VB
Shocker.Pro,

спасибо за идею.
Пятница вечер понимаете ли

нашел вот тут интересный код, который показывает детальные свойства коннекта (я же говорил что писали от шпиёнов)

Сформировал таблицу свойств

правильный ответ на мой вопрос такой
Код: plaintext
        tdf.Connect = "Text;DSN=;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=51251;DATABASE=" & pathOl
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 20:47
    #36733539
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление таблиц в Access из VB
Shamanus,

на всякий случай, если подобные проблемы возникнут, наиболее полные рекомендации можно прочитать здесь Access и текстовые файлы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2010, 08:16
    #36735138
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление таблиц в Access из VB
mds_world,

спасибо за ссылку, занес в избранное.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обновление таблиц в Access из VB / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]