копировать строку из запароленой базы

[Tof]

необходимо скопировать строки из одной базы в другую, а если эта база (из которой копируют) запароленная .....
база1.Execute "insert into табл1 in '" & App.Path & "\Базы\База1.mdb" & "' select id, фио from табл" [where id=9]

как быть???

[Алексей К.]

Подключение к запароленной mdb через ADO:

Код: Выделить всё


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" + App.Path & "\base_name.mdb;Jet OLEDB:Database Password=пароль;"
        .Mode = adModeShareDenyNone
        .Open
End With
With rs
        .ActiveConnection = cn
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Source = "текст запроса/имя таблицы"
        .Open
End With


[GSerg]

Алексей К., теперь покажи, как запросом скопировать данные из одной базы в другую.

[Алексей К.]

А просто показал весь код из своей проги, а так конечно же cn.execute

[Tof]

дак мне не надо подключаться к запароленной базе, я знаю как это делается ...
мне надо запросом скопировать из запароленной базы в другую

[GSerg]

а так конечно же cn.execute

Ещё раз.
Как при помощи cn.execute скопировать из одной файла в другой файл?

[Алексей К.]

поторопился - подумал про копирование внутри одной базы идет речь.
Сорри...

[Odrick]

Одним запросом никак. Если речь идет, конечно, о SQL-запросе.

[Tof]

а не одним? ... или чё?
короче не хочется просто открывать базу и переливать по ячеечно инфу из одной таблицы одной базы (которая запароленная) в другую таблицу другой базы ...
+ так (сразу строчками переливать) работает горааздо быстрее...
вот ...

[GSerg]

Прилинкуй одну базу к другой, потом залей одним запросом.

Статья в MSDN называется HOWTO: Use ADO to Refresh/Create Linked Table for Password Secured Jet 4.0 Database.

[Tof]

ну клево на самом деле то ... прикольно получилось ...
ток я так понимаю она типа копирует таблицу ... а если надо выборочно строки скопировать (из запароленной опять же базы) в уже существующую таблицу ... ??

[GSerg]

Она не копирует, она линкует. Таблица существует в одном экземпляре в той базе, но видна как часть этой. И работать с ней обычными запросами.
Не воспринимай линковку как копирование

[Tof]

да, ОК ... ну т.е. ты не знаешь как ответить на предыдущий вопрос .. по поводу отдельных записей

[GSerg]

Ы...

Чел
Ты таблицу прилинковал?