标题:没有取得满意的结果,原因不明,恳请指点。
取消只看楼主
BCLT_xj9605
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2015-4-19
 问题点数:0 回复次数:1 
没有取得满意的结果,原因不明,恳请指点。
用DELPHI语句编写在ACCESS表中查找下达日期最近的井、测试日期日期最近的井及入库日期最近的井。只有下达日期最近的井查找结果符合,其他两个条件都没有达到目的,原因是什么,恳请指点:
procedure TForm2.GroupBox5Click(Sender: TObject);
Var
querystr:string;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  querystr:='select * from CYJ where 下达日期 in (select max(下达日期) from cyj where 下达日期)';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(querystr);
  //ADOQuery1.ExecSQL;
  ADOQuery1.Open;//显示在edit时用open
  //Edit6.Text:=adoquery1.FieldByName('井号').AsString; //第一种显示字段的方式
  Edit6.Text:=adoquery1.Fields[0].AsString;//第二种显示字段的方式
  Edit8.Text:=adoquery1.Fields[1].AsString;
  Edit9.Text:=adoquery1.Fields[2].AsString;
end;

procedure TForm2.GroupBox6Click(Sender: TObject);
Var
querystr:string;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  querystr:='select * from CYJ where 测试日期 in (select max(测试日期) from cyj where 测试日期)';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(querystr);
  //ADOQuery1.ExecSQL;
  ADOQuery1.Open;//显示在edit时用open
  //Edit6.Text:=adoquery1.FieldByName('井号').AsString; //第一种显示字段的方式
  Edit10.Text:=adoquery1.Fields[0].AsString;//第二种显示字段的方式
  Edit11.Text:=adoquery1.Fields[1].AsString;
  Edit12.Text:=adoquery1.Fields[2].AsString;
end;

procedure TForm2.GroupBox7Click(Sender: TObject);
Var
querystr:string;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  querystr:='select * from CYJ where 入库日期 in (select max(入库日期) from cyj where 入库日期)';
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(querystr);
  //ADOQuery1.ExecSQL;
  ADOQuery1.Open;//显示在edit时用open
  //Edit6.Text:=adoquery1.FieldByName('井号').AsString; //第一种显示字段的方式
  Edit13.Text:=adoquery1.Fields[0].AsString;//第二种显示字段的方式
  Edit14.Text:=adoquery1.Fields[1].AsString;
  Edit15.Text:=adoquery1.Fields[2].AsString;
end;
搜索更多相关主题的帖子: 日期 SQL 显示 Text Fields 
2019-06-24 11:47
BCLT_xj9605
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2015-4-19
得分:0 
问题出在
Edit11.Text:=adoquery1.Fields[1].AsString;//显示第2个字段的内容,第2个字段是下达日期,
Edit14.Text:=adoquery1.Fields[1].AsString;//显示第2个字段的内容,第2个字段是下达日期,
测试日期在第4个字段,若显示测试日期,应改为Edit11.Text:=adoquery1.Fields[4].AsString;
入库日期在第9个字段,若显示入库日期,应改为Edit14.Text:=adoquery1.Fields[9].AsString;
问题已解决,将问题提示给初学者,让大家少走弯路。
2019-06-24 15:32



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-495475-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.402160 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved