ベストアンサー

アクセスＶＢＡです。

2016/07/13 22:04

DCountでテーブルのデータを取得するのと ADOのrs("index")で取得するのでは全然早さが違うのですがそれは仕様ですか？

ZSAOZAOXHIE
お礼率89% (75/84)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

ushi2015
ベストアンサー率51% (241/468)

2016/07/14 08:14 回答No.1

こんにちは DCountが遅い、というのは結構良く目にしますね。古めですけど、 http://tsware.jp/labo/labo_35.htm ここに検証がありました。

質問者

お礼 2016/07/17 22:13

ありがとうございました。

関連するQ&A

ACCESS VBA レコードセットの参照方法について

ACCESS2000でシステムを作っています。 ADOを使って、SELECT句に"*" を使用した内部結合でデータを抽出したときの結果の参照方法がわかりません。 SQL="SELECT * FROM table1 INNER JOIN table2 ON table1.id = table2.id" rsはレコードセット,ACはアクティブコネクションとして rs.Open SQL, AC, adOpenKeyset, adLockOptimistic にて結果を取得し、変数aにtable1のフィールド名の値を代入しようとしています。 a = rs!table1.フィールド名では「コンパイルエラー　メソッドまたはデータメンバが見つかりません」となり、値の参照ができません。 "*" でなく、フィールド名を明示してそれぞれのフィールドに "as 別名"をつければ参照できますが、フィールドが多いので "*"を使用したいのです。大変初歩的な質問かと思いますが、どうかよろしくお願いします。m(_ _)m
アクセス　ADO　レコードの件数がおかしい

アクセスADOでクエリの行数を取得したいのですがクエリが２００行でも１００行でも必ず12が返ります。クエリ１は、一度12行の時にａｄｏで数を取得し、その時は、正しく12が返ったのですが、行数が変わっても12が返ります。コードは、 Sub Sample() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.Open "SELECT * FROM クエリ１", cn, adOpenStatic, adLockPessimistic Debug.Print rs.RecordCount rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub です。 Debug.Print DCount("*", "クエリ１") だと、正しいレコード数が取得されるのですが、ＡＤＯだとおかしいです。クエリ１のＳＱＬ文は、 SELECT Q_作業用.* FROM Q_作業用; のように、別のクエリを持ってきています。何が原因なのでしょうか？よろしくお願いします。
アクセスのADO

アクセスのADOでウォッチ式にrsを登録してみていると rs.CursorLocation = adUseClient rs.Open "テーブル1", cn, adOpenStatic, adLockOptimistic を通過後は、 RecordCountには、20と数字が入るのですが、 rs.CursorLocation = adUseClient rs.Open "テーブル2", cn, adOpenStatic, adLockOptimistic にすると RecordCount : <データプロバイダーまたはほかのサービスが E_FAIL 状態を返しました。> となってしまいます。テーブルの中身が原因だと思うのですがどういう条件なら、 <データプロバイダーまたはほかのサービスが E_FAIL 状態を返しました。> になるのでしょうか？ rs.CursorLocation = adUseClient を使う理由は、 rs.Sort = "日付 DESC" とソートする為です。参照設定はMicrosoft Activex Data Objects 2.8 Library にしています。 Access2010・32bitです。
他ファイルのテーブルの情報を取得したい

アクセス　DCount関数で他のファイルのテーブルの件数を取得することは不可能でしょうか？ファイル１.mdbとファイル２mdbがあり、ファイル２mdbには、テーブル名フィールド：a と言うデータがあります。ファイル１.mdbにはテーブルはありません。ファイル１.mdbのＶＢＡでファイル２.mdbのテーブル名のレコード件数を取りたいのですが不可能でしょうか？ファイル１.mdbのＶＢＥで Sub 関数で件数を取得() MsgBox DCount("[テーブル名]", "a") End Sub とやってもエラーになります。この関数にファイルを指定する部分もありません。エラー内容は --------------------------------------------------------- 実行時エラー3078 入力テーブルまたはクエリーが見つかりませんでした。　　　　　　　そのテーブル・クエリーが存在するか確認して下さい。 --------------------------------------------------------- です。 ADOを使うしかないのでしょうか？できればＡＤＯは使いたくありません。アドバイスよろしくお願いします。
アクセス　ADO　Null以外のレコードの件数を取得したい

アクセス　ADO　Null以外のレコードの件数を取得したいテーブルにレコードが１００行あり、そのうちＮｕｌｌ値は４０行あります。（主キーではないです）この時、ADOでNull以外にフィルタをかけたいのですが For i = 1 To RS.RecordCount RS.Filter = "フィールド = '*'" でも RS.Filter = "フィールド = 'Null''" でも、文字列になってしまい、うまくいきません。 RS.Filter = "フィールド "　<> 'Null' だとエラーになります。「<>null」を抽出する方法をご教授願います。
Access DCOUNTの意味

Access DCOUNTの意味 http://okwave.jp/qa/q3078359.html テーブルで重複があったものを除外したデータが欲しいと思い検索した結果上記のURLがヒットしました。ページには、 Sum(1/DCount("*","TABLE1","ID='" & [ID] & "'")) という関数がありますが、ここの意味がわかりません。Dcountの意味は理解しました。ただ、Sum(1/DCOUNT　の意味がわかりません。サイトに解説がかいてあるのですが・・・私には理解できません。例えば、[ID]には001と002のIDコードがあるとします。 001には3レコード、002には2レコードあるとします。 DCOUNTで3という結果と2という結果を得られると思います。よって、SUM(1/3 + 1/2) というように読み取れてしまいました。上記だと2という値が取得したいのですが、私はどこを勘違いしているのでしょうか？
ACCESS VBAでSeekメソッドの処理記述

ACCESSでテーブルにIndexを定義しています。（重複ありで）そのIndexに入っているデータAというのが３件ほどあり、それを全て検索して、処理したいのです。そのためにseekを使って、最初のデータを検索し、次々のデータに行きたいのですが、その場合、対象データの１件目を検索して、次のレコードに移動するには、どのように記述すればよいのでしょうか。本などには、 If rs.EOF thenのような書き方ばかりで１件の処理の場合のみのサンプルしかないのです。よろしくお願いします。
アクセスでリレーションテーブルがあるかを調べるVBA

例えば、作家名のテーブルと本のテーブルがあって、リレーションで結合されています。作家名.ID→本.ID VBAで、全ての作家名のIDで、本.IDを検索したいです。もし、該当するIDがなければ、デフォルトで本.IDと本.名前を追加更新したいです。作家名のテーブルのデータはあるとして、本は一部のデータしかないというケースです。 If rs.RecordCount = 0 Then rs.AddNew rs!ＩＤ = 作家名.ID rs!名前 = "あくせすの本" rs.Update End If rsをどう定義するか？一括更新するために、Do Until rs.EOF をどういう風に使うか？それとも、別のいい方法があればよろしくお願いします。
ACCESS VBA

ACCESSで検索フォームを作りたいと思っています。 VBAを使って行きたいと思うのですが、うまくいきません。希望としては、該当するレコードのデータを抽出したいです。よろしくお願いいたします。 ※現段階でのソースを書いてみました。最終的に行いたい処理とは違うのですが、根本的に間違っているようなので簡略化しました。 /------------------------------------------------/ Private Sub コマンド1_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String '接続 Set cn = CurrentProject.Connection 'レコードセットを取得 Set rs = New ADODB.Recordset sql = "SELECT * FROM 従業員データ " & _ "WHERE 年齢=30" rs.Open sql, cn, adOpenDynamic, adLockReadOnly rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub /------------------------------------------------/
VBAでAccessのテーブルのエクスポート・インポートをするには。

すみませんが、教えてください。 Excel＋VBAで、AccessをSQL,ADO,ADOXで操作しようとしています。 a.mdbのテーブルを、b.mdbに、エクスポート(インポート)したいのですが、やり方がわからず困っています。すみませんが、テーブル構造のみをエクスポートする方法、データを含めてエクスポートする方法を教えてください。
ACCESS-VBA の組み方　(ADOと表の世界）

この質問は、No.1575853、No.1584218をベースとします。テーブルをソートして、特定のフィールドに通番をいれるVBAはできました。これは、フォームにボタンを設定して、イベントプロシージャ ADO(またはDAO)を使って裏の世界で処理してしまうものです（下記VBA参照）これを、表の世界で表示させながら実現したのです。－フォームにテーブルをもってくるには、エクセルのような「Datasheet」形式か、「Tabular」形式等がある。－「Tabular」形式では、先頭に空間を持たせて、そこにボタンを設定できるが、　「Datasheet」形式では、デザインビューでボタンを設定できても、実行画面ではボタンは表示されない。－ADO(またはDAO)は裏の世界でのものであり、表の世界でリアルタイムで反映表示する方法はわかっていない。今回の質問は、（１）テーブルを開いて、何らかの方法で、VBAを起動して、結果を得る方法（２）フォーム上にボタンと「Datasheet」形式でデータを表示し、裏の世界(ADO)と表の世界 (見えているテーブル)とリアルタイムでリンクさせる方法。２つについて、よろしくお願い致します。 -- Public Sub 実行2_Click() Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Dim Cnt As Long MyCount = 1 Set Cn = CurrentProject.Connection Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Rs.Open "[データテーブル]", Cn, adOpenKeyset,adLockOptimistic Rs.Sort = "[氏名] ASC,[データ] ASC" '並べ替え temp = "" Do Until Rs.EOF If temp <> Rs![氏名] Then MyCount = 1 Else MyCount = MyCount + 1 End If temp = Rs![氏名] Rs![通番] = MyCount Rs.Update Rs.MoveNext '次のレコードに移動 Loop Rs.Close: Set Rs = Nothing Cn.Close: Set Cn = Nothing End Sub
ADOで現在のレコードの次のレコードの値も取得

ADOで現在のレコードの次のレコードの値も取得するには？アクセスに対してADOでデータを取得しているのですが例えばテーブルにフィールド1 あああいいいうううと入ってる時に、1レコード目のあああの値を取得しているときに、同時に次のレコードのいいいの値も取得することは可能ですか？ Sub Sample() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.Open "SELECT * FROM テーブル1", cn, adOpenStatic, adLockPessimistic For i = 1 To rs.RecordCount MsgBox rs("フィールド1") '現在のレコード MsgBox rs("フィールド1") + 1 '次のレコード rs.MoveNext Next rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub これだとダメなようです。あああいいいが表示されるようにしたいのですが、どうすればいいか教えてください。
Access起動中にエクセルからADOでデータの更新ができない

こんばんは。原因がわからないので質問させてください。 SQLサーバーのデータをAccessのmdbへリンクテーブルしています。（SQLサーバー　→　Access）全て一つのパソコンで行なっています。（LANには接続していません） Accessのmdbファイルを起動している時に ExcelからSQLサーバーのAccessにリンクしている上記のテーブルへ ADOを使ってデータを追加しています。（Excel　→　Access）　しかし、「rs.Update」の部分で　「ODBC--リンク　テーブル'テーブル1'での更新に失敗しました。」となってしまいます。なので、一度mdbファイルを落として、コードを再開すると通るので ADOでExcel　→　Accessにデータを追加し終わってから再度mdbファイルを立ち上げています。また同じ状態（mdbファイルを起動）で Excel　→　SQLサーバー　へ更新クエリをしようとすると「時間切れになりました」となります。（こちらもmdbファイルを落とすと再開できます。）いちいちmdbファイルを落とすのめんどうなのですが回避する方法はありますか？ cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Users\Documents.test.mdb" rs.Open "テーブル", cn, adOpenStatic, adLockPessimistic rs("フィールド") = True rs.Update '保存 rs.Close: Set rs = Nothing というコードを書いています。 Accessを落とせば正常に動きます。ご教授よろしくお願い致します。
Accessでのデータベースの使用(VBA)

Private Sub 実行_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim StSQL As String Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset strSQL = "INSERT INTO マスタ(コード) VALUES(コード) ;" rs.Open strSQL, cn, , adLockOptimistic '//前のコード（エラーになりました。） ' rs.Close 'cn.Close 'Set rs = Nothing 'Set cn = Nothing Set rs = Nothing: Close Set cn = Nothing: Close Accessを使用したvbaのコードの書き方について教えてほしいです。毎度Access の質問ばかりしてすみません。以下のコードはADOを使用してマスタというテーブルを読み込んで最後にrs.CloseでRecordSetを開放しようとしたのですが「オブジェクトが閉じている場合は、操作は許可されません。」というエラーメッセージが出てしまい原因がわかりませんでした。Openしていて開いているはずなのにエラーが出てしまい、 Set rs = Nothing: Closeに変えたら治りました。何故rs.Closeではエラーが出てしまったのでしょうか。もう一つお聞きしたいです。 strSQL = "INSERT INTO マスタ(コード) VALUES(コード) ;"でコードという名前を付けたテキストボックスの値をマスタテーブルのコードの列に追加したいのですがテキストボックスの値の取り方が分かりません。（コード.Value）とやってみてもだめでした。どうやったらSQL文でテキストボックスの値をテーブルに追加できるんでしょうか。
アクセスで困っています。

アクセスでデーターベースを作成しているのですが、エクセルからADOを使いテーブルにデータを入力し、フォームでデータ内容についての情報を見れるようになっています。しかし、フォーム上でテーブルに連結してある情報の変更ができないのですが、どのように設定すれば、フォーム上でテーブルの情報を書き換えることができるのでしょうか？プロパティのデータ入力用は、「はい」でも「いいえ」どちらでやってもだめです。テーブル ↓ フォーム　（ここでデータを入力し、テーブル内容の変更をしたい。）よろしくお願いします。
数値のMAXの値を取得したい　ADO　VBA

アクセスです。 ADOで該当のフィールドの数値のMAXの値を取得するにはどうすればいいですか？テーブルの番号フィールドには、 1 2 3 4 5 と入っているのですが、この場合、一番大きい値は５なので MAX関数のようなもので５を返したいのですが ADOにそのようなプロパティはありますか？オブジェクトブラウザーでRecordsetを見てみましたが見つけられませんでした。 Sub Sample() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.CursorLocation = adUseClient rs.Open "SELECT * FROM T_test", cn, adOpenStatic, adLockPessimistic rs.Sort = "番号 DESC" Debug.Print rs("番号").Value rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub これで同じような動きは出来ますが、もっとシンプルにできませんか？
Access2010 テキスト型をスペース埋めずに

Access2010でテキスト型の項目に、テーブルを開いて直セル入力orコピペでデータを入力すると、最大文字長(255文字)まで後ろにスペースが埋められるのですが VBAでADOを使ってデータをINSERTするとスペース埋めされないようです。これはAccessの仕様ですか？それとも私の勘違いでしょうか。できればスペース埋めずに登録したいのですが・・・。
アクセスＡＤＯ　複数のレコードがあるのに-１が返る

アクセスのＡＤＯを作っています。テーブルにレコードは複数あるのですが、Filterをすると必ず-1が返ります。どうしてでしょうか？エラーになってるのでしょうか？ ---------------------------------------------------- Set cn = CurrentProject.Connection myStr = "test" rs.Open "Tテーブル", cn, adOpenForwardOnly, adLockReadOnly rs.Filter = ("フィールド1=" & "'" & myStr & "'") MsgBox rs.RecordCount　’マイナス-1になる rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing ---------------------------------------------------- rs.Open の下に、MsgBox rs.RecordCountを置いても、-1になることから、Filter のせいではないと思うのですが原因がわかりません。ご教授よろしくお願いします。
アクセス　置換　どちらが早いのでしょうか？

アクセスで一つのテーブルに対して３０回更新クエリでデータを置換するのと ADOで３０回データを置換するのでは、どちらが早いのでしょうか？どちらもReplaceを使います。
VBA ADOに関して

お世話になります。 VBAに関して質問があります。 ADOでDBから値を取得する際、 TEXT型の値が全く取れてきません。どなたか取得方法をご教授下さい。宜しくお願い致します。 DB：Sybase OS: RedHat 8.0 Dim rs As ADODB.Recordset Dim sql As String sql = "select * from " & tblName //dbはADODB.Connection Set rs = db.Execute(sql) Do While Not rs.EOF //ここでTEXT型だと、取れてきません。　If IsNull(rs.Fields('Field名').Value)　Then End If rs.MoveNext Loop

アクセスＶＢＡです。

質問者が選んだベストアンサー

お礼 2016/07/17 22:13

関連するQ&A

ACCESS VBA レコードセットの参照方法について

アクセス　ADO　レコードの件数がおかしい

アクセスのADO

他ファイルのテーブルの情報を取得したい

アクセス　ADO　Null以外のレコードの件数を取得したい

Access DCOUNTの意味

ACCESS VBAでSeekメソッドの処理記述

アクセスでリレーションテーブルがあるかを調べるVBA

ACCESS VBA

VBAでAccessのテーブルのエクスポート・インポートをするには。

ACCESS-VBA の組み方　(ADOと表の世界）

ADOで現在のレコードの次のレコードの値も取得

Access起動中にエクセルからADOでデータの更新ができない

Accessでのデータベースの使用(VBA)

アクセスで困っています。

数値のMAXの値を取得したい　ADO　VBA

Access2010 テキスト型をスペース埋めずに

アクセスＡＤＯ　複数のレコードがあるのに-１が返る

アクセス　置換　どちらが早いのでしょうか？

VBA ADOに関して

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

アクセスＶＢＡです。

質問者が選んだベストアンサー

お礼 2016/07/17 22:13

関連するQ&A

ACCESS VBA レコードセットの参照方法について

アクセス ADO レコードの件数がおかしい

アクセスのADO

他ファイルのテーブルの情報を取得したい

アクセス ADO Null以外のレコードの件数を取得したい

Access DCOUNTの意味

ACCESS VBAでSeekメソッドの処理記述

アクセスでリレーションテーブルがあるかを調べるVBA

ACCESS VBA

VBAでAccessのテーブルのエクスポート・インポートをするには。

ACCESS-VBA の組み方 (ADOと表の世界）

ADOで現在のレコードの次のレコードの値も取得

Access起動中にエクセルからADOでデータの更新ができない

Accessでのデータベースの使用(VBA)

アクセスで困っています。

数値のMAXの値を取得したい ADO VBA

Access2010 テキスト型をスペース埋めずに

アクセスＡＤＯ 複数のレコードがあるのに-１が返る

アクセス 置換 どちらが早いのでしょうか？

VBA ADOに関して

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

アクセス　ADO　レコードの件数がおかしい

アクセス　ADO　Null以外のレコードの件数を取得したい

ACCESS-VBA の組み方　(ADOと表の世界）

数値のMAXの値を取得したい　ADO　VBA

アクセスＡＤＯ　複数のレコードがあるのに-１が返る

アクセス　置換　どちらが早いのでしょうか？

カテゴリ
一覧

専門家に質問してみよう
専門家登録