![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
初めまして。
早速質問なのですが、VB(6.0)でmdb(Access2000)のDBを更新する処理を作りました。
DAOを用いて(初めて使います)以下のような構文を作ったのですが、
性能がぱっとしません。
何か下記のソースをいじることで性能が改善するような手立てはありませんでしょうか?
----------------------------------------------------------------------
Sub Main()
Dim cDaoDB As DAO.Database
Dim cDaoWS As Workspace
Dim cColUpdate As Collection
Dim varColItem As Variant
Dim lngCnt As Long
Set cDaoWS = DBEngine.Workspaces(0)
Set cDaoDB = mDaoWS.OpenDatabase("C:\TEST.mdb")
'コレクションにデータをaddする処理は省略しています
cColUpdate.add
With cDaoDB
cDaoWS.BeginTrans
'cColUpdateコレクションには10万件ほどのSQL構文(Update構文)が格納されています
'10万回ほど繰り返し処理します
For Each varColItem In cColUpdate
lngCnt = lngCnt + 1
If lngCnt > 1000 Then
'データ量が多いため1000件ごとにコミットしています
cDaoWS.CommitTrans
cDaoWS.BeginTrans
lngCnt = 0
End If
strErrSQL = varColItem
'Update処理が繰り返し流れます。
.Execute varColItem
Next
.Close
cDaoWS.Close
End With
Set cDaoDB = Nothing
Set cDaoWS = Nothing
End Sub
----------------------------------------------------------------------
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
SQLの速度をあげるには・・・
Visual Basic(VBA)
-
Access クエリ実行が急に非常に遅くなりました。
Access(アクセス)
-
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
-
4
AccessのDAOでフィールド名を配列に格納して・・・
Visual Basic(VBA)
-
5
「RunSQL」と「Execute」の違い
Access(アクセス)
-
6
Access 削除クエリが重い
その他(データベース)
-
7
複数レコードの複数フィールドを一括UPDATE出来ますか?
Oracle
-
8
ACCESSで一括処理する方法
その他(データベース)
-
9
AccessのSQL文で1件のみヒットしたら終了させる構文。
その他(データベース)
-
10
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
11
Accessのフィールド名に半角括弧を使ってしまった
Visual Basic(VBA)
-
12
AccessのDAO.ExecuteとDoCmd.RunSqlの違いについて
その他(データベース)
-
13
どこにもフォーカスを当てたくない
Access(アクセス)
-
14
他のMDBのテーブルに追加したい
その他(プログラミング・Web制作)
-
15
【Oracle】ADOでSELECT * FROM ・・・・ を実行すると処理が遅いんです
その他(データベース)
-
16
Accessのテーブルを既存のExcelファイルへエクスポートしたいんですが
Access(アクセス)
-
17
アクセスをネットワークでリンクさせると非常に遅い!?
その他(データベース)
-
18
ACCESS ADOでupdateが効かない
その他(データベース)
-
19
Access2000 フォーム表示位置が変わる
Word(ワード)
-
20
アクセスでファイルを開いたときにマクロ実行しない方法はありますか?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
警察はスマホに保存した動画や...
-
データベースファイル(.db)を開...
-
Access フォーム上でコンボボッ...
-
AccessのSQLで、FROM句の構文エ...
-
私はシステム会社に務めている...
-
エクセルのフィルタ抽出が固まる
-
式を簡単にしてください。ACCES...
-
Notion@リレーション値の取得...
-
SQLデータベースへのリンクがあ...
-
シャープレジスター エラーコード
-
顧客データベースを作る場合、...
-
データベースの選定について 要...
-
ドリームメーカーってどうやっ...
-
Accessのフォームへ、記録者の...
-
エクセル
-
コンピュータ用語、データベー...
-
コンピュータ
-
ファイルが壊れて読み取れませ...
-
旧filemakerで和暦(令和など)...
-
QSL でのフォーム画面作成について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
DELETE文でFROM句を省略した場合
-
他の処理でselectさせないよう...
-
RDBのテーブル種類の違い
-
同じSELECT文同士でのデ...
-
accessでイベントを中止するよ...
-
object browser で処理を中断す...
-
統計情報の取得=コミットですか?
-
DBリンクエラーについて
-
[性能改善]AccessのDBに大量の...
-
ActiveX DLLでのオラクルのトラ...
-
Oracleから見たOracleの優位性(...
-
処理速度の見積もり時間について。
-
9i→10gバージョンアップ時のト...
-
PL/SQLの平行処理について
-
年度毎にシーケンスの初期化?
-
同一レコード更新時の排他制御
-
バッチ更新のレスポンスが悪い...
-
Access2013で操作ログを残した...
-
チューニング対象のSQLの見つけ...
-
トリガーでロールバックは可能?
おすすめ情報