[Excel for vba] SQLでSELECT抽出したデータをラベルに表示する。

Database接続を行い、SQL構文のSELECTで必要な情報を取り出します。
取り出した情報をユーザーフォームのLabel（ラベル）に表示する方法です。

LabelはLabel3.Captionで表示します。
Label3.valueはエラーになりますので注意してください。

下記の抽出方法はそれぞれ、レコードセットから変数に代入し、ラベル表示の流れになっています。
変数に置き換えることでいろいろ、ユーザーフォームメインの構築であれば作業もしやすくなると思います。

Private Sub CommandButton1_Click()

‘変数設定
‘実行環境に合わせたデータベースのファイルパス設定
Dim db_Path As String
db_Path = “c:\user\database\test.db” ‘DatabaseのPathを指定
‘抽出したフィールドデータを格納する変数
Dim PWork_ID As String
Dim PWork_No As String
Dim PModel As String
Dim PName_of_product As String
Dim IP_WorkNo As String ‘入力されたワークＮｏに割り当てる。

‘テキストボックス１に入力された内容を変数に代入する
IP_WorkNo = TextBox1.Value

‘DataBaseに接続し、T_UserIDの情報を取得する。
Dim ct As New ADODB.Connection
Dim rs As New ADODB.Recordset
ct.Open (“Provider = Microsoft.Jet.OLEDB.4.0;Data Source=” & db_Path)
rs.Open Source:=”SELECT Work_ID,Work_No,Model,Name_of_product FROM T_work_table WHERE Work_No='” & IP_WorkNo & “‘;”, ActiveConnection:=ct

PWork_ID =　rs!Work_ID
PWork_No = rs!Work_No
PModel = rs!Model
PName_of_product = rs!Name_of_product

rs.Close
Set rs = Nothing
ct.Close
Set ct = Nothing

‘ユーザーフォームのラベルに抽出結果を表示する。
Label1.Caption = PWork_ID
Label2.Caption = PWork_No
Label3.Caption = PModel
Label4.Caption = PName_of_product

End Sub

今話題の商品や、その他のおすすめはこちら

FAVNIC マジックキューブ魔方競技専用キューブ 2x2 3x3 セット回転スムーズ立体パズル Magic Cube (公式版) (セット４個)

FAVNIC

￥3,250（2023/12/04 23:39時点）

Magic Cube マジックキューブ : キューブ競技用キューブ公式キューブ 4x4x4 軽快な回し心地：従来とは違う革新な構造を採用して、コーナーカットが広くなって、全体として重量が非常に軽く、回転も乾いた感じがします。片手用にもピッタリ！また、ネジ締め具合で、センターパズルの蓋を外して、ネジを捻て、自分の好みに合わせて調整できます。

【Amazon.co.jp限定】 LISTERINE(リステリン) リステリントータルケア歯周クリア 1000ml+おまけ付き100ml マウスウォッシュ液体歯磨歯周病予防低刺激医薬部外品薬用ノンアルコールアイスミント味

LISTERINE(リステリン)

￥1,098（2023/12/05 01:04時点）

【バイオ殺菌＊¹のリステリン】有効成分がお口のすみずみまでゆき渡り、バイオフィルムの中まで浸透殺菌。トラブルの原因となる悪玉菌を減少させます。歯周病（歯肉炎・歯周炎の総称）や口臭予防にどうぞ。＊¹バイオフィルム内の悪玉菌(口臭等の原因菌)を殺菌すること。

コカ・コーラ爽健美茶 600mlPET×24本

爽健美茶

￥1,299 (￥54 / 本)（2023/12/05 03:32時点）

原材料:ハトムギ、玄米(発芽玄米2%)、大麦、どくだみ、はぶ茶、チコリー、月見草、ナンバンキビ、オオムギ若葉、明日葉、黒ごま、ヨモギ、ビタミンC

Lexar 2TB NVMe SSD グラフェン放熱シート PCIe Gen 4×4 最大読込 7400MB/s 最大書き 6500MB/s PS5確認済み M.2 Type 2280 内蔵 SSD 3D NAND 国内正規品

Lexar

￥17,980（2023/12/04 23:21時点）

【高速なデータ転送速度】LexarのNVMe Gen4は、PCIe 4.0バスを使用して、従来のNVMe Gen3よりも高速なデータ転送速度を実現しています。これにより、より高速な起動時間、ファイル転送速度、読み込み/書き込み速度が実現されます。

UGREEN M.2 SSD 外付けケース SATA NVME両対応 M.2 SSD ケース USB3.2 Gen2接続 UASP対応 10Gbps高速転送アルミ ssd m.2 ケース 2230/2242/2260/2280 M key/B+M key SSD対応シリコンラバー付き【USB A-C＆USB C-C 2本ケーブル付き】

UGREEN

￥3,499（2023/12/05 18:45時点）

Anker 735 Charger (GaNPrime 65W) (USB PD 充電器 USB-A & USB-C 3ポート) (ブラック)

Anker

￥5,690（2023/12/04 23:11時点）

3台まとめてこれ1つ：最大出力65Wかつ、3ポート搭載で3台の機器を同時に充電が可能。MacBook Air、iPhone 15、AirPodsもこれ1つで充電ができます。

Anker 733 Power Bank (GaNPrime PowerCore 65W) (10000mAh 30W出力モバイルバッテリー搭載 65W出力USB充電器)【独自技術Anker GaNPrime採用 / USB Power Delivery対応 / PSE技術基準適合 / USB-C入力対応 / 65W出力】iPhone MacBook Galaxy Android スマートフォンノートPC 各種その他機器対応 (ブラック)

Anker

￥14,990（2023/12/05 10:11時点）

3つの機能を1つに：スマートフォン用充電器、ノートPC用充電器に加え、大容量モバイルバッテリーの機能を兼ね備えた1台3役のバッテリー搭載USB急速充電器。

キングストン microSD 128GB 最大100MB/s UHS-I V10 A1 Nintendo Switch動作確認済 Canvas Select Plus SDCS2/128GB

キングストンテクノロジー

￥1,299（2023/12/05 04:34時点）

日本正規代理店品

Ewin ワイヤレスキーボード Bluetooth 日本語配列折りたたみ式ブルートゥースキーボードマルチペアリング４つシステム対応無線 type-C充電式携帯便利パソコン用スタンド付ノートPC/タブレット/マートフォンに対応

Ewin

￥3,680（2023/12/04 22:55時点）

※ご注意：いま本製品はAndroid12にアップデートした設備に対応しておりません。予めご了承の上、ご購入ください。 ✅【JIS基準折りたたみキーボード】日本ではよく採用されている日本語配列の「全角/半角」や「変換」などのキーが配置されており、日本語をスムーズに入力できるワイヤレスキーボードです。もちろん英語入力もできます。新発想の薄型手帳デザインで、スマホ並みに軽く小さく薄いキーボードを実現。かんたん操作なマグネット式で、開閉により電源が自動的にON/OFFし、特別な操作は不要です。

Lightning ケーブル 2M 3本セット iPhone 充電ケーブルアイフォン急速充電 USB ライトニングコード Apple iPhone 14 13 12 11 8 XS XR 6s 7 Plus mini Pro iPad iPod 対応ピンク

UYOUNG

￥1,399（2023/12/04 22:23時点）

❀【3本セット】：（2m+2m+2ｍ）2M のロングタイプは、家や車載、オフィスでちょっと離れた距離で使用します。いつでも適切な長さで快適に充電・同期できます。ロングタイプは離れた場所で寝ながら操作もできますので、後部座席、寝室使用最適です3本があり、予備用などのたくさん場合にケーブルを探す心配がありません。