質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

SQL

SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

Q&A

解決済

1回答

9351閲覧

Access2013メモリ不足。Cn.Execute →Rs().value=XX,Rs.update →Cn.Execute →件数によりエラー

NatchyYotchy

総合スコア10

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

SQL

SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

0グッド

1クリップ

投稿2017/01/13 03:53

初めて投稿します。よろしくお願いします。

●現象
Access2013。
メモリ不足です、というエラーが発生します。
構文が悪いのか、構文以外に問題がありそうなのか、判断して頂けないでしょうか。


Sub Sample()
Dim Cn As ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Sql As String
Dim i As Long

sub Sample()
Set Cn = Application.CurrentProject.Connection
Cn.Execute "UPDATE TMP SET F1='A'"
Cn.BeginTrans
Sql = "SELECT F1 AS N FROM TMP"
Rs.Open Sql, Cn, adOpenForwardOnly, adLockPessimistic
Do While Not Rs.EOF
i = i + 1
Rs("N").Value = CStr(i)
Rs.Update
If i Mod 1000 = 0 Then
Debug.Print i
Cn.CommitTrans
Cn.BeginTrans
End If
Rs.MoveNext
DoEvents
Loop
Rs.Close
Cn.CommitTrans
'ここでエラーになる。
Cn.Execute "UPDATE TMP SET F2='AA' WHERE F3='BB'"
Debug.Print "owata"
End Sub


テーブル TMPは、次のように定義。
CREATE TABLE(L INT,F1 NVARCHAR(255),F2 NVARCHAR(255),F3 NVARCHAR(255),・・・)
CREATE UNIQUE INDEX PK ON TMP (L) WITH PRIMARY


TMPのレコード数が15,649件でエラーになります。
それ以下だと、owata 迄、処理されます。


一時的なテーブルを作成し、CSVファイルのデータを取り込みます。
その一時的なテーブル(TMP)に、判定結果や、加工したデータを書き込みます。
場合によっては、所定の行を削除することもあります。
このような作業用テーブルを作成していたのですが、扱うデータ数も増えたのか、
今回、このようなエラーが発生するようになりました。

オブジェクトの開放や、レコードセットの作成など、見よう見まねですので、理屈はよく理解していません。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

自己解決

解決。原因は、テーブルの肥大化にあった。ワークテーブルを外に出して、適時、最適化を行うようにしたところ、解決した。

投稿2017/01/14 08:43

NatchyYotchy

総合スコア10

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問