| スポンサードリンク |
SELECT フィールド名1,フィールド名2 AS 別名 FROM テーブル名
このようにフィールド名をコンマで区切り指定します。
順番はここで指定したフィールド順になるので、入れ替えて取り出したい時にも使用できます。
|
|
サンプルソフト
「実行」ボタンをクリックすると、T_資産テーブルの資産名をテキストボックス1に、
購入日をテキストボックス2に表示します。
［実行後の資産一覧画面］
［T_資産テーブル］
ID 名前 購入日
10 ハンドリングマシン 2001/03/31
11 自動運搬 2001/03/16
13 ネジ締め機 1993/06/03
16 攪拌機 1996/12/21
［コード］
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
rs.MoveNext
Loop
Set rs = Nothing
End Sub
|
|
ダウンロード