Hi All !

Есть .ADP проект Access как клиентская форма + MS SQL Server 2000 как БД
необходимо ПРОГРАММНО из него выгружать таблицу в локальную аксесовскую БД (.mdb)
или Excel-вский файл (.xls) по желанию пользователя. Подскажите как это реализовать ?

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

Я пошел другим путем пытаюсь использовать методы TransferSpreadsheet и TransferDatabase
Но тут же наткнулся на грабли :

Private Sub BtnExport_Click()

Dim rs As New ADODB.RecordSet
Dim cn As New ADODB.Connection
Dim sql As String

Set cn = CurrentProject.Connection
Set rs = New ADODB.RecordSet
sql = "SELECT * FROM [dbo].[Test]"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

' Проверка что исходной таблице есть записи
If rs.RecordCount > 0 Then
DoCmd.TransferSpreadsheet acExport, , "Test", "D:\TestExcel.xls"
DoCmd.TransferDatabase acExport, "Microsoft Access", "D:\TestAccess.mdb", acTable, "Test", "MyTest", False
End If

End Sub

Не работает ни TransferSpreadsheet ни TransferDatabase, ругается одинаково :

"Microsoft Office Access can't find the object 'Test.'"

Я так понимаю что Application.DoCmd обращается наверное к какому то не тому Connection
т.к. в текущем соединении таблица Test присутствует (ее явно видно среди таблиц),
она не временная и не вьюха, а вполне стационарная. Впрочем я пробовал и другие
таблицы результат тот же.

Подскажите куда копать ? или какие-нибудь альтернативные варианты ?

А про DTS-пакеты и права админа - поподробнее плз...
Я так понимаю пакет который из MS SQL Server
формально можно вызвать двумя способами :
1) EXEC sp_OACreate 'DTS.Package' + sp_OAMethod 'LoadFromSQLServer' и 'Execute'
2) exec xp_cmdshell dtsrun /Ffilename /Npackage_name /Mpackage_password

и команды sp_*и xp_cmdshell - выполняются юзерами с правами админа БД, не меньше

Да и необходимые .dll для запуска dts-пакета после копирования на конечный компьютер необходимо зарегистрировать с помощью Regsvr32.exe - что невозможно без прав админа компа (это как раз мой случай).

Есть еще какие-нибудь варианта запуска DTS-пакетов ?

А что установку тоже с правами админа провести не можете?
Ну допустим я даже установлю необходимые dll. Но ведь это только решает половину проблемы.

И спокойно используйте dtspkg.dll и объект DTSPackage2 для запуска пакета.
Сам запуск dts-пакета возможен только юзером с правами сисадмина.
Из BOL: Only members of the sysadmin fixed server role can execute sp_OACreate.
А как раз этих прав я конечным юзерам давать не могу.

Использованные мною TransferDatabase и т.п. этой проблемы лишены !
Необходим только доступ на чтение самой выгружаемой таблицы и не более.
Так что DTS (в моем случае) тупиковая ветвь развития.

Есть еще идеи ?

пробуйте вместо DoCmd.TransferSpreadsheet acExport "dbo.Test" "D:\TestExcel.xls"
Все таблицы в БД созданы под владелцем dbo.
И юзер может видеть и их структуру и данные только на чтение

А в TransferSpreadsheet я пробовал указывать и так
TransferSpreadsheet ... "имя_таблицы"
и так "владелец.имя_таблицы"
и так "имя_БД.владелец.имя_таблицы"
и даже запрос " select * from имя_БД.владелец.имя_таблицы"

результат одинаковый : "Microsoft Office Access can't find the object ..."

только что проверил (зашел владельцем) - работает такой вариант
А как вы зашли по владельцем ?
У меня владелец dbo, а сисадмин другой логин, под ним и захожу
но
DoCmd.OutputTo acTable, "[dbo].[TEST]", "MicrosoftExcelBiff8(*.xls)", "D:\Test.mdb", True, "", 0
выдает все то же "Invalid object name 'dbo.TEST'."

сам конекшин прописан на уровне ADP т.е. в меню File\Connection

Может я каких то нужных модулей не включил в Tool\References ?


Latuk: А таблица Test каким образом создавалась?

to Latuk: Таблица создавалась средствами MS SQL Servera, как уже писал она статическая, не виртуальная и не динамическая

Как вариант можно програмно создавать рядом MDB-к с линкованной таблицей и запускать экспорт из него.
Как я понимаю прилинковать таблицу из MsSqlServer в mdb-файл можно только с помощью ODBC - это не удобно т.к. физический путь к базе
с конечного компьютера конечный юзер знать не должен,
другое дело в ADP - достаточно IP,имя базы,логин и пароль прописанные заранее в свойствах connection проекта.

Снова прошу помощи ...

С экпортом в Excel проблема решена чудесно с помощью DoCmd.OutputTo (спасибо Guest-у) экпортирует все что угодно, даже вьюхи - то что мне и надо.

Теперь тоже самое проделать бы с локальным .mdb
:-( метод TransferDatabase мне уже не подходит т.к. Query он не экспортирует в MDB файл

DTS - не рассматриваем

Значит остается вариант типа INSERT INTO target SELECT * FROM source

Ушел от ADP, сделал MDB в котором хочу прилинковать SQL Server, НО
ведь по примеру от Latuk я должен через ODBC указать конкретную папку где лежит mdf моего SQL Server, так ? Но тут вопрос:
экспорт будет осуществлять юзер с ограниченными правами и и видеть он будет только выгружаемую вьюху и путь к базе ему в принципе будет не доступен (из-за политики безопасности), что делать в этом случае ?