什么数据库?如果是access得在两边加#,#mydate#。
不是的话要么你转成string试试。
不是的话要么你转成string试试。
解决方案 »
- 不用WebBrowser,还有什么控件可以打开网页并且像WebBrowser一样始终保持连接
- 高兴,放分
- 即時問題
- 与十个单片机(下位机)通讯的问题,内有详细说明,解决问题立即给分
- ==大虾,救命:Sql 2000与图片录入的问题?==
- 如何捕捉菜单栏显示的事件??
- 如何实现自绘图形的撤销重做功能?
- 请问各位大虾,怎样才能修改一个应用程序出现在任务条里的托盘图标?好有用哦
- 在全局的Var下设置变量,和与在private中设置的有何区别?
- 很简单的一个问题,但我不知我忽略了什么?
- 我真笨 唉 旧话重提,用DBimage怎样根据路径载入图片?(不翻滚)
- 今天人气不错啊...再次发红包...捡包包去啊...... :-)
with query do
begin
close;
sql.clear;
sql.add('select * form 123.db');
sql.add('where date>'mydate'''');
prepare
open;
end;
var mydate:tdate;
with query do
begin
close;
sql.clear;
sql.add('select * form 123.db');
sql.add('where date>:'mydate');
params.items[0].asdata:=mydate;
prepare
open;
end;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select *from 123.db where rq>=:a and rq<=b: ');
ADOQuery3.Parameters[0].Value :=strtodate(edit1.text);
ADOQuery3.Parameters[1].Value :=strtodate(edit2.text);
ADOQuery3.Prepared;
.ADOQuery3.Open;
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add('select * from 123.db where rq>=:a and rq<=:b ');
ADOQuery3.Parameters[0].Value :=strtodate(edit1.text);
ADOQuery3.Parameters[1].Value :=strtodate(edit2.text);
ADOQuery3.Prepared;
ADOQuery3.Open;
mydate: TDate;
begin
mydate := Date; // ... ... 添加其他代码 with Query1 do
try
Close;
SQL.Clear;
SQL.Add('Select * Form 123.db');
SQL.Add('Where date > ' + FormatFloat('0', mydate));
Open;
except
// ... ...
end;
end;
然后传入日期类型参数where data>:Data
parabyname('Data').asdata=mydata
你的方法我试过了,不行呀。To ihihonline(小小):
你的两种方法我都试过了,不行呀。
对了,第2中方法里
params.items[0].asdata:=mydate;
这句有什么用?To yuanshengbing(诺基亚):
你的我还没试过但我想问你
ADOQuery3.Parameters[0].Value :=strtodate(edit1.text);
ADOQuery3.Parameters[1].Value :=strtodate(edit2.text);
你这两句是什么意思呀?如果是赋值的话我不加上去因该不会有问题的吧?To kyee(浪子阿鹏)
不行呀,提示:capability not supported
没有这个parabyname
with query do
begin
close;
sql.clear;
sql.add('select * form 123.db');
sql.add('where date>'+chr(39)+datetostr(mydate)+chr(39));
prepare
open;
end;