| スポンサードリンク |
例1： SELECT 学生ID FROM 学生名簿 WHERE 体重>70
体重が70を超える学生IDをレコードセットに取り出します。
例2： SELECT 学生ID FROM 学生名簿 WHERE 体重>70 AND 身長<=165
体重が70で身長が165以下の学生IDをレコードセットに取り出します。
|
|
サンプルソフト
［実行時の画面］
消費電流（ワット）を入力すると、入力ワット数以下の商品名を表示します。
［商品仕様 テーブル］
商品ID 商品名 原価 消費電流
10 液晶TV 20型 ¥56,000 98
11 液晶TV 26型 ¥96,000 143
13 液晶TV 32型 ¥103,000 154
16 液晶TV 37型 ¥147,000 186
［コード］
Option Compare Database
Private Sub コマンド8_Click()
Dim SQL As String
Dim rs As Recordset
If IsNull(Me!テキスト1) Then
MsgBox "抽出する「消費電流(ワット)」を入力してください"
Exit Sub
End If
Me!テキスト2 = Null
SQL = "SELECT 商品名 FROM 商品仕様 WHERE 消費電流<" & Me!テキスト1
Set rs = CurrentDb.OpenRecordset(SQL)
Do Until rs.EOF
Me!テキスト2 = Me!テキスト2 & rs![商品名] & vbCrLf
rs.MoveNext
Loop
Set rs = Nothing
End Sub
|
|
ダウンロード