「徒然雑草コノヨノナカ ザッソウセイシンデ タチムカエ!」このホームページには広告アフィリエイトおよび広告宣伝・プロモーション・商品広告品レビューが含まれています。

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

この記事は約3分で読めます。

[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 ‘入力されたワークNoに割り当てる。

‘テキストボックス1に入力された内容を変数に代入する
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 (公式版) (セット4個)
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よりも高速なデータ転送速度を実現しています。これにより、より高速な起動時間、ファイル転送速度、読み込み/書き込み速度が実現されます。


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つで充電ができます。



Ewin ワイヤレス キーボード Bluetooth 日本語配列 折りたたみ式 ブルートゥース キーボード マルチペアリング 4つシステム対応 無線 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+2m)2M のロングタイプは、家や車載、オフィスでちょっと離れた距離で使用します。いつでも適切な長さで快適に充電・同期できます。ロングタイプは離れた場所で寝ながら操作もできますので、後部座席、寝室使用最適です3本があり、予備用などのたくさん場合にケーブルを探す心配がありません。