dmonth在数据表中的格式为(yyyy-mm-dd)
在ComboBox1下拉框中显示的形式为yyyy-mm 如2005-11
我的ComboBox1Change如下:procedure TForm1.ComboBox1Change(Sender: TObject);
begin
frPreview1.Clear;
ADOquery1.Close;
ADOquery1.SQL.Clear;
{
以下这句有问题,我想查找数据表中根据combobox1.Text显示的月份再加天数得到的结果该怎么做?如combobox1.Text显示2005-1,如何查找表中dmonth等于2005-1-1的记录?
} ADOquery1.SQL.Add('select * from v_areaindex where dmonth=to_date('''+Trim(combobox1.Text)+'-1'+''',''yyyy-mm-dd'') order by code');
/////////////////////////////////////////////////////////////////////////////
ADOquery1.Open;
if Report.PrepareReport then
Report.ShowPreparedReport;
frPreview1.PageWidth;
end;
在ComboBox1下拉框中显示的形式为yyyy-mm 如2005-11
我的ComboBox1Change如下:procedure TForm1.ComboBox1Change(Sender: TObject);
begin
frPreview1.Clear;
ADOquery1.Close;
ADOquery1.SQL.Clear;
{
以下这句有问题,我想查找数据表中根据combobox1.Text显示的月份再加天数得到的结果该怎么做?如combobox1.Text显示2005-1,如何查找表中dmonth等于2005-1-1的记录?
} ADOquery1.SQL.Add('select * from v_areaindex where dmonth=to_date('''+Trim(combobox1.Text)+'-1'+''',''yyyy-mm-dd'') order by code');
/////////////////////////////////////////////////////////////////////////////
ADOquery1.Open;
if Report.PrepareReport then
Report.ShowPreparedReport;
frPreview1.PageWidth;
end;
解决方案 »
- 怎么实现主窗口的自动刷新功能
- dbexpress 连 oracle问题
- 喜欢Delphi的大学生们加这个群:31732649
- 有時後操作不當時會出現Access Violation at address...這樣的錯誤,代碼如下,請問如果完善?謝謝大家!
- 为什么我在DBGrid1中插入一个增值ID没有显示出来??24小时在线等待!!
- 紧急求助(调用winrar的dll或ocx的问题?)!!!!!!!]
- dbk是什么数据库文件
- 在delphi中如何输入ascII码字符?谢谢
- 关于 delphi 学习中的若干问题,请求论坛各位大神们。谢谢
- Delphi 的ServerSocket控件问题
- 如何判断一个非子窗体已经创建,为何我用findwindow 在子窗体未没创建时确不为0 了?
- 痛苦...神呀,救救我吧
如下代码会在memo里显示当前时间,以及明天(+1后)的时间。
你的要求只要有个变量加上你的天数再查询就行了。procedure TForm1.Button1Click(Sender: TObject);
var t:TDateTime;
begin
t:=Now();
Memo1.Lines.Add(DateTimeToStr(t));
t:=t+1;
Memo1.Lines.Add(DateTimeToStr(t));
end;