我这条SQL又怎样写呢？？？？？？？？？？？？？？？好难呀！！！！

Question

我也知道一条SQL是不可能的，我试过很多方法都不好，谁能帮想一个好一点的办法

Answer 1

来凑个数update table1
set err = 'true'
where card_id in
  ( select tab1.card_id 
    from table1 tab1 
    where tab1.card_id = table1.card_id
      and tab1.pdate = table1.pdate 
      and tab1.ptime+10 > table1.ptime 
      and tabl1.ptime <> table1.ptime 
  )

Answer 2

或者
update table1
set err = 'true'
where exists
  ( select tab1.card_id 
    from table1 tab1 
    where tab1.card_id = table1.card_id
      and tab1.pdate = table1.pdate 
      and tab1.ptime+10 > table1.ptime 
      and tabl1.ptime <> table1.ptime 
  )

Answer 3

对不起，慢慢想，我有的累了http://www.csdn.net/expert/topic/412/412135.shtm

Answer 4

用两个控件吧。比如TAdotable  和TAsoQuery
用table控件循环 每次用query查找号码和日期与当前table记录相同的数据集然后query数据集循环 看时间差是多少
while not table.eof 
       query.sql
           while not query.eof 
                  if .....
                     ....
           end
end数据量大的话.在想别的办法

Answer 5

这个方法我也想过，我想在query查一组出来，做完这一组后再table.next，但这样会重复做query刚才做过的几条纪录，怎样才能在table里跳过query刚才做过的这组纪录呢

Answer 6

myand(myand): tab1.ptime+10 应该不是十分钟是加十天吧？

Answer 7

我算过10分钟是0.00694，但换了后还是不行，这样只要有两条以上的纪录的号码和日期相同（不管时间相差多少）都会把除第一条外的所有纪录的ERR都改为TRUE  的

Answer 8

明白gaden007的意思，测试通过的sql,不知合意否update table1
set err = 'true'
where exists
  ( select tab1.card_id 
    from table1 tab1 
    where tab1.card_id = table1.card_id
      and tab1.pdate = table1.pdate 
      and table1.ptime - tab1.ptime < 10分钟 (这个条件可以用数据库内置的日期函数来判断)
      and tab1.ptime < table1.ptime 
  ) 

Answer 9

对，也是一样的结果 ？really ?
我在sql server上作了模拟测试，好象还行把pdate, ptime合成一个(small)datetime类型的列 ndate，
然后用下式判断
and datediff(minute,tab1.ndate,table1.ndate) < 10先试试这句SQL, 看看对不对select * from table1
where exists
  ( select tab1.card_id 
    from table1 tab1 
    where tab1.card_id = table1.card_id
      and datediff(minute, tab1.ndate, table1.ndate) < 10 (这个条件可以用数据库内置的日期函数来判断)
      and tab1.ndate < table1.ndate ) 我测试过，满足gaden007的要求，是否有其它含义？

Answer 10

谢谢myand(myand)　，用了你的方法改了一点就可以，但只能所有的纪录都跟第一条比，不是我的要求：(因为可能有几条纪录的）
如果第二条跟第一条相差十分钟之内的（就是第二也是错），那第三条就跟第一条比，
否则第三条跟第二条比，SQL.Add('update TPANA set err = true where exists '+
             '( select TPN.CARD_ID from TPANA TPN '+
              'where (TPN.card_id = TPANA.card_id) '+
              'and (TPN.pdate = TPANA.pdate) '+              
              'and (TPN.ptime between TPANA.PTIME and                    TPANA.PTIME+0.0069473) '+  
              'and (TPN.ptime <> TPANA.ptime) )');

Answer 11

必须用SQL解决？
用程序可以吗？

Answer 12

比如:
001  01-12-09  12:23:00  false
002  01-12-09  12:30:00  false
003  01-12-09  12:42:00  false
004  01-12-09  12:50:00  false
005  01-12-09  13:10:00  false
006  01-12-09  13:14:00  false
结果是？？？？给我一个例子，让我直观的思考

Answer 13

得出的结果还是一样
001  01-12-09  12:23:00  false
002  01-12-09  12:30:00  false
003  01-12-09  12:42:00  false
004  01-12-09  12:50:00  false
005  01-12-09  13:10:00  false
006  01-12-09  13:14:00  false
但如果是这样：
001  01-12-09  12:23:00  false
001  01-12-09  12:30:00  false
001  01-12-09  12:31:00  false
002  01-12-09  12:23:00  false
003  01-12-09  12:42:00  false
004  01-12-09  12:55:00  false
004  01-12-09  13:01:00  false
004  01-12-09  16:25:00  false
004  01-12-09  16:28:00  false
005  01-12-09  13:10:00  false
006  01-12-09  13:14:00  false
得到的结果应该是：
001  01-12-09  12:23:00  false
001  01-12-09  12:30:00  true //号码和日期相同，但时间只相差7分钟
001  01-12-09  12:31:00  true //号码和日期相同，但时间只相差8分钟
002  01-12-09  12:23:00  false
003  01-12-09  12:42:00  false
004  01-12-09  12:55:00  false
004  01-12-09  13:01:00  true //号码和日期相同，但时间只相差6分钟
004  01-12-09  16:25:00  false
004  01-12-09  16:28:00  true //号码和日期相同，但时间只相差3分钟
005  01-12-09  13:10:00  false
006  01-12-09  13:14:00  false

Answer 14

gaden007, 好象应该是这样的:SQL.Add('update TPANA set err = true where exists '+
            '( select TPN.CARD_ID from TPANA TPN '+
              'where (TPN.card_id = TPANA.card_id) '+
              'and (TPN.pdate = TPANA.pdate) '+              
              'and (TPANA.ptime between TPN.PTIME and                    TPN.PTIME+0.0069473) '+  
              'and (TPN.ptime < TPANA.ptime) )');注意是
(TPANA.ptime between TPN.PTIME and TPN.PTIME+0.0069473) 
 ~~~~~               ~~~           ~~~和 (TPN.ptime < TPANA.ptime)
             ~~~

Answer 15

update Table1 AS A set err = True
where 
 EXISTS(
  SELECT *
  FROM Table1 
  WHERE CARD_ID = A.CARD_ID AND 
        PTIME< A.PTIME AND 
        PDATE = A.PDATE AND
       (EXTRACT(HOUR FROM A.PTIME) * 60 +
        EXTRACT(MINUTE FROM A.PTIME)) -
       (EXTRACT(HOUR FROM PTIME) * 60 +
       EXTRACT(MINUTE FROM PTIME)) <=7)

Answer 16

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻测试成功嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻/*for ParadoxVII*/
update Table1 AS A set err = True
where 
EXISTS(
  SELECT *
  FROM Table1 
  WHERE CARD_ID = A.CARD_ID AND 
        PTIME< A.PTIME AND 
        PDATE = A.PDATE AND
      (EXTRACT(HOUR FROM A.PTIME) * 60 +
        EXTRACT(MINUTE FROM A.PTIME)) -
      (EXTRACT(HOUR FROM PTIME) * 60 +
      EXTRACT(MINUTE FROM PTIME)) <=7) 

Answer 17

与其想这么复杂的SQL语句，还不如用程序把算法写出来。这样更易懂！

Answer 18

你试我的没有？你把SQL.Text拷贝出来看

Answer 19

update Table1 AS A set err = True
//           ~~~~~

Answer 20

with QR do
    begin
      Close;
      SQL.Clear;
      SQL.Add('update TPANA set err = true' where Exists '+
             '( select TPN.CARD_ID from TPANA as TPN '+
              'where (TPN.card_id = TPANA.card_id) '+
              'and (TPN.pdate = TPANA.pdate) '+              
              'and ((EXTRACT(hour From TPANA.PTIME)*60 + '+
                 'EXTRACT(minute From TPANA.PTIME))-'+
                 '(EXTRACT(hour From TPN.PTIME)*60 +'+
                 'EXTRACT(minute From TPN.PTIME))<=10))');              
      ExecSQL;
    end;

Answer 21

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻无语言嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻procedure TForm1.Button1Click(Sender: TObject);
begin
   with QR do try
     Close;
     SQL.Text :=
'UPDATE TPANA AS A SET ERR = TRUE'#13#10 +
'WHERE EXISTS('#13#10 +
'  SELECT *'#13#10 +
'  FROM TPANA'#13#10 +
'  WHERE CARD_ID = A.CARD_ID AND'#13#10 +
'        PTIME< A.PTIME AND'#13#10 +
'        PDATE = A.PDATE AND'#13#10 +
'      (EXTRACT(HOUR FROM A.PTIME) * 60 +'#13#10 +
'        EXTRACT(MINUTE FROM A.PTIME)) -'#13#10 +
'      (EXTRACT(HOUR FROM PTIME) * 60 +'#13#10 +
'      EXTRACT(MINUTE FROM PTIME)) <=7)'#13#10;
     ExecSQL;
   except
     ShowMessage('我错了');
   end;
end;

Answer 22

//你不会先调试吗？
//把SQL拷贝到Memo1.Text执行看看错不错
//是你自己组装的问题procedure TForm1.Button1Click(Sender: TObject);
begin
  with QR do try
    Close;
    SQL.Text := Memo1.Text;
    ExecSQL;
  except
    ShowMessage('我调试用');
  end;
end;