Delphi中的时间查询!能告诉我哪里错了吗?!
t5:=' 1=1 ';
if CheckBox5.Checked then
t5:=' 生日>=#'+DateToStr(DateTimePicker1.Date)+'# and 生日<=#'+DateToStr(DateTimePicker2.Date)+'#';
关于事件的格式和界定符,access,sqlserver,oracle都有点不同,你这样硬编码建议看看你的数据库的格式要求。
建议你用参数就可以解决这个问题,时间用参数标识,在打开数据集的之前用ParaByName('时间参数1').Value:=TDateTime变量即可,这样可以避免不同的数据库的时间表示法和界定符不同的问题
如果是oracle的话,可以用to_date函数方便明确的转换,达到在sql语句中硬编码
例如:select * from 表1 where 时间字段1 >= to_date('19900101','yyyyMMdd')
应该是引号问题
str的话应该用''' 吧
同意思一楼的说法。
数据库不同SQL语句略有不同。
楼主到底出什么错
if CheckBox5.Checked then
t5:=' 生日>=#'+formatdatetime('yyyy-mm-dd',DateTimePicker1.Date)+'# and 生日<=#'+formatdatetime('yyyy-mm-dd',DateTimePicker2.Date)+'#';
楼主如果用的是access数据库那么
t5:=' 生日>=#'+formatdatetime('yyyy-mm-dd',DateTimePicker1.Date)+'# and 生日<=#'+formatdatetime('yyyy-mm-dd',DateTimePicker2.Date)+'#';
如果是mssql那么
t5:=' 生日>='''+formatdatetime('yyyy-mm-dd',DateTimePicker1.Date)+''' and 生日<='''+formatdatetime('yyyy-mm-dd',DateTimePicker2.Date)+'''';
建议用参数传递日期
我用的是sql server2000数据库。
补充一下,我用的是sql server2000的数据库,生日类型用的是datetim
相关问答:
已知Python 中:
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢?
找到个方法
......
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
使用xml.responseText可以获取网页源码,但是再次 ......
例子程序见附件,用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
C/C++ code:
void RefreshThreadList (DWORD dwOwnerPID)
{
HANDLE hThreadSnap = NULL;
BOOL bRet = FALSE;
THREADENTRY32 te32 = {0};
int px=0;
......