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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ACCESSVBAのseekで複数INDEX検索方法について
Access(アクセス)
-
ACCESS VBAでSeekメソッドの処理記述
Access(アクセス)
-
ADOでSeekメッソッドが使えません。
SQL Server
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
結合テーブルクエリPrimaryKey取得について
PowerPoint(パワーポイント)
-
6
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
7
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
8
FindFirst を複数条件で検索
Visual Basic(VBA)
-
9
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
10
2つ目のレコードの値を取得するには?
Access(アクセス)
-
11
ACCESS ADOでupdateが効かない
その他(データベース)
-
12
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
13
Access サブフォームでの選択行の取得
その他(データベース)
-
14
Accessを開くと「排他モードじゃないので変更しても保存できない」との旨の表示が出てしまう。
Access(アクセス)
-
15
dbOpenTableとdbOpenDynaset
その他(プログラミング・Web制作)
-
16
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
17
実行時エラー3251対応処理方法
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Officeを開くたびの「再起動メ...
-
英数字のみ全角から半角に変換
-
outlookのメールが固まってしま...
-
大学のレポート A4で1枚レポー...
-
マクロの書き方を教えて下さい
-
Microsoft Formsの「個人情報や...
-
【Excel VBA】PDFを作成して,...
-
エクセルでXLOOKUP関数...
-
teams設定教えて下さい。 ①ビデ...
-
マイクロソフト 一時使用コード...
-
逆順
-
会社PCのメールが更新されない
-
Microsoft365で写真をアルバム...
-
【Excel】セル内の文字が正しい...
-
office365って抵抗感ないですか?
-
エクセルやワードを無料で使え...
-
Office 2021 Professional Plus...
-
Outlook で宛先が複数の場合の人数
-
VLOOKUP関数について
-
【マクロ】文字を1文字づつ、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSで複数主キーにおけるsee...
-
DS FF3
-
ドラクエ5 サクラのひとえだの...
-
お奨めDSソフト
-
「ds」で検索すると結果がおか...
-
2階常微分方程式の行列形式の書...
-
エクセルVBAについておねがいし...
-
ダービースタリオン64
-
光る入浴剤
-
Access2002 わからないことだ...
-
ドラクエ5が好きなら
-
ラプラス変換による回路解析
-
ポケモンDPの四天王バグ修復は...
-
【FF7リメイクの順番について】...
-
3dsのマスターキーを発行してほ...
-
自費出版を検討している
-
Switchはオワコンに近いですか?
-
5月27日は初代ドラクエの発...
-
DQ7かDQ8、どっちがおもしろか...
-
スクエニ、特別損失221億 ソシ...
おすすめ情報