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

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

この記事は約3分で読めます。
AD スポンサー

[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

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

SALONIA サロニア | スピーディーイオン ドライヤー 【ブラック】 ヘアドライヤー 大風量 速乾 軽量 マイナスイオン SL-013BK
SALONIA(サロニア)
¥5,918(2024/03/19 16:51時点)
【2.3㎥/minの大風量】ドライ時間30%短縮を実現。面倒なドライ時間を短縮できる大風量ドライヤー


ジェンガ ゲーム JENGA 天然木使用のオリジナル ブロックゲーム スタッキングタワーゲーム 6才以上 プレイヤー人数1人以上 子供用パーティーゲーム ファミリーゲーム クリスマスおもちゃ クリスマスギフト A2120 正規品
ハズブロ(HASBRO)
¥2,592(2024/03/19 14:46時点)
オリジナルの木製ブロックゲーム:リスクを冒す勇気がありますか?タワーを崩さないようにブロックを1本ずつ抜いて上に積んでいきましょう!子供も大人も楽しめるジェンガゲームは、何世代にもわたり愛されてきた木製ブロックバランスゲームです。

【Amazon.co.jp限定】タオル研究所 [ボリュームリッチ] #003 フェイスタオル スモーキーブルー 5枚セット ホテル仕様 ふかふか 高速吸水 綿100% 耐久性 毛羽落ち少ない 【選べる10色】 Japan Technology
タオル研究所
¥1,890(2024/03/19 16:38時点)
類似品にご注意:タオル研究所のイメージを利用してシリーズを展開することにより、お客様が間違えて購入され、弊社に苦情の電話が入っております。タオル研究所という名称をよく確認してご購入ください。

Amazonベーシック ヨガマット 厚め 12mm キャリーストラップ付 トレーニングマット ストレッチマット ピラティスマット 188×61×1cm ブラック
Amazonベーシック(Amazon Basics)
¥2,086(2024/03/19 11:49時点)
【素材】NBR (ニトリルブタジエンゴム)。軽量で丈夫な耐久性のあるフォームで作られています。


【Amazon.co.jp限定】バッファロー microSD 128GB 100MB/s UHS-1 U1 microSDXC【 Nintendo Switch/ドライブレコーダー 対応 】V10 A1 IPX7 Full HD RMSD-128U11HA/N
バッファロー
¥1,480(2024/03/19 11:19時点)
※個体により製品本体のデザイン・表記が一部異なる場合がございますが仕様上問題ございません。 (個体により製品本体にA1の印字がない場合がございますが、アプリケーション パフォーマンスクラス1に対応しております。)

Anker PowerLine III Flow USB-C & USB-C ケーブル Anker絡まないケーブル 100W 結束バンド付き USB PD対応 シリコン素材採用 Galaxy iPad Pro MacBook Pro/Air 各種対応 (1.8m ミッドナイトブラック)
Anker
¥1,890(2024/03/19 12:52時点)
かつてない柔軟性:ケーブル内部の銅線をグラフェンで覆い、外装にシリコン素材を使用した3層構造を採用し、従来のケーブルにはないやわらかさを実現しました。肌に優しい使い心地をお楽しみいただけます。

Anker Magnetic Cable Holder マグネット式 ケーブルホルダー ライトニングケーブル USB-C Micro USB 他対応 デスク周り 便利グッズ (ブラック)
Anker
¥1,690(2024/03/19 16:58時点)
デスク周りをスマートに:内蔵マグネットと専用マグネットクリップを使用して、直径3.5mmまでのライトニングケーブルやUSB-Cケーブルを確実に固定。デスク周りを洗練された状態に保ち、作業効率を最大限に引き上げます。

ATEngeエアダスターAC電源、3mエクストラロングケーブル付き。2スピードエアダスター500W/260W、収納に便利な吊り下げリング付き。 パソコン/キーボード/エアコン/タワーファン/プリンターなどのホコリ取りに。
ATEngeJP
¥5,999(2024/03/19 18:39時点)
電動エアダスター▶【18kPa風圧】このエアダスターは5.1OZの風力を持続して、風圧18kPaで、庭やオフィスの電子機器についた頑固なホコリやゴミを取り除くことができます。(バッテリー不要、AC100-120V)
タイトルとURLをコピーしました