tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： ADOでエクセルに書き込みできない
投稿日： 2008/01/18(Fri) 09:56
投稿者： cc

ADOでエクセルファイルのデータを更新したいのですが、
「データベースまたはオブジェクトは読み取り専用なので、更新できません。」
というエラーが出てしまいます。
webで色々調べましたが解決できませんでした。
以下がそのコードですが、なにがいけないのでしょうか？
となたかご教授願います。


    Private Sub sr_excelADOup_2()

        Dim cn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim mPath As String = "C:\Documents and Settings\Administrator\デスクトップ\cstest.xls"

        cn.Provider = "Microsoft.Jet.OLEDB.4.0"
        cn.Properties("Extended Properties").Value = "Excel 8.0;HDR=NO;IMEX=1"
        cn.Open(mPath)

        Dim strSQL As String = "Select * From [" & "Sheet1" & "$]"
        With rs
            .Open(strSQL, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic, ADODB.CommandTypeEnum.adCmdText)
            .MoveFirst()
            .Update(3, "テストテスト")
        End With

        rs.Close()
        cn.Close()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(rs)
        rs = Nothing
        System.Runtime.InteropServices.Marshal.ReleaseComObject(cn)
        cn = Nothing

        MsgBox("完了")
    End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。