請教一個各位一個問題問題，有如下資料庫結構
id list time link updatatime
1 足球 22:00 http://www. a.com/11/ 2015/07/13
2 籃球 23:15 http://www. b.cn/12/ 2015/07/13
3 排球 00:00 http://www.nba.com/14 2015/07/13
我從某網頁采集了節目（list）和比賽時間（time），后面是采集的鏈接，鏈接有可能會改變。如何寫MSSQL陳述句，判斷上面的資料是否一致，如果一致，則不更新，如果不一致，則更新link到相應的ID上，并更新updatatime（采集的時間）。反正我定期 采集，資料不存就入庫，資料存在就判斷是否有改變，這個代碼怎么寫啊？用的是delphi
uj5u.com熱心網友回復：
IF NOT EXISTS(
SELECT 1 FROM [...] WHERE [list] = '...' AND [updatetime] = '...'
)
INSERT INTO [...] (...) VALUES (...)
ELSE
UPDATE [...] SET [link] = '...', [updatetime] = '...' WHERE [list] = '...' AND [updatetime] = '...'
以上SQL在Delphi中回圈呼叫
uj5u.com熱心網友回復：
我從來沒試過這么長的SQL陳述句啊,只會簡單的例子,比如:
adoquery1.close
adoquery1.sql.clear;
adoquery1.sql.add(' SELECT 1 FROM [...] WHERE [list] = '...' AND [updatetime] = '...'');
adoquery1.open;
像你提供的SQL,我怎么換上去啊,呵呵,真心不會呢
uj5u.com熱心網友回復：
難道直接在sql.add();里面放入你的上面判斷代碼就可以了？uj5u.com熱心網友回復：
procedure TForm1.Button4Click(Sender: TObject);
var sList,sTime,sLink,s1,s2,SQL:string;
begin
sList:=Edit1.text;
sTime:=Edit2.text;
sLink:=Edit3.text;
with DBGrid1.DataSource.DataSet do
begin
if (sList<>FieldByName('List').AsString) or
(sTime<>FieldByName('Time').AsString) or
(sLink<>FieldByName('Link').AsString) then
begin
IDKey:=FieldByName('IDKey').asString);
DateTimetoString(S2,'yyyy-MM-dd',now);
S1:=FieldByName('id').AsString;
SQL:='Update 表名 set ';
SQl:=SQL+'List='+#39+sList+#39+',';
SQl:=SQL+'Time='+#39+sTime+#39+',';
SQl:=SQL+'Link='+#39+sLink+#39+',';
SQl:=SQL+'undatatime='+#39+S2+#39+',';
SQl:=SQL+' where IDKey='+#39+IDKey+#39;
ADOQuery1.Active:=False;
ADOQuery1.SQL.Text:=SQL;
ADOQuery1.ExecSQL;
end;
end;
end;
IDKey是主鍵名，
1、首先Edit1，Edit2，Edit3是錄入新的資料
2、通過DBGrid顯示資料，滑鼠點擊選中的資料行，
3、點擊按鈕，更新資料。
uj5u.com熱心網友回復：
SQL:='Update 表名 set ';
SQl:=SQL+'List='+#39+sList+#39+',';
SQl:=SQL+'Time='+#39+sTime+#39+',';
SQl:=SQL+'Link='+#39+sLink+#39+',';
SQl:=SQL+'undatatime='+#39+S2+#39;
SQl:=SQL+' where IDKey='+#39+IDKey+#39;
上面一句代碼有誤，更正。
uj5u.com熱心網友回復：
var
szSql: String;
qryADO: TADOQuery;
begin
qryADO := TADOQuery.Create(nil);
try
qryADO.Connection := ...;
//開始回圈處理每一條資料
for I := 0 to x do
begin
szSql := 'IF NOT EXISTS('
+ 'SELECT 1 FROM [...] WHERE [list] = ''...'' AND [updatetime] = ''...'''
+ ') '
+ 'INSERT INTO [...] (...) VALUES (...) '
+ 'ELSE '
+ 'UPDATE [...] SET [link] = ''...'', [updatetime] = ''...'' WHERE [list] = ''...'' AND [updatetime] = ''...''';
qryADO.SQL.Text := szSql;
qryADO.Execute();
end;
finally
FreeAndNil(qryADO);
end;
end;
uj5u.com熱心網友回復：
對于這類sql陳述句，可以考慮在資料中使用存盤程序來處理。uj5u.com熱心網友回復：
來個實體可以么？沒用過呢
uj5u.com熱心網友回復：
這個里面，回圈體中哪一個是“I”哦，你有一句寫成select 1 是不是這個？
uj5u.com熱心網友回復：
唉～procedure SaveToDb(const AQuery: TADOQuery; const AList, ATime, ALink, AUpdateTime: String);
var
szSql: String;
begin
szSql := 'IF NOT EXISTS('
+ 'SELECT 1 FROM [...] WHERE [list] = ''' + AList + ''' AND [updatetime] = ''' + AUpdateTime + ''''
+ ') '
+ 'INSERT INTO [...] ([list], [time], [link], [updatetime]) VALUES (''' + AList + ''', ''' + ATime + ''', ''' + ALink + ''', ''' + AUpdateTime + ''') '
+ 'ELSE '
+ 'UPDATE [...] SET [link] = ''' + ALink + ''', [updatetime] = ''' + AUpdateTime + ''' WHERE [list] = ''' + AList + ''' AND [updatetime] = ''' + AUpdateTime + '''';
AQuery.Close();
AQuery.SQL.Text := szSql;
AQuery.Execute();
end;
以上函式在需要保存資料時呼叫！
注：以上代碼純手打，如有錯誤，請自行除錯……
uj5u.com熱心網友回復：
新手嘛，看到代碼才知道，回圈是自己干的事，和這些代碼無關，呵呵！
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/82137.html
標籤：數據庫相關