Excel2013 vba-> Access2013 mdbファイル
問題点:以下のソースを実行すると、エラーが発生します。このエラーをなくしてアクセスデータベースのテーブルの情報の更新、新規追加、削除を行いたいです。
エラー内容:実行時エラー'3251' 現在のRecordsetは更新をサポートしていません。プロバイダーか、選択されたロックタイプの限界の可能性があります。
ソース:
Sub 登録処理()
Dim Rst As adodb.Recordset
Dim SQL As String
Dim Rg As Range
Dim RgData As Range
Dim lngLastRow As Long
Dim RgDel As Range
On Error GoTo errH
Set RgData = mySh.Range("B2")
lngLastRow = RgData.End(xlDown).Row
Set RgData = mySh.Range(RgData, mySh.Range("AB" & lngLastRow))
SQL = "Select * from [会社管理テーブル]"
Call DBconection2
Set Rst = New adodb.Recordset
With Rst
.ActiveConnection = Cn
'SQL文でテーブル名と抽出条件を指定する
.Source = SQL
.CursorLocation = 3 ' クライアントサイドカーソルに変更
.Open
End With
Dim y As Long
Sheets("会社管理").Select
If Rst.EOF = False And Rst.BOF = False Then
For i = 1 To RgData.Rows.Count
If Cells(i + 1, 1).Value = "変更" Then
Rst.MoveFirst
Rst.Find "[施工会社ID]=" & RgData(i, 1).Value
If Rst.EOF Then
Else
Rst.Fields("会社ID").Value = RgData(i, 2).Value
Rst.Fields("会社名").Value = RgData(i, 3).Value
Rst.Fields("フリガナ").Value = RgData(i, 4).Value
Rst.Update
End If
Cells(i + 1, 1).Value = ""
ElseIf Range(i, 1).Value = "削除" Then
Rst.MoveFirst
Rst.Find "[会社ID]=" & RgData.Cells(i, 1).Value
If Rst.EOF Then
Else
Rst.Delete
End If
Set RgDel = Rows(i + 1 & ":" & i + 1)
RgDel.Select
RgDel.Delete
ElseIf Range(i, 1).Value = "新規" Then
Rst.AddNew
Rst.Fields("会社ID").Value = RgData(i, 2).Value
Rst.Fields("会社名").Value = RgData(i, 3).Value
Rst.Fields("フリガナ").Value = RgData(i, 4).Value
Rst.Update
Cells(i + 1, 1).Value = ""
End If
Next i
End If
exitH:
Rst.Close: Set Rst = Nothing
Call DBclose2
Exit Sub
errH:
MsgBox Err.Number & "(" & Err.Description & ")"
GoTo exitH
End Sub
Sub DBconection2()
Set Cn = New adodb.Connection
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cn.Open modPublic.DBPATH
End Sub
Function MakeDBconection() As adodb.Connection
Set Cn = New adodb.Connection
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cn.Open modPublic.DBPATH
Set MakeDBconection = Cn
End Function
Sub DBclose2()
Cn.Close
Set Cn = Nothing
End Sub
Sub EraseContents(s_Rg As Range)
s_Rg.ClearContents
End Sub
誰か、解決方法がおわかりの方がいましたら、アドバイスをよろしくお願いします。
No.1ベストアンサー
- 回答日時:
>Sheets("会社管理").Select
この辺で止めて
debug.print Rst.locktype
してみてください。
以下Access2010のヘルプより
LockTypeEnum
編集時にレコードに適用されるロックの種類を表します。
定数 値 説明
adLockBatchOptimistic 4 共有的バッチ更新を示します。バッチ更新モードの場合に必要です。
adLockOptimistic 3 レコード単位の共有的ロックを示します。Update メソッドを呼び出した場合にのみ、プロバイダーは共有的ロックを使ってレコードをロックします。
adLockPessimistic 2 レコード単位の排他的ロックを示します。プロバイダーは、レコードを確実に編集するための措置を行います。通常は、編集直後にデータ ソースでレコードをロックします。
adLockReadOnly 1 読み取り専用のレコードを示します。データの変更はできません。
adLockUnspecified -1 ロックの種類を指定しません。複製の場合、複製元と同じロックの種類が適用されます。
で、
LockType プロパティ (ADO)
編集時にレコードに適用されるロックの種類を示します。
設定値と戻り値
LockTypeEnum の値を設定または取得します。既定値は adLockReadOnly です。☆★☆注目!
解説
プロバイダーが Recordset を開くときに使用するロックの種類は、LockType プロパティを使用して事前に設定します。開いている Recordset オブジェクトで使用されているロックの種類は、このプロパティを取得することで確認できます。
プロバイダーによってはすべての種類のロックをサポートしていないものもあります。要求した LockType 設定をプロバイダーがサポートしていない場合は、他の種類のロックに置き換えられます。Recordset オブジェクトで実際に使用可能なロック機能を調べるには、adUpdate と adUpdateBatch で Supports メソッドを使用します。
CursorLocation が adUseClient に設定されている場合、adLockPessimistic 設定はサポートされません。サポートされていない値を設定してもエラーにはなりませんが、サポートされる LockType のうち、最も近いロックが使用されます。
LockType プロパティは、Recordset が閉じているときは読み取り/書き込み可能で、開いているときは読み取り専用になります。
リモート データ サービスでの使用 クライアント側の Recordset オブジェクトで使う場合、LockType プロパティは adLockBatchOptimistic にのみ設定できます
ご回答有難うございます。御礼が遅くなりすみませんでした。
まだ、不明な点がありますので、改めて質問をさせていただきたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
餃子を食べるとき、何をつけますか?
みんな大好き餃子。 ふと素朴な疑問ですが、餃子には何をつけて食べますか? 王道は醤油とお酢でしょうか。
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
「覚え間違い」を教えてください!
私はかなり長いこと「大団円」ということばを、たくさんの団員が祝ってくれるイメージで「大円団」だと間違えて覚えていました。
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら「ろうそくの数はあなたが好きな人の数です」と言われ浮気者扱いされたことをいまだに根に持っています。
-
あなたの習慣について教えてください!!
あなたが習慣だと思って実践しているものを共有してくださいませんか? 筋肉トレーニングでも朝シャワーでも、あなたが習慣だなと思えば何でも構いません
-
実行時エラー3251対応処理方法
Access(アクセス)
-
ACCESS ADOでupdateが効かない
その他(データベース)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
-
4
SQLでエラーです。
Visual Basic(VBA)
-
5
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
6
アクセスで#エラーを表示させない方法は?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SELECT文でのデッドロックに対...
-
SELECT時の行ロックの必要性に...
-
同時書き込み
-
更新ロックとデッドロック
-
SQLServer Insertが遅い
-
DB2のロック調査
-
SELECT FOR UPDATE にトランザ...
-
INSERTにおいてロック処理は必要か
-
MySQLは難易度が高いのでSQLite...
-
「マスタ」と「テーブル」の違...
-
Accessでクエリを完了できませ...
-
ストアドをまたがるローカル一...
-
2つのテーブルから条件に一致...
-
ビューで引数を使いたい
-
SQLサーバーのテーブルの値...
-
Access VBA Me.Requery レコー...
-
エクセルでテーブルの最終行が...
-
DataTableから条件を満たした行...
-
Access 1レコードずつcsvで出力...
-
SQLで○○の値以外を持っているレ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SELECT時の行ロックの必要性に...
-
SELECT文でのデッドロックに対...
-
accessのロック
-
Oracleの排他制御について教え...
-
AccessShareLock はどの程度気...
-
SQLServer Insertが遅い
-
INSERTにおいてロック処理は必要か
-
DB2のロック調査
-
DB2でSelectした時(rollback,c...
-
ExcelからAccess2013DBを更新す...
-
トランザクションとlast_insert_id
-
SELECT FOR UPDATE にトランザ...
-
SELECT文でタイムアウト...
-
トランザクション中にSELECTし...
-
UPDATE文で発生するデッドロッ...
-
MongoDBのデータ更新はDBを排他...
-
更新ロックとデッドロック
-
デッドロックが発生します。
-
書き込みの衝突
-
同時書き込み
おすすめ情報