| スポンサードリンク |
SELECT * FROM テーブル名
フィールド名に * (アスタリスク)を使用すると、全フィールドデータを抽出できます。
|
|
サンプルソフト
「実行」ボタンをクリックすると、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
|
|
ダウンロード