SQL 日付条件に合うレコードを抽出する

日付で抽出する場合、#(シャープ)で囲みます

例.　SELECT 学生ID FROM 学生名簿 WHERE 誕生日='#1987/05/25#'
誕生日が「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>
商品入荷日

［コード］
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