0

まず、私はAccessでひどく、.Net以外のものではかなり悪いです（ご覧のとおり、私は.Netで書き込もうとしています）

私がやろうとしているのは、Access DBにある各クエリを取得し、Sharepointリストに保存することです。

何かのようなもの：

Option Compare Database
Option Explicit

Public Function SendUpdate()
     Dim DB as Access.Db = C:\Test.accdb

     For Each Qry as Query in DB
           DoCmd.TransferDatabase acExport, "WSS", DB, _
           "http://My.sharepointlist.com/list", _
           acQuery, Qry, Qry, True, Login, Password
     Loop
End Function

明らかにそのFor Each部分は機能しませんが、私が機能する場合でも：

DoCmd.TransferDatabase acExport 、、WSSDB http://My.sharepointlist.com/list、、 acQuery、Qry、Qry、True、ログイン、パスワード

それ自体で実行時エラーが発生3841し、少なくともその部分が機能することを期待していました。誰か提案はありますか？

助けてくれてありがとう、ザック

4

1 に答える 1

2

必要なコマンドは次のようになります。

DoCmd.TransferDatabase acExport, _
                   "WSS", _
                   "http://YourTargetDatabase/TestSubSite", _
                   acQuery, _
                   "q2", _
                   "q2"

これの内訳は次のとおりです。

DoCmd.TransferDatabase acExport, _
         "WSS", _     (Type of export – WSS)
         "http://YourTargetDatabase"    (target database location), _
         acQuery, _             (type of export)
         "q2",                       (name of query to export)
         "q2"                         (name to create on target system)

「保存」パスワードオプションは、接続文字列でもパスワードでもありません。保存するパスワードの設定はtrue/falseにすぎません。これは、SharePointには当てはまらないと思いますが、特定の種類のodbc接続にのみ当てはまります。

したがって、現在SharePointサイトにログインしている場合、上記はパスワードプロンプトなしで実行されます。ログインしていない場合は、ログオンプロンプトが表示され、上記は問題なく機能するはずです。

これをfor/eachとしてコーディングする場合、構文は次のようになります。

Sub TransferQuery()

  Dim qryDef     As DAO.QueryDef

  For Each qryDef In CurrentDb.QueryDefs

     DoCmd.TransferDatabase acExport, _
                   "WSS", _
                   "http://YourTargetDatabase/TestSubSite", _
                   acQuery, _
                   qryDef.Name, _
                   qryDef.Name

  Next


End Sub
于 2012-08-01T03:25:38.670 に答える