一个表中有一字段purchase_date,是日期/时间类,xxxx-xx-xx格式,我用如下程序查询,会说变量类型不匹配。
unit Unit_Outgo_Query;...
implementation
uses Unit_Main, Unit_Outgo;...var
i,Min,Max: Integer;
Query_Date,Sql:string;
begin
Query_Date:=Form_Outgo.Outgo_Query_Year+'-'+Form_Outgo.Outgo_Query_Month;
ADOQuery1.close;
ADOQuery1.SQL.Clear;
Sql:='select * from Outgo_Detail where purchase_date like'+Query_Date+'order by id';
ADOQuery1.SQL.Text:=Sql;
ADOQuery1.Open;
ADOQuery1.Active:=True;
StringGrid1.Cells[0,0]:='ID';
StringGrid1.Cells[1,0]:='购买日期';
If ADOQuery1.RecordCount>0 then
begin
ADOQuery1.First;
Min := 1;
Max := ADOQuery1.RecordCount;
ADOQuery1.First;
for i := Min to Max do
begin
StringGrid1.Cells[0,i]:=ADOQuery1ID.AsString;
StringGrid1.Cells[1,i]:=ADOQuery1purchase_date.AsString;
ADOQuery1.Next;
end;
end;
end;
不知道这样关于时间或不是string类型的查询怎么写?Form_Outgo.Outgo_Query_Year是另外一个Form的输入string变量,在这里也会出错,不能得到值,为什么呢?
unit Unit_Outgo;...public
Outgo_Query_Year,Outgo_Query_Month:string;
...implementation
uses Unit_Main, Unit_Outgo_Query;...请问1、时间的查询怎么解决?2、FORM之间的变量值传递在哪里出错了?
unit Unit_Outgo_Query;...
implementation
uses Unit_Main, Unit_Outgo;...var
i,Min,Max: Integer;
Query_Date,Sql:string;
begin
Query_Date:=Form_Outgo.Outgo_Query_Year+'-'+Form_Outgo.Outgo_Query_Month;
ADOQuery1.close;
ADOQuery1.SQL.Clear;
Sql:='select * from Outgo_Detail where purchase_date like'+Query_Date+'order by id';
ADOQuery1.SQL.Text:=Sql;
ADOQuery1.Open;
ADOQuery1.Active:=True;
StringGrid1.Cells[0,0]:='ID';
StringGrid1.Cells[1,0]:='购买日期';
If ADOQuery1.RecordCount>0 then
begin
ADOQuery1.First;
Min := 1;
Max := ADOQuery1.RecordCount;
ADOQuery1.First;
for i := Min to Max do
begin
StringGrid1.Cells[0,i]:=ADOQuery1ID.AsString;
StringGrid1.Cells[1,i]:=ADOQuery1purchase_date.AsString;
ADOQuery1.Next;
end;
end;
end;
不知道这样关于时间或不是string类型的查询怎么写?Form_Outgo.Outgo_Query_Year是另外一个Form的输入string变量,在这里也会出错,不能得到值,为什么呢?
unit Unit_Outgo;...public
Outgo_Query_Year,Outgo_Query_Month:string;
...implementation
uses Unit_Main, Unit_Outgo_Query;...请问1、时间的查询怎么解决?2、FORM之间的变量值传递在哪里出错了?
解决方案 »
- 对Array Of PChar赋值的问题
- 使用过kbmMemTable的朋友请进!
- 控件的方法如何做?
- DELPHI7.0调用VC++6.0的DLL遇到兼容性问题
- 有个问题不知怎么实现
- 如何删除用户,菜鸟提问
- 当数据库中一插入数据,在程序中就立刻执行某个动作,有什么办法解决?sql2000数据库+d7
- 晕!!能写数据进去不知如何读注册表中的数据
- 如何发布一个基于ActiveForm的ActiveX控件?
- 如何让DBGRID显示到最下面一行后,刷新后,下一条显示在DBGRID的第一行
- SQL_SERVER接口函数调用 dbcmd(dbproc, 'SELECT * FROM DIVBRAZ.DBO.KEYID');
- 关于自增自段+到10的问题
2、通过日期范围查询,例如你的是查询当月的记录,完全可以用
Sql:='select * from Outgo_Detail where year(purchase_date)='+Form_Outgo.Outgo_Query_Year+' and month(purchase_date)=' +Form_Outgo.Outgo_Query_Month+'order by id'
代替3、后面的没有细看......
……+''''+query_date+''''+……试试看如何