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

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

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

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

SQL

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

解決済

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

NatchyYotchy
NatchyYotchy

総合スコア0

Access

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

SQL

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

1回答

0評価

1クリップ

8177閲覧

投稿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)に、判定結果や、加工したデータを書き込みます。
場合によっては、所定の行を削除することもあります。
このような作業用テーブルを作成していたのですが、扱うデータ数も増えたのか、
今回、このようなエラーが発生するようになりました。

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

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

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

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

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

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

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

ただいまの回答率
87.20%

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

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

質問する

関連した質問

同じタグがついた質問を見る

Access

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

SQL

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