AccessSQL COUNT文で該当レコード抽出したい
- Access2000であるテーブルの条件に一致したレコード件数を抽出するSQLを作成しました。
- 条件に該当しない場合も１件で件数が戻ってきてしまいます。
- AccessクエリでＳＱＬを貼り付けて検証した場合はちゃんと０件になるのですがVBAのコードではうまく件数が抽出されません。
- ベストアンサー
AccessSQL COUNT文で該当レコード抽出したい
初心者です。 Access2000であるテーブルの条件に一致した レコード件数を抽出するSQLを作成しました。 条件に該当しない場合も１件で件数が戻ってきてしまいます。 AccessクエリでＳＱＬを貼り付けて 検証した場合はちゃんと０件になるのですが VBAのコードではうまく件数が抽出されません。 簡単なことだったらごめんなさい。 いろいろなサイトで探した末、 どうしても解決できないので ご教授よろしくお願いします。 Dim strSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim IntCount As integer 'SQL文を生成 strSQL = "SELECT COUNT(*) AS 件数 FROM テーブル名 " strSQL = strSQL & "WHERE テーブル名.コード = '" strSQL = strSQL & Forms![フォーム名]![txtコード] strSQL = strSQL & "' AND Left([テーブル名]![区分],1) = '" strSQL = strSQL & Forms![フォーム名]![cnb種類].Column(0) strSQL = strSQL & "' AND テーブル名.名称 = '" strSQL = strSQL & Forms![フォーム名]![txt名称] strSQL = strSQL & "';" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) IntCount = rs.RecordCount rs.Close Set db = Nothing Set rs = Nothing
- teartisu
- お礼率75% (25/33)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
RecordCountで取得しているのが間違いでしょう これは 返される行数が何行あるかを表すプロパティですから該当しなくても1(行)となります 何件ヒットしたかは rs(0).Value を参照しないといけないかと思います 複数ヒットするような条件を与えて RecordCountとrs(0).Valueの違いを検証してみてください
関連するQ&A
- レコード件数が返らない理由がわからない
テーブル1にはレコードが5件入ってるのですが Private Sub レコード件数() Dim strSQL As String Dim rs As DAO.Recordset strSQL = "SELECT * FROM テーブル1;" Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) Debug.Print rs.RecordCount End Sub これをすると1が返るのですがなぜでしょうか？ レコードの数が返ると思ってるのですが違うのでしょうか？
- ベストアンサー
- オフィス系ソフト
- SQLとDAOで取得するレコード件数が違う？
Access2007でSQLで実行した結果と、レコードセットで取得した件数が一致せずに困っています。 いろいろ調べてはみたのですが、なぜかわかりません。 よろしくお願いします。 ○TableA 型 Code1 数値型（主キー） Text テキスト型 Code2 数値型 ○TableA データ Code1 Text Code2 111 AAA 10 112 BBB 15 113 CCC 20 114 DDD 20 ○VBAコード Dim strSQL As String Dim db As DAO.Database Dim rstFind As DAO.Recordset strSQL = "SELECT * FROM TableA Where Code2 = 20" Set db = CurrentDb() Set rstFind = db.OpenRecordset(strSQL, dbOpenSnapshot) MsgBox rstFind.RecordCount この状態でSQLビューから実行すると２件が抽出され、上記VBAを実行するとMsgBoxには「１」と表示されます。
- ベストアンサー
- オフィス系ソフト
- 初歩的なＳＱＬですが・・・
私の環境はＯＳ：Ｘｐ ＡＣＣＥＳＳ２０００です。 宜しくお願いします 今ＡｃｃｅｓｓＶＢＡで作業をしているのですが、 Dim ws As DAO.Workspace Dim DB As DAO.Database Dim rs As DAO.Recordset Dim sql As String Set ws = DBEngine.Workspaces(0) Set DB = ws.Databases(0) sql = "select MAX(銀行コード) from 銀行テーブル ;" Set rs = DB.OpenRecordset(sql) Me.合計 = rs このＳＱＬ文で銀行テーブルに入っている銀行コードの最大値を取得したいのですが、取得した後どのように記述したら「ｒｓ」から値を引っ張り出せるのでしょうか？ 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- 空欄を含む項目のレコードセット
Access 2003 DAO.Recordsetにてデータを取得しようと思うのですが テーブル項目に空欄がある場合はどのように書けばよろしいのでしょうか？ Dim DB As DAO.Database Dim RS As DAO.Recordset Set DB = CurrentDb Set RS = daoDB.OpenRecordset("Aテーブル", dbOpenDynaset) RS.AddNew daoRS!ああ ああ = xx RS!Update ・・・ とするとエラーになります。 項目名"ああ ああ"はどのように書けばいいのでしょうか？ よろしくおねがいします。
- 締切済み
- オフィス系ソフト
- レコード更新について
レコード更新について 環境：ACCESS2000 状況：メインフォーム（マスター登録ボタン付） サブフォーム（マスターテーブルをドラッグして貼り付けたもの） マスターテーブル（品番 ／ レンタル日 ／ 返却日 ／ 貸出状況） やりたい事：サブフォームに表示してあるデータに 返却日をサブフォーム上で入力し（件数は不定）、そして 返却日が入力されたものの貸出状況を"返却済"と変更登録したい。 現状：コマンドボタンのイベントに Private Sub マスター登録ボタン_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("マスターテーブル", dbOpenDynaset) If rs!返却日 <> "" Then rs.Edit rs!貸出状況 = "返却済" rs.Update End If rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub しかし、上記コードでは返却日はマスターテーブルに反映しているのですが 貸出状況が変わってなく、どのようにしたら良いかわからないため ご質問させて頂きました。 まだまだACCESS勉強中で未熟なため、検討違いなコードになっているかもしれませんが コードの修正・改善、または全く違う方法等ご教授願えればと思います。
- ベストアンサー
- その他（プログラミング・開発）
- Yes/Noフラグの値をコピーできない
すいません。ACCESS2003 VBAで下記の問題で困っています。 新たに作成したmdbファイル(テーブルの中身は空)に既存のmdbファイルのテーブル内容をコピーしたいのですが、Yes/Noフラグ型だけ移行できません。一応サンプルのソースです↓ Dim db As DAO.Database Dim RS As DAO.Recordset Dim strsql As String コピー元のmdbファイルをオープン Set db = OpenDatabase("コピー元mdb") 'SQLの生成 strsql = "" strsql = strsql & " SELECT * FROM テーブル名" 'レコードセット生成 Set RS = db.OpenRecordset(strsql, dbOpenSnapshot, dbReadOnly) 'コピー元テーブルにデータがあるか判定 If RS.RecordCount = 0 Then msgbox "データがありません" Else RS.MoveFirst 'コピー先のデータベースを設定 Set db = OpenDatabase("コピー先mdb") 'レコードの初期化 db.Execute (DELETE FROM コピー先テーブル名) Do While RS.EOF = False strsql = "" strsql = strsql & " INSERT INTO コピー先テーブル名(" strsql = strsql & " ,コピー先のYes/Noフラグ値" ' strsql = strsql & ")VALUES(" strsql = strsql & " ,'"コピー元のYes/Noフラグ値 "' " strsql = strsql & ")" db.Execute (strsql) RS.MoveNext Loop End If RS.Close db.Close
- ベストアンサー
- その他(データベース)
- Access レコードを分割してフォームで表示
Access 2007です。 下記のような日記テーブルがあり、 その「行動」フィールドの中身を「●」の記号で レコードに分割して、 フォームに表示したいと思っています。 日記テーブル ID 年月日 天気 行動 １ 2014/1/10 晴 ●読書。●新聞を読む。●散歩。 ２ 2014/1/11 曇 ●電車に乗る。●新年会。●庭の手入れ。●カラオケ。 ３ 2014/1/12 曇 ●昼寝。 ４ 2014/1/13 雨 ●買い物。●読書。 ・・・・ 結果フォーム（データシートビュー）で表示 年月日 行動 2014/1/10 読書。 2014/1/10 新聞を読む。 2014/1/10 散歩。 2014/1/11 電車に乗る。 2014/1/11 新年会。 2014/1/11 庭の手入れ。 2014/1/11 カラオケ。 2014/1/12 昼寝。 2014/1/13 買い物。 2014/1/13 読書。 もとの日記テーブルのデータは変更しません。 下記のように、VBAのコードの中で、 レコードセットを使えば、上記のようなレコードの分割ができると思うのですが、 うまくいきません。 rs2というレコードセットをどうやって作成すればいいのかわかりません。 （Set rs2 = DB.OpenRecordset ・・・ のような行が必要ではないか、と思うのですが、 そのやり方がわかりません。） やり方を教えていただけたら幸いです。 Dim DB As DAO.Database Set DB = CurrentDb() Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Set rs1 = DB.OpenRecordset("日記テーブル", dbOpenForwardOnly) Dim A As Variant Do Until rs1.EOF A = Split(rs1!行動, "●") For i = 1 to UBound(A) rs2.AddNew rs2!年月日 = rs1!年月日 rs2!行動 = rs1!A(i) rs2.Update Next i rs1.MoveNext Loop DoCmd.OpenForm "結果フォーム" Set Forms!結果フォーム.Recordset = rs2
- 締切済み
- その他MS Office製品
- SELECT文を発行して、ACCESSより取得する方法
既存のプログラムを元に、 以下のようなソースを作成したのですが、 取得出来ませんでした。 参照設定やパスの設定、SQL文は正しいです。 どこがマズイのでしょうか？ アドバイスをお願い致します。 Dim db As DAO.Database Dim rs As DAO.Recordset Dim SQL As String 'データベース接続 Set db = OpenDatabase("DBのパス") 'データ検索SQL SQL = "" SQL = " SELECT文 " 'ACCESSより取得 Set rs = db.OpenRecordset(SQL) db.Close rs.Close
- ベストアンサー
- Visual Basic
- ACCESSでSQL文を実行した結果を参照したいのですが。
どなたか助けてください。 環境はWin98 ACCESS2000です。 画面で入力されたコードをもとに、そのコードがテーブルに存在した場合とない場合で次画面のフォームで処理を分けたいと考えています。そのため、SQLを実行した結果の別のコードを参照したいのですが、参照の仕方がわかりません。 コードの検索画面のクリック時のイベントプロシジャ内で Private Sub Cmd_Find_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim mySql As String Set db = CurrentDb() mySql = "SELECT T_Name FROM T_テーブル " _ & "WHERE T_Code = " & Frm_Code Set rs = db.OpenRecordset(mySql) If rs.EOF Then ・・・ない場合の処理 Else Set Me.Recordset = rs → ココでSELECT文で実行したT_Nameを参照したい End If Set rs = Nothing Set db = Nothing End Sub T_テーブル内にT_NameとT_Codeがあり フォームのテキストボックスの値のFrm_Codeを条件に検索した結果のT_Nameを参照したいのです。 フォームは非連結で処理を行いたいのですが、どのように参照すればいいのでしょうか。本で調べたところ、普通にT_Nameを使っているのですがうまくいきません。 どなたか下手な説明で申し訳ありませんがお願いします。
- ベストアンサー
- オフィス系ソフト
- ADOでRecordsetオブジェクトをレコードソースに設定したい
Access2000を使っています。リンクテーブルを使わずに、ODBCで繋いだDBのテーブルをフォームのレコードソースにセットしたいのですが、可能でしょうか。 宜しくお願いします。 Private Sub FormNoKansu() Dim cn as New ADODB.Connection Dim rs as New ADODB.Recordset Dim strSql as String 'ODBCでサーバーに接続 cn.ConnectionString = "ODBCでMySQLに..." ... strSql = "SELECT * FROM ..." rs.Open strSql, cn 'ここに[rs]を入れられたらと思っています Me.Recordset = "" End Sub
- ベストアンサー
- その他(データベース)
お礼
>複数ヒットするような条件を与えて RecordCountとrs(0).Valueの違いを検証してみてください 検証してみたらおっしゃる通りで、うまく件数も抽出できました。 わかりやすくご説明していただいたおかげで 理解が深まりました。 この点を踏まえて詳細を学習してみます。 独学でACCESSを勉強中ですので また機会がありましたら是非よろしくお願いします。