[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
¥3,250 (2023/12/04 23:39時点)
Magic Cube マジックキューブ : キューブ 競技用 キューブ 公式 キューブ 4x4x4 軽快な回し心地:従来とは違う革新な構造を採用して、コーナーカットが広くなって、全体として重量が非常に軽く、回転も乾いた感じがします。片手用にもピッタリ!また、ネジ締め具合で、センターパズルの蓋を外して、ネジを捻て、自分の好みに合わせて
調整 できます。
LISTERINE(リステリン)
¥1,098 (2023/12/05 01:04時点)
【バイオ殺菌*¹のリステリン】有効成分がお口のすみずみまでゆき渡り、バイオフィルムの中まで浸透殺菌。トラブルの原因となる悪玉菌を減少させます。歯周病(歯肉炎・歯周炎の総称)や口臭予防にどうぞ。 *¹バイオフィルム内の悪玉菌(口臭等の原因菌)を殺菌すること。
爽健美茶
¥1,299 (¥54 / 本) (2023/12/05 03:32時点)
原材料:ハトムギ、玄米(発芽玄米2%)、大麦、どくだみ、はぶ茶、チコリー、月見草、ナンバンキビ、オオムギ若葉、明日葉、黒ごま、ヨモギ、ビタミンC
Lexar
¥17,980 (2023/12/04 23:21時点)
【高速なデータ転送速度】LexarのNVMe Gen4は、PCIe 4.0バスを使用して、従来のNVMe Gen3よりも高速なデータ転送速度を実現しています。これにより、より高速な起動時間、ファイル転送速度、読み込み/書き込み速度が実現されます。
UGREEN
¥3,499 (2023/12/05 18:45時点)
Anker
¥5,690 (2023/12/04 23:11時点)
3台まとめてこれ1つ:最大出力65Wかつ、3ポート搭載で3台の機器を同時に充電が可能。MacBook Air、iPhone 15、AirPodsもこれ1つで充電ができます。
Anker
¥14,990 (2023/12/05 10:11時点)
3つの機能を1つに: スマートフォン用充電器、ノート
PC 用充電器に加え、 大容量
モバイル バッテリー の機能を兼ね備えた1台3役のバッテリー搭載
USB 急速充電器。
キングストンテクノロジー
¥1,299 (2023/12/05 04:34時点)
Ewin
¥3,680 (2023/12/04 22:55時点)
※ご注意:いま本製品はAndroid12にアップデートした設備に対応しておりません。予めご了承の上、ご購入ください。 ✅【JIS基準 折りたたみ
キーボード 】日本ではよく採用されている日本語配列の「全角/半角」や「
変換 」などのキーが配置されており、日本語をスムーズに入力できるワイヤレス
キーボード です。もちろん英語入力もできます。新発想の薄型手帳デザインで、
スマホ 並みに軽く小さく薄いキーボードを実現。かんたん操作なマグネット式で、開閉により
電源 が自動的にON/OFFし、特別な操作は不要です。
UYOUNG
¥1,399 (2023/12/04 22:23時点)
❀【3本セット】:(2m+2m+2m)2M のロングタイプは、家や車載、オフィスでちょっと離れた距離で使用します。いつでも適切な長さで快適に充電・同期できます。ロングタイプは離れた場所で寝ながら操作もできますので、後部座席、寝室使用最適です3本があり、予備用などのたくさん場合にケーブルを探す心配がありません。