Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как в adp присоеденить или открыть mdb / 11 сообщений из 11, страница 1 из 1
06.12.2004, 11:26:32
    #32813965
Andrey_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
У меня есть проект adp. Есть mdb файл в котором есть несколько таблиц, мне надо перетянуть данные в мой проект.
Как это сделать?
Если можно, то напишите код.
Спасибо
...
Рейтинг: 0 / 0
06.12.2004, 12:04:26
    #32814102
TatianaT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
DTS или линкед сервер тебе в руки
...
Рейтинг: 0 / 0
06.12.2004, 12:07:12
    #32814112
Alexey Sh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
можно создать ADODB.Connection на mdb базу
...
Рейтинг: 0 / 0
06.12.2004, 13:33:34
    #32814354
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
Разовая копирование или они там постоянно так и будут болтаться ?
...
Рейтинг: 0 / 0
06.12.2004, 13:49:40
    #32814413
Andrey_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
нет не разовое копирование. Постоянно.

скажите а как правильно создать connection.

set cnn= new adodb.connection
cnn.open "d:\import\db1.mdb"

Она не под паролем.
Где тут ошибка?
...
Рейтинг: 0 / 0
06.12.2004, 14:10:59
    #32814486
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
Подсмотрите в отладчике значение
? CurrentProject.Connection

Я думаю, у вас Provider не хватает, остальное можно опустить

? CurrentProject.Connection =
Provider=Microsoft.Jet.OLEDB.4.0;
User ID=Admin;
Data Source=C:\Documents and Settings\Õîìÿêîâ\Ìîè äîêóìåíòû\File.mdb;
Mode=Share Deny None;
Extended Properties="";
Jet OLEDB:System database=C:\Documents and Settings\Õîìÿêîâ\Application Data\Microsoft\Access\System.mdw;
Jet OLEDB:Registry Path=Software\Microsoft\Office\11.0\Access\Jet\4.0;
Jet OLEDB:Database Password="";
Jet OLEDB:Engine Type=5;
Jet OLEDB:Database Locking Mode=1;
Jet OLEDB:Global Partial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;
Jet OLEDB:SFP=False
...
Рейтинг: 0 / 0
06.12.2004, 14:11:36
    #32814488
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
Через Линкед Сервер было бы лучше. Естетвенный доступ к таблицам
...
Рейтинг: 0 / 0
06.12.2004, 14:30:46
    #32814541
Andrey_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
re: Через Линкед Сервер было бы лучше. Естетвенный доступ к таблицам

Я никогда не работал с этим не могли бы вы подсказать статейку почитать какую нить или как это использовать???
...
Рейтинг: 0 / 0
06.12.2004, 14:36:54
    #32814557
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
EM->Security->Linked Servers. Подключение MDB проходит на ура даже в самый первый раз. Давить Ф1 не возбраняется.
...
Рейтинг: 0 / 0
06.12.2004, 16:10:59
    #32814800
N_A
N_A
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
DAO ни чуть не сложнее, чем АДО в плане подключения к мдб.
Почему многие априори считают, что mdb это только DAO, а ADP это только ADO.
Возможно не все можно открыть как таблицу или форму, но открыть рекордсет - без проблем.
Вот обрезанный пример из хелпа.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub OpenRecordsetX()
    Dim wrkJet As DAO.Workspace
    Dim dbs As DAO.Database
    Dim rstTemp As DAO.Recordset

    Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
    Set dbs = wrkJet.OpenDatabase("c:\Documents and Settings\Dmitry\Мои документы\db1.mdb")
    
    Set rstTemp = dbs.OpenRecordset("t1", DAO.dbOpenForwardOnly)
   
    With rstTemp
        Do While Not .EOF
            Debug.Print , .Fields( 0 ), .Fields( 1 )
            .MoveNext
        Loop
    End With
    
    rstTemp.Close
    Set rstTemp = Nothing
    dbs.Close
    Set dbs = Nothing
    wrkJet.Close
    Set wrkJet = Nothing
End Sub
...
Рейтинг: 0 / 0
06.12.2004, 16:18:56
    #32814812
Latuk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в adp присоеденить или открыть mdb
Кстати как линкованный сервер так и вьюха на ODBC данные
легко создается мастером AccessADP "Связь с таблицами"
(Правая кнопка мыши на вкладке с таблицы)

PS лично я для работы из ADP с локальным MDB предпочитаю DAO
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как в adp присоеденить или открыть mdb / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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