|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/9 13:22:47 |
标题: |
|
加入我的收藏 |
楼主: |
with self.adoqsql do begin SQL.Clear; SQL.Append('update s set now_money=Q.now_money,last_datetime=Q.last_datetime '); SQL.Append('from '+table_name+' s,OPENROWSET('+''Microsoft.Jet.OLEDB.4.0'+'','); SQL.Append(''+Mdb_name_r+'';'+''+'admin'+'';'''+', '+table_name+') Q'); SQL.Append('where s.card_id=Q.card_id and s.last_datetime < Q.last_datetime'); SQL.SaveToFile(datapath+'aa.txt'); //exit; //goto Execsql; Prepared:=true; Connection.BeginTrans; rec_num:=ExecSQL; //show Exception Connection.CommitTrans;
此帖子包含附件:
大小:11.9K |
----------------------------------------------
实践是检验真理的唯一标准! |
作者: |
|
2004/3/9 14:21:49 |
1楼: |
各位帮忙看看啊。
----------------------------------------------
实践是检验真理的唯一标准!
|
|