ACCESSで複数主キーにおけるseek検索
ACCESS2000で複数の主キーを持つテーブルからseekで一致検索を行いたいが、
ADOを利用した場合のコードの書き方がわかりません。
テーブルは以下の3つのフィールドから構成されます。
フィールド1:フィールド2:フィールド3
年月日:担当職員:応対結果
ここで主キーは「年月日」と「担当職員」の2つで、「年月日」と「担当職員」が
一致するレコードをseekによって検索したいのです。
インデックスを表示させると「年月日」と「担当職員」が表示されます。
「年月日」の欄にのみ、インデックス名の欄にPrimaryKeyと書かれています。
DAOを用いて検索部分をVBAで書いたら動きました。
以下に検索部分だけ書きます。
(1) ds.Index = "PrimaryKey"
(2) ds.Seek "=", 年月日, 担当職員
(3) If ds.NoMatch Then
(4) MsgBox"そんなデータないですよ"
(5) Else
(6) MsgBox"一致するのがありました"
しかしながら、ADOを用いた記述方法がわかりません。
上の(1)行は
ds.Index = "PrimaryKey"
でよいと思うのですが、(2)行以下がどう書いて良いかわかりません。
何卒宜しくお願いします。
No.2ベストアンサー
- 回答日時:
えー、すべて設定は出来ているものと
勘違いしていました。一応、こちらで
すべてを設定してみました。
テーブルをTdataとします。
Private Sub コマンド0_Click()
Dim cn As ADODB.Connection
Dim ds As ADODB.Recordset
Dim vardat As Variant
Dim strmsg As String
Dim myKey(1 To 2)
Dim varA As Variant
Dim varB As Variant
Set cn = CurrentProject.Connection
Set ds = New ADODB.Recordset
ds.Open "Tdata", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
varA = InputBox("検索する年月日を入力して下さい。")
varB = InputBox("検索する担当職員を入力して下さい。")
Let myKey(1) = varA '"年月日"
Let myKey(2) = varB '"担当職員"
ds.Index = "PrimaryKey"
ds.Seek Array(myKey(1), myKey(2)), adSeekFirstEQ
If ds.EOF Then
MsgBox ("ありません")
Else
MsgBox ("ありました")
End If
ds.Close: Set ds = Nothing
cn.Close: Set cn = Nothing
End Sub
このような感じで一応動いています。
設定の勘違い、Inputboxなどはご勘弁を。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Excel(エクセル) 表の中を『年』で検索し、値を得たい。 4 2023/01/31 22:37
- Visual Basic(VBA) VBAで重複データを確認したい 5 2022/10/07 16:24
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Excel(エクセル) Vlookup関数で#N/Aエラー表示について 3 2022/09/03 20:59
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ACCESSVBAのseekで複数INDEX検索方法について
Access(アクセス)
-
ACCESS VBAでSeekメソッドの処理記述
Access(アクセス)
-
ADOでSeekメッソッドが使えません。
SQL Server
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
6
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
7
FindFirst を複数条件で検索
Visual Basic(VBA)
-
8
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
9
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
10
Accessを開くと「排他モードじゃないので変更しても保存できない」との旨の表示が出てしまう。
Access(アクセス)
-
11
dbOpenTableとdbOpenDynaset
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSで複数主キーにおけるsee...
-
【FF7リメイクの順番について】...
-
Switchはオワコンに近いですか?
-
ウイニングポスト2
-
DQ7かDQ8、どっちがおもしろか...
-
最近のドラクエってはたして名...
-
PS3でドラクエ4~ドラクエ9はプ...
-
メルセデスベンツW213 ブルメス...
-
あなたはドラクエ派ですか?FF...
-
PC阪「ダ・カーポ」で
-
牧場物語 オススメ作品を
-
PS3でで遊べるFFシリーズ
-
ドラゴンクエスト
-
ギャラガ攻略本でいいのはあり...
-
ネトストについてどう思いますか?
-
今日のニンダイの日にドラクエ...
-
おいでよどうぶつの森について...
-
GB版ドラクエ2の財宝の場所は?
-
牧場物語ふたごの村3DS(英...
-
ゲームの買い取り価格は???
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSで複数主キーにおけるsee...
-
ドラクエ5 サクラのひとえだの...
-
エクセルVBAについておねがいし...
-
ポケモンDPの四天王バグ修復は...
-
ラプラス変換による回路解析
-
光る入浴剤
-
【FF7リメイクの順番について】...
-
スクエニ、特別損失221億 ソシ...
-
SNSなどの、広告にありえない値...
-
スマホ版ドラクエ5かドラゴンモ...
-
3dsのマスターキーを発行してほ...
-
スマホインカメ撮影のとき
-
どんなゲームでも難易度を上げ...
-
Switchはオワコンに近いですか?
-
メルセデスベンツW213 ブルメス...
-
ニーアオートマタはクソゲーの...
-
GEOて店ありますよね! 最近ゲ...
-
元祖!!ヤンチャ丸について。
-
Nintendo Switch 1回遊んだゲー...
-
ポケモンカードレアなやつが出...
おすすめ情報