AD スポンサー

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

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

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

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

Samsung microSDカード 128GB EVO Plus microSDXC UHS-I U3 Nintendo Switch 動作確認済 最大転送速度130MB/秒 MB-MC128KA/EC 国内正規保証品
日本サムスン
¥1,680(2023/06/10 04:45時点)
最大転送速度 : 130MB/秒 ※対応カードリーダー使用時(対応カードリーダーについてはITGマーケティングのHPをご確認ください)


Beelink Mini PC、AMD Ryzen7 5800H 8コア16スレッド(3.2GHz~4.4GHz)、AMD Radeon Graphics、DDR4 16G 3200Mhz+500G M.2 Nvme SSD、Wifi 6+BT5.2 、3画面ディスプレイ4K/60hz、オフィスミニPC、オートパワーON
Beelink
¥58,800(2023/06/10 14:17時点)
🔥【CPU性能】Beelink SER5 Pro Mini PCは、AMD Ryzen 7 5800H (3.2GHz-4.4GHz, 8C/16T, L3キャッシュ16MB)を搭載し、最新のブレークスルー7nm Zen 3アーキテクチャで構築されており、処理性能は、 Ryzen 5 5600Hと比べて30%向上し、AAAゲーム、写真/ビデオ編集、レンダリング、オフィスソフトウェア、プログラミングなどに最適。ゲーミングのすすめ: CSGO、コールオブデューティ、WWII、PUBG、DOTA 2、LOL。


シャオミ(Xiaomi) スマートウォッチ Smart Band 7 スマートバンド 7 日本語版 1.62インチ有機 ELディスプレイ AOD対応 14日間のバッテリー持続時間 110種類以上スポーツモード 5ATM防水 血中酸素常時測定 着信・メッセージ通知 アラーム 活動量計 iPhone&Android対応
シャオミ(Xiaomi)
¥6,989(2023/06/10 11:05時点)
【1.62の大画面ディスプレイ・キレイで見やすい】Mi Smart Band 6より約25%表示領域が広くなった、1.62インチ 有機EL(AMOLED)ディスプレイ搭載。たとえ、ラフな山道をジョギングしている時でも、サイクリング中でも、揺れるヨットの上でも、気軽にパッと見るだけで運動管理や操作も簡単にすることができます。



大和電器 感震ブレーカー 震太郎 【品番】X5029
大和電器
¥9,280(2023/06/10 04:23時点)
工事なし、アース付のコンセントに差し込むだけの簡単設置。


コカ・コーラ やかんの麦茶 from 爽健美茶 650mlPET ×24本
爽健美茶
¥2,510 (¥105 / 本)(2023/06/10 05:04時点)
原材料:大麦(カナダ、国産)、大麦エキス/ビタミンC