录入日期与数据库日期是否存在比较问题

simon505 2008-11-29 03:31:48
如何单独获取年月日
从数据库取出的数据“2008-11-01 00:00:00:”如何与"2008-11-01"或"2008-10-01"


数据库表里面有2006年至2008年三年各12个月的数据
即2006-01-01,2006-02-01,2006-03-01.......
2007-01-01,2007-02-01,2007-03-01.....
2008-01-01,2008-02-01,2008-03-01......

窗体上有一em_1掩码框
上面输入日期格式是:例如2008年01月

取得掩码框里的数据与数据库里的日期字段比较
如果这个日期不存在数据表里面
即执行设置功能

否则给出提示,不执行设置功能
...全文
92 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
hcw_peter 2008-11-29
  • 打赏
  • 举报
回复
先把自己設置的值取出,再改為你要的值yyyy-mm-01後,
再寫個SQL檢查yyyy-mm-01是否在DB中存在,存在就提示返回,反之就正常保存啦!

原理如上,具體如何寫,不清楚的地方可以查幫助的!^_^
青锋-SS 2008-11-29
  • 打赏
  • 举报
回复

//把em_1的日期取出来,如
ls_riqi = em_1.text //假设em_1.text = "2008-11-28"
//然后与数据库中的数据比较
select top 1 1 into :li_test from tb where datediff(m,:ls_riqi,date_col)=0;
if sqlca.sqlnrows = 1 then
//存在该月的数据...
elseif sqlca.sqlcode = 100 then
//不存在该月数据...
end if
jaychensusu 2008-11-29
  • 打赏
  • 举报
回复
取所属年月,在某个年月之内的可以录入.
eviler 2008-11-29
  • 打赏
  • 举报
回复
如楼上所说,取出来的日期要转换格式
sjq521521 2008-11-29
  • 打赏
  • 举报
回复
你把数据库的时间取出来,转换成YYYY-MM-DD的格式,不就可以比较了吗
liubocy 2008-11-29
  • 打赏
  • 举报
回复
//使用getdata获取em的日期
date d

em_date.GetData(d)

messagebox('', String(d, "yyyy-mm-dd"))
dragonbird 2008-11-29
  • 打赏
  • 举报
回复
把数据库日期转换位字符型,然后比较
SQL server
select * from tablename
WHere convert(char(10),DateField,20) = '2008-11-01'
青锋-SS 2008-11-29
  • 打赏
  • 举报
回复
[Quote=引用 9 楼 simon505 的回复:]
d_emrq = date(em_1.text)
select rq into:rq1 from kqjl where datediff(m,rq,:d_emrq)=0;
if sqlca.sqlnrows = 1 then
messagebox("系统提示","本月考勤记录已经存在!")
delete kqjl where rq >= :rq1;
elseif sqlca.sqlcode = 100 then
messagebox("","")
end if

有问题么这样

数据库里面有数据

可执行这段代码

始终提示没有

[/Quote]如果返回的记录条数大于1,你的语句执行时就会出错.这也是加top 1的原因.
simon505 2008-11-29
  • 打赏
  • 举报
回复
select top 1 1 into :li_test from tb where datediff(m,:ls_riqi,date_col)=0;

不明白这句
simon505 2008-11-29
  • 打赏
  • 举报
回复
d_emrq = date(em_1.text)
select rq into:rq1 from kqjl where datediff(m,rq,:d_emrq)=0;
if sqlca.sqlnrows = 1 then
messagebox("系统提示","本月考勤记录已经存在!")
delete kqjl where rq >= :rq1;
elseif sqlca.sqlcode = 100 then
messagebox("","")
end if

有问题么这样

数据库里面有数据

可执行这段代码

始终提示没有
simon505 2008-11-29
  • 打赏
  • 举报
回复
[Quote=引用 6 楼 sdhylj 的回复:]
C/C++ code
//把em_1的日期取出来,如
ls_riqi = em_1.text //假设em_1.text = "2008-11-28"
//然后与数据库中的数据比较
select top 1 1 into :li_test from tb where datediff(m,:ls_riqi,date_col)=0;
if sqlca.sqlnrows = 1 then
//存在该月的数据...
elseif sqlca.sqlcode = 100 then
//不存在该月数据...
end if
[/Quote]

date_col???
随着通信电子技术的迅速发展,信息技术给家居行业产生了深远的影响,家居环境的智能化监控已经成为智能家居的一个重要的发展方向。人们逐渐对自己的生活提出一种更高的要求,他们需要一种智能化、可交互,并且融合现代创新科技的产品来改善他们的生活环境,使他们生活更加安全、舒适、便捷、智能。本文根据智能家居的发展背景和研究现状,并且从实用性和可行性角度出发,研究设计了一种基于STM32单片机的智能家居系统。该系统由一个多功能综合的技术系统组成,各个多功能子系统间具有协同配合能力。基于STM32单片机实现的功能子系统包括:智能温度检测,智能湿度检测,智能烟雾/火灾检测智能检测,无线传输,人机交互机构,风扇调节,报警模块。 整个系统分为前端51单片机采集板和后端STM32单片机接收板。 采集板使用DHT11温湿度传感器、MQ烟雾传感器完成室内家居环境的采集。然后通过nRFL24L01将采集到的数据发送给后端。接收板使用LCD1602完成数据显示、使用蜂鸣器模块报警,使用风扇驱动模块调节室内家居环境。本文完成了智能家居控制系统前端、后端软硬件的设计,使用Altium designer绘制了电路原理图,使用Keil C完成了51单片机和STM32单片机的编程与调试。 最后,对本文设计的基于STM32的智能家居控制系统进行部署调试。试验结果表明,该系统可成功应用在智能家居环境检测调节和火灾安全防护的领域,可提高家居生活智能化水平。

743

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 脚本语言
社区管理员
  • 脚本语言社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧