SQL 日付条件に合うレコードを抽出する
日付で抽出する場合、#(シャープ)で囲みます
例. SELECT 学生ID FROM 学生名簿 WHERE 誕生日='#1987/05/25#'
誕生日が「1987年05月25日」の学生IDをレコードセットに取り出します。
日付の場合、#(シャープ)で囲みます。
［コード］
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
サンプルソフトのダウンロード
誕生日が「1987年05月25日」の学生IDをレコードセットに取り出します。
日付の場合、#(シャープ)で囲みます。
サンプルソフト
［実行時の画面］
入荷日を入力し「抽出」ボタンをクリックすると、商品カタログテーブルから見つかれば「商品名」のリストを表示します。
［商品カタログ テーブル］
商品ID 商品名 型式 価格 入荷日
10 液晶TV 20型 ETV-20D \78,000 2007/07/01<BR>
11 液晶TV 26型 ETV-26D \98,000 2007/06/11<BR>
13 液晶TV 32型 ETV-32D \2,600,000 2007/07/21<BR>
16 液晶TV 37型 ETV-37D \3,500,000 2007/06/11<BR>
［実行時の画面］
入荷日を入力し「抽出」ボタンをクリックすると、商品カタログテーブルから見つかれば「商品名」のリストを表示します。
［商品カタログ テーブル］
商品ID 商品名 型式 価格 入荷日
10 液晶TV 20型 ETV-20D \78,000 2007/07/01<BR>
11 液晶TV 26型 ETV-26D \98,000 2007/06/11<BR>
13 液晶TV 32型 ETV-32D \2,600,000 2007/07/21<BR>
16 液晶TV 37型 ETV-37D \3,500,000 2007/06/11<BR>
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
サンプルソフトのダウンロード
Homeへ 
SQL TipsへCopyright(C) FeedSoft