| スポンサードリンク |
例. SELECT 名前 FROM 学生名簿 WHERE 苗字='大木'
苗字が「大木」の名前をレコードセットに取り出します。
文字列の場合、'(単引用符)で囲みます。
|
|
サンプルソフト
［実行時の画面］
型式を入力し「抽出」ボタンをクリックすると、商品カタログから見つかれば「商品名」「価格」を表示します。
見つからなければ、メッセージを表示します。
［商品カタログ テーブル］
商品ID 商品名 型式 価格
10 液晶TV 20型 ETV-20D ¥78,000
11 液晶TV 26型 ETV-26D ¥98,000
13 液晶TV 32型 ETV-32D ¥2,600,000
16 液晶TV 37型 ETV-37D ¥3,500,000
［コード］
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)
If Not rs.EOF Then
Me!テキスト2 = rs![商品名]
Me!テキスト3 = rs![価格]
Else
MsgBox "入力された型式の商品は見つかりません。"
End If
Set rs = Nothing
End Sub
|
|
ダウンロード