社区
Delphi
帖子详情
如何在SQL的WHERE中使用DELPHI的日期型数据比较!
ZLLDJH
2000-03-08 08:42:00
本人在使用SQL的过程中遇到如下问题,在一个查询组件的SQL当中,如何用日期型数据来作为条件!,我试过先将日期型转化为字符串后再比较,但是结果会出错?希望各位大虾多多帮助!!!!!
...全文
186
3
打赏
收藏
如何在SQL的WHERE中使用DELPHI的日期型数据比较!
本人在使用SQL的过程中遇到如下问题,在一个查询组件的SQL当中,如何用日期型数据来作为条件!,我试过先将日期型转化为字符串后再比较,但是结果会出错?希望各位大虾多多帮助!!!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
mutant
2000-03-09
打赏
举报
回复
Delphi中的日期型数据实际上是一个浮点数,整形部分代表自1899年1月1日以来的日期,浮电部分代表自午夜00:00:00点以来的时间(*24得到小时 *24*60得到分钟 *24*60*60得到秒和毫秒)
SQL中的日期型数据和Delphi中的格式不同,Date,Time,TimeStamp实际上是以字符型存储的,因此不能直接比较(浮点和字符)。
必须将Delphi的日期变量通过函数转化为字符串(好像格式是“月月/日日/年年”),才能比较.
渤海海峡
2000-03-09
打赏
举报
回复
with query do
begin
sql.clear;
sql.add('select * from table where date1>=:pdata ');
parambyname('pdata').asdate(or asdatetime):=datetimepicker1.date;
open;
end;
King
2000-03-08
打赏
举报
回复
用order by datetime不行吗?
在
Delphi
中
使用
日期
选择器用于
数据
库查询.rar
在
Delphi
中
使用
日期
选择器用于
数据
库查询,用户搜索满足选定
日期
条件
中
的
数据
,
使用
日期
选择器可很好的提高
日期
格式的准确性,避免
数据
库出错和查询不到
数据
的情况,本例的运行效果请参见测试截图。相关代码如下: procedure TForm1.Button1Click(Sender: TObject); var mydate:tdatetime; Begin ADOquery1.Close; ADOquery1.
SQL
.Clear; ADOquery1.
SQL
.Add('Select * From xsd where 录入
日期
=:a'); ADOquery1.Parameters.ParamByName('a').Value :=FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date); ADOquery1.Open; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end;
SQL
语言生成器(
delphi
)
1、支持几乎所有类
型
的
数据
库, 包括小
型
(桌面)
数据
库:Fox DBF、Microsoft Execl、Text、Borland Paradox、
中
型
数据
库:Microsoft Access 大
型
数据
库:Microsoft
SQL
Server、Sybase、Oracle 2、
数据
库的连接采取ADO方式 故而
使用
本工具,无需安装和卸载 3、支持几乎所有的
SQL
语法: 排序(Order By) 条件(Where) 分组(Group By) 分组条件(Having) 计算字段
SQL
查询表
SQL
查询子句 丰富的函数 表别名 字段别名(包括计算字段和非计算字段) 联合(Union,对于Oracle 支持Union All,Minus,Intersect) 4、支持将
SQL
查询语句,替换为插入(Insert into)和更新(Update)语句 4、附属工具内嵌入
Delphi
IDE
Delphi
使用
复合查询一次查询多个
数据
表.rar
Delphi
复合查询
数据
库的例子,一次查询三个表,主要是这句
SQL
实现复合查询:select distinct 学生.姓名,班级.班级,班级.班主任,教师.年龄 as 教师年龄 from 学生,教师,班级 where 学生.班级=班级.班级 and 班级.班主任=教师.姓名,在很多
Delphi
数据
库系统
中
,都有用到
SQL
复合查询的需求。下面是具体代码: table1.DatabaseName:=dir1 '\data'; table2.DatabaseName:=table1.DatabaseName; table3.DatabaseName:=table1.DatabaseName; query1.DatabaseName:=table1.DatabaseName; table1.TableName:='学生.db'; table2.TableName:='教师.db'; table3.TableName:='班级.db'; table1.Open; table2.Open; table3.Open; except showmessage('
数据
库读取错误!!'); end; end; procedure TForm1.Button1Click(Sender: TObject); begin with query1 do begin close;
sql
.Clear;
sql
.Add('select distinct 学生.姓名,班级.班级,班级.班主任,教师.年龄 as 教师年龄 from 学生,教师,班级 where 学生.班级=班级.班级 and 班级.班主任=教师.姓名'); open; end; end;
delphi
中
checklistbox构造
sql
语句
中
in实例
在
delphi
查询功能设计过程
中
,对于
sql
语句
中
的in的构造,网上没有现成的示例,就自己写了一个简单的用checklistbox来生成in()括号里的记录,最终构造的
SQL
为 :select * from 表1 where name in (aaaa,cccc); 这个简单功能的难点在于逗号的生成; 第一次上传,如果有更好的实现方法,请勿见笑。
Delphi
在字符串
中
使用
单引号.rar
本
Delphi
实例演示如何在字符串
中
使用
单引号的方法,属于字符串处理的范畴,我们编写以下代码实现这个功能: begin //普通的
SQL
查询语句
SQL
:= 'Select * From MR_Login'; Memo1.Lines.Add(
SQL
); //带单引号的
SQL
查询语句
SQL
:= 'Select * From MR_Login Where Name = ''张三'' '; Memo1.Lines.Add(
SQL
); //带单引号的
SQL
查询语句 Name := '李四';
SQL
:= 'Select * From MR_Login Where Name = ''' Name ''''; Memo1.Lines.Add(
SQL
); //带单引号的
SQL
查询语句 Name := '王五';
SQL
:= 'Select * From MR_Login Where Name = ' QuotedStr(Name); Memo1.Lines.Add(
SQL
); end;
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章