|
※エクセルの学校([20210722010531])とのマルチポスト投稿になります。ご了承ください
半日ほど悩んだのですが解決方法が見つからなかったので、こちらで質問をさせていただきます。
以下のコードでSharePointのリストにADO接続したいのですが、※1DELETE/※2UPDATE は実行できるのですが
※3INSERTを実行するとエラー【フィールド'名前'は更新できません。フィールドが更新可能ではありません。】となります。
SQLの記述を色々と試したのですがダメでした。
(SharePointの問題かとも思ったのですが原因は分からず)
皆様にお知恵をいただければと思い投稿させてもらいました。
宜しくお願いします。
Sub ボタン1_Click()
Dim adoCn As Object
Dim strSQL As String
Set adoCn = CreateObject("ADODB.Connection")
adoCn.Open"Provider=Microsoft.ACE.OLEDB.12.0;WSS;_
IMEX=2;RetrieveIds=Yes;DATABASE=シェアポイントURL;LIST=テストリスト;"
※1 strSQL = "DELETE FROM テストリスト WHERE 名前 = ""殿馬"";"
※2 strSQL = "UPDATE テストリスト SET 名前 = ""さとなか"" WHERE 名前 = ""里中"";"
※3 strSQL = "INSERT INTO テストリスト(名前) VALUES(""岩鬼"");"
adoCn.Execute strSQL
adoCn.Close
Set adoCn = Nothing
End Sub
< 使用 Excel:Office365、使用 OS:Windows10 >
|
|