AD スポンサー

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

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

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

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

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

[code lang=”vb”] 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
[/code]

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

SwitchBot スイッチボット スマートホーム 学習リモコン Alexa - Google Home IFTTT イフト Siriに対応 SwitchBot Hub Mini
スイッチボット(SwitchBot)
¥4,480(2022/08/07 15:28時点)
本商品はWorks with Alexa認定を受けたAmazon Alexa対応端末です。※本製品は2.4GHz帯の電波周波数帯にしか対応しません。

キングジム モニターアーム(1面2軸タイプ) ARM110クロ
キングジム(Kingjim)
¥2,970(2022/08/16 11:09時点)
【重量】約2.1kg、【耐荷重(モニター重量)】10kg



ANONIE メイド服 コスプレ仮装 初心者 セット かわいい コスチューム ホワイト+ブラック 豪華セット (pink, S)
ANONIE
¥3,280(2022/08/16 11:09時点)
【豪華8点セット】ワンピース(黒)*1点・エプロン(白)*1点・カチューシャ*1点・チョーカー(首)*1点・カフス(腕)*2点・ガーターリング(片太もも)*2点

アイリスプラザ キャットタワー ハンモック 爪とぎ コンパクト おもちゃ付き 据え置き型 仔猫にも グレー キャットランド 高さ155cm
アイリスプラザ(IRIS PLAZA)
¥5,461(2022/08/16 11:09時点)
【商品サイズ(幅×奥行×高さ)】:70×45×155cm 【付属品】:ねずみのおもちゃは取り外し可能。※予備のおもちゃが3つ


Kaedear(カエディア) バイク スマホ ホルダー バイク用 クイックホールド 携帯ホルダー スマホ 携帯 スマートフォン アルミ製 バーマウント ミラー マウント 360度回転 原付 オートバイ 自転車 KDR-M11C (Black)
Kaedear
¥3,500(2022/08/16 11:09時点)
【ホールドタイプ】 クイックホールド&リリース機構を採用。スマホを置くだけで瞬時にホールド、両脇のリリースハンドルを握るだけのリリース。片手で最速でスマートフォンの付外しが可能です。四角式固定でサイドボタンのスマホやiFaceの様な側面が湾曲したスマホケースにも対応。四点で包み込むような安心のホールド感を是非お試しください。 対応参考機種:Apple iPhone 13 / 12 / 11 / X / XS / XR / XS Max / 8 / 8 Plus / 7 / 6 SE 3 / SE 2 , Samsung Galaxy S10 / S10+ / S9 / S9 Plus / S8 / S8 Plus / Sony / Huawei など4-7インチ(ケースなどの条件によるので、ホルダーサイズをご確認下さい。) <ご注意> 背面が平らでないと中央のボタンが押せない事があります。 カメラが出っ張っている機種はスマホケースで平らにして下さい。 非対応:京セラ トルク(厚い)

ベビースマイル ベビーアラーム E-201 ベビーセンサー 乳児用体動センサ 赤ちゃん 無呼吸 ベビー用品 アラーム 見守り
BabySmile
¥8,800(2022/08/16 11:09時点)
【高性能センサー搭載】乳児用体動センサーが赤ちゃんの体動を感知します。約20秒間動きがないとアラームでお知らせします。