注册 登录
编程论坛 Delphi论坛

麻烦请问为什么下面2个查询,只能用一个,若2个同时使用就查询不到想要的结果了

cbn4444 发布于 2016-06-20 13:34, 5408 次点击
麻烦请问为什么下面2个查询,只能用一个,若2个同时使用就查询不到想要的结果了?谢谢

begin
ADOQuery1.ConnectionString :='Provider=Microsoft.jet.OLEDB.4.0; Data Source='
+ ExtractFilePath(Application.ExeName)+'LD.mdb;Persist Security Info=False';
With ADOQuery1 do
begin
  Close;
  Sql.Text:='Select distinct lifetime from data1 where lamptype= "E19.5H 225W"' ;
Open;
end;
if ADOQuery1.RecordCount>0 then
    begin
      while Not ADOQuery1.Eof do
      begin
        ComboBox4.Items.Add(ADOQuery1.Fields[0].AsString);
          ADOQuery1.Next;

With ADOQuery1 do
begin
  Close;
/SQL.Clear;
  //Sql.Add('Select distinct sn from data1') ;
//Open;
//end;
//if ADOQuery1.RecordCount>0 then
    //begin
     // while Not ADOQuery1.Eof do
     // begin
        //ComboBox3.Items.Add(ADOQuery1.Fields[0].AsString);
         // ADOQuery1.Next;
3 回复
#2
s9123601012016-08-03 14:24
现在还有人用delphi啊,我都用python了,好几年了
#3
s9123601012016-08-03 14:51
解决了吗?
#4
maochengwen2016-09-21 16:58
回复 楼主 cbn4444
procedure TForm1.FormShow(Sender: TObject);
begin
  With ADOQuery1 do
  begin
    Close;
    Sql.Text:='select t.con_depts from BQYS_CONSULTATION_REQ t' ;
    Open;
  end;
  if ADOQuery1.RecordCount>0 then
  begin
    while Not ADOQuery1.Eof do
    begin
      ComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
      ADOQuery1.Next;
    end;
  end;

  With ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    Sql.Add('select t.diagnoses from BQYS_CONSULTATION_REC t') ;
    Open;
  end;
  if ADOQuery1.RecordCount>0 then
  begin
    while Not ADOQuery1.Eof do
    begin
      ComboBox2.Items.Add(ADOQuery1.Fields[0].AsString);
      ADOQuery1.Next;
    end;
  end;
end;
测试已通过没有问题
1