特定の期間の日付をSQLで検索するには？その２ (ID:38460)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 日付検索がおかげさまで完成しました＾＾。 以下が完成したコードです。 本当に助かりました。 二日で実装完了するとは思いませんでした＾＾； それではありがとうございましたｍ（＿＿）ｍ。 procedure TForm1.Button15Click(Sender: TObject); var s1,s2,s3:string; begin Query5.Close; Query5.SQL.Clear; if ComboBox5.Text = '' then begin Query5.SQL.Text := 'select * from 立会データ WHERE 立会日 BETWEEN :Hiduke1 AND :HIduke2 and インデックス年月 LIKE :index1 ORDER BY 立会日;' ; end else begin Query5.SQL.Text := 'select * from 立会データ WHERE 立会日 BETWEEN :Hiduke1 AND :Hiduke2 and インデックス年月 LIKE :index1 and ' + ComboBox5.Text + ' = "' + ComboBox6.Text + '" ORDER BY 立会日;'; end; s1 := FormatDateTime('mm"/"dd',DateTimePicker1.date); s2 := FormatDateTime('mm"/"dd',DateTimePicker2.date); s3 := FormatDateTime('yyyy',DateTimePicker2.date); Query5.paramByName('Hiduke1').asstring := s1; Query5.paramByName('Hiduke2').asstring := s2; Query5.paramByName('index1').asstring := s3 + '%'; try query5.Open; except end; Button4Click(Sender);//StringGridを更新 end;