powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как в adp присоеденить или открыть mdb
11 сообщений из 11, страница 1 из 1
Как в adp присоеденить или открыть mdb
    #32813965
Andrey_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня есть проект adp. Есть mdb файл в котором есть несколько таблиц, мне надо перетянуть данные в мой проект.
Как это сделать?
Если можно, то напишите код.
Спасибо
...
Рейтинг: 0 / 0
Как в adp присоеденить или открыть mdb
    #32814102
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DTS или линкед сервер тебе в руки
...
Рейтинг: 0 / 0
Как в adp присоеденить или открыть mdb
    #32814112
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можно создать ADODB.Connection на mdb базу
...
Рейтинг: 0 / 0
Как в adp присоеденить или открыть mdb
    #32814354
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Разовая копирование или они там постоянно так и будут болтаться ?
...
Рейтинг: 0 / 0
Как в adp присоеденить или открыть mdb
    #32814413
Andrey_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нет не разовое копирование. Постоянно.

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

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

Она не под паролем.
Где тут ошибка?
...
Рейтинг: 0 / 0
Как в adp присоеденить или открыть mdb
    #32814486
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подсмотрите в отладчике значение
? 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
Как в adp присоеденить или открыть mdb
    #32814488
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Через Линкед Сервер было бы лучше. Естетвенный доступ к таблицам
...
Рейтинг: 0 / 0
Как в adp присоеденить или открыть mdb
    #32814541
Andrey_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
re: Через Линкед Сервер было бы лучше. Естетвенный доступ к таблицам

Я никогда не работал с этим не могли бы вы подсказать статейку почитать какую нить или как это использовать???
...
Рейтинг: 0 / 0
Как в adp присоеденить или открыть mdb
    #32814557
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
EM->Security->Linked Servers. Подключение MDB проходит на ура даже в самый первый раз. Давить Ф1 не возбраняется.
...
Рейтинг: 0 / 0
Как в adp присоеденить или открыть mdb
    #32814800
N_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Как в adp присоеденить или открыть mdb
    #32814812
Фотография Latuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кстати как линкованный сервер так и вьюха на ODBC данные
легко создается мастером AccessADP "Связь с таблицами"
(Правая кнопка мыши на вкладке с таблицы)

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


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