AccessのVBAでSQLのSELECT *を使い、全てのフィールドの値を抽出する｜フォーム実行例

フィールド名に * (アスタリスク)を使用し、全フィールドデータを抽出

SELECT * FROM テーブル名
フィールド名に * (アスタリスク)を使用すると、全フィールドデータを抽出できます。

Home　

SQL Tips

サンプルソフト
「実行」ボタンをクリックすると、T_雇用統計テーブルの都道府県をテキストボックス1に、
職種をテキストボックス2に、求人数をテキストボックス3に表示します。
都道府県別求人数

［実行後の求人一覧画面］

［T_雇用統計テーブル］
ID　都道府県　職種　　　　　求人数
10　静岡県　　エンジニア　　2
11　神奈川県　接客　　　　　10
13　京都府　　製造業　　　　20
16　岩手県　　職人5

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    Me!テキスト2 = Null
    SQL = "SELECT * FROM T_雇用統計"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs![都道府県] & vbCrLf
        Me!テキスト2 = Me!テキスト2 & rs![職種] & vbCrLf
        Me!テキスト3 = Me!テキスト3 & rs![求人数] & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード

Home　

SQL Tips