- ベストアンサー
VB2010でのDAOを使用してのデータベース接続において、クエリ結果とレコードセット結果が異なる
angel_Zの回答
- angel_Z
- ベストアンサー率66% (12/18)
こんにちは。 半濁点も追加します。 SELECT MST_得意先.* FROM MST_得意先 WHERE InStr(StrConv(MST_得意先.得意先フリガナ,4),'゛')=0 and InStr(StrConv(MST_得意先.得意先フリガナ,4),'゜')=0 文字列を全角にしているので大丈夫かと。
関連するQ&A
- レコードセットからレコードセットって作れますか？
WindowsXP,VB6,SP5,で開発しています。 タイトルそのままなのですが、 ある事情で、まずはデータベース(Access)からレコードセットを作成しています。 そのレコードセットをもとに色々と抽出したいんです。 もし、データベースからSQL文で抽出するときみたいに、そのレコードセットを、 SUM(～とかGROUP化したりとかできればいいなあと思っているのですが、 その方法がわからず、2,3回遠回りしてレコードセットを作成してます。 レコードセットからレコードセットを作成することってできないのでしょうか？ わかりにくくてすみませんが、どうぞよろしくお願いしますm(_ _)m
- ベストアンサー
- Visual Basic
- Access クエリでレコードセット作成
Access2010でVBAを勉強しています。クエリオブジェクトからレコードセットを作れるかお教えください。 クエリのデザイン作成で３つのテーブルからデータを抽出するクエリを作りました。 このクエリオブジェクトからレコードセットを作りたいと思っていますが、作り方がわかりません。 よってクエリオブジェクトのSQLビューでSQLを確認し、VBAの中で下記のようにSQLを作ってレコードセットを作っています。 これだと効率が悪いので、クエリオブジェクトから直接レコードセットがつくれないかと思っています。 方法がありましたらお教え下さい。よろしくお願いします。 strSQL = "SELECT master.[サイズ], master.単価," strSQL = strSQL & "Nz([入庫数量の合計])-Nz([出庫数量の合計]) AS 在庫数" strSQL = strSQL & " FROM (master LEFT JOIN Q_出庫 ON master.[サイズ] = Q_出庫.[サイズ])" strSQL = strSQL & " LEFT JOIN Q_入庫 ON master.[サイズ] = Q_入庫.[サイズ]" objADORS.Open "T_出庫", objADOCON, adOpenDynamic, adLockOptimistic
- ベストアンサー
- Access（アクセス）
- クエリ表示と、ADOで抽出したレコードセットが違う
Accessで作ったクエリで表示されるデータと、VBAでSQLを組んでそのクエリから抽出したデータが異なるので困っています。 ちょっと言葉では説明しにくいので表で説明します。 元となるテーブル(t_test)がたとえば以下のようになっているとします。 t_test 顧客id 商品id 1 A-1 2 A-2 3 B-1 4 A-1 これを元に、以下のようなクエリ(q_test)を作ります。 q_test 顧客id 商品id 式1: IIf([商品id] Like "A*",1,0) 1 A-1 1 2 A-2 1 3 B-1 0 4 A-1 1 VBAで以下のようなSQLを実行すると、なぜか式1の値が全て0となります。 sql = "SELECT * FROM q_test" 1 A-1 0 2 A-2 0 3 B-1 0 4 A-1 0 式1でLIKEを使っていることが原因なのか、 IIf([商品id] = "A-1",1,0) とかだと、クエリとSQLの結果に違いはありません。 IIｆだけでなくSwitchを使った場合も同様（LIKEだとおかしい、=だと平気）でした。 ちなみに、Accessのバージョンは2003、VBAで使っているレコードセットはADODBです。 （今確認したところ、DAOでは問題なくできました。） 冒頭で、困っていると書きましたが、これを回避する方法はいくつか思いついていますので、 別の方法を教えていただきたいわけではなく、単純になぜこのようなことが起きるのかが知りたいです。 是非よろしくお願いします。
- 締切済み
- オフィス系ソフト
- Access2000のADOのレコードセットに先頭一致SQLを指定できない
お世話になっています。 さて、住所録があって、その住所の先頭と一致するレコードをSQLで抽出してその結果をレコードセットに代入したいのですが。 SQLは "SELECT 住所録.住所 FROM 住所録 WHERE 住所録.住所 Like '" & str住所検索 & "*';" というような感じです。（もうちょっといろいろあるけど） それで、 rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdText rstはADOのレコードセットで、strSQLには上記のSQL文が代入されています。str住所検索には、検索したい住所の一部が代入されています。 これを実行すると、レコードセットにレコードが抽出されません。 WHERE句を 住所録.住所 = '" & str住所検索 & "';" と完全一致にすると抽出します。 しかし、全部の住所が一致するレコードを集めたいわけではないので、これでは困ります。 ちなみに、クエリーで実行するとちゃんと集まります。 なんとか、レコードセットにあいまい検索の抽出結果を代入できないでしょうか？ ADOのレコードセットにはLike演算子は使えないのでしょうか？ よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- ACCESS レコードセット
非連結フォーム(frm_B)のOPEN時にADOレコードセットでデータを表示させ、更新ボタンを押すと、追加クエリでそのフォーム上で表示されたデータをテーブル(tbl_B)に新規登録させ、さらにその非連結フォームには別のフォームの内容を表示させるVBAを書きましたが、最後に別のフォームの内容で非連結フォームにデータをセットしたとき？にテーブルのデータも更新されてしまいます。最初にテーブルに追加したデータとは切り離したいのですがどうすればうまくいくのでしょうか。 ・フォームfrm_BをOPEN 'DAOレコードセット Dim dbDAO As DAO.Database Dim rsDAO As DAO.Recordset Dim stSQL As String stSQL = "SELECT No.,規格No.,改訂No. FROM tbl_B " _ & "WHERE 規格No. ='" & Forms![frm_A].[規格No.] & "'" _ & "AND 改訂No. =" & Forms![frm_A].[改訂No.] & "" 'DAOレコードセット Set dbDAO = CurrentDb Set rsDAO = dbDAO.OpenRecordset(stSQL) Set Me.Recordset = rsDAO Me![No.].ControlSource = "No." Me![規格No.].ControlSource = "規格No." Me![改訂No.].ControlSource = "改訂No." 'DAOレコードセットクローズ Set rsDAO = Nothing Set dbDAO = Nothing ・更新ボタンクリック Private Sub cb_kaitei_Click() Dim stDocName As String '追加クエリ stDocName = "q_B" DoCmd.OpenQuery stDocName, acNormal, acEdit Forms![frm_B].SetFocus Me![No.] = Forms![frm_A].[No.] Me![規格No.] = Forms![frm_A].[規格No.] Me![改訂No.] = Forms![frm_A].[改訂No.] ・ このときにレコードセットで追加したレコードのほうも更新されてしまいます。これを別のレコードと判断させたいのです。よろしくお願いします。
- ベストアンサー
- その他(データベース)
- ACCESS更新クエリー活用方法について
ACCESSでテーブルから抽出したクエリーで表示された特定の列だけに 1という数字をふりたいのですが、 update 抽出元のテーブル set 任意のセル = 1 where クエリー名 上記方法、更新クエリーで上記SQLを設定しても、クエリー実行時に、 バラメータを要求され、結果 全てのテーブル列に1がふられます。 式が違うのでしょうか。あくまでもクエリーで抽出されたものだけに 1をふりたいのですが。 デザインビューにしてSQLビューに切るかえる。 select 列 from 抽出元のテーブル where 抽出の条件 ; みたいなデータです。 where の前を書き換えます。 select 列 from 抽出元のテーブル の部分を update 抽出元のテーブル set 任意のセル = 1 としてください。 最終的には以下のイメージ update 抽出元のテーブル set 任意のセル = 1 where 抽出の条件 ;
- ベストアンサー
- その他MS Office製品
- MS accessのクエリの作り方について
お世話になります。 画像のようなテーブル1があり、 クエリ結果(1)、クエリ結果(2)を出力しようとしています。 どのようにクエリを作ればよいか教えていただけないでしょうか。 access2000を使用しております。 VB・SQLの知識がないため、クエリで作ろうとしています。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- レコードセットに新規追加する
Access2013 VBAで ■テーブルa ・id ・名前 ・id2 とあり このテーブルのレコードセットを以下のように作ります。 dim Rec = dao.Recordset Set Db = CurrentDB set Rec = Db.OpenRecordset("Select * from [テーブルa] where id2 = " & 2, dbOpenDynaset) この時、このテーブルにid2=2のレコードが何もない場合、この生成したRecで、 Rec.AddNew Rec.Fields("名前").value = "名前" Rec.Update と出来ますでしょうか？ よろしくお願いします。
- ベストアンサー
- その他(データベース)
- クエリの条件にての"*"の使い方
いつもお世話になっております。 Access2000にてクエリの抽出条件で悩んでいます。フォームにて入力があったときはそれで抽出・入力が無かった時は全て抽出したいと思い Like forms![フォーム名]![コントロール名]&"*" をクエリの抽出条件にセットしました。入力があったときはOKなのですが、入力が無かった時はテーブルにデータがあるレコードのみを抽出してしまいます。データが入ってないレコードも抽出したいのですがどのように記述すればいいのでしょうか? 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
返事が遅くなり申し訳ありません。 さらに私の説明不足だったようで、検索部分は変数で持ち、Like演算子をしようして部分一致検索をしようと思っています。 よって濁点、半濁点がついた文字列も検索対象になる場合があります。（例：「*ガ*」という文字列を検索するときもあり、「*カ*」という文字列を検索する時もます。） 現在の私のSQL文ですと「*ガ*」を検索した時は正常に抽出されますが、「*カ*」を検索した時は、「*カ*」＋「*ガ*」が抽出されてしまいます。 私の説明不足と勉強不足で申し訳ないのですが、ご教示していただいたSQL文ですと、濁点＋半濁点を除いた形での抽出方法になると思われます。
補足
いろいろ試してみたところ、２文字以上はLike演算子で正常に動作するようです。 １文字で濁点・半濁点なしの文字の場合(静音)のみ、濁点や半濁点を抽出してしまうようです。 ご教示していただいた方法ですと、濁点・半濁点をのぞく全てのレコードを抽出してしまいます。 大変お手数ですが、指定した文字だけの部分一致を抽出する方法をご教示していただけるとありがたいです。