用AdoDataSet实现数据表的导入导出

　2006-02-04 13:36:40　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹

闂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘ｅ亾妤犵偛顦甸弫鎾绘偐閹绘帞鈧參姊哄Ч鍥х仼闁诲繑鑹鹃悾鐑藉蓟閵夛妇鍘甸梺瑙勵問閸犳牠銆傛總鍛婄厱閹艰揪绱曟牎闂侀潧娲ょ€氫即鐛幒妤€绠ｆ繝闈涘暙娴滈箖鏌ｉ姀鈶跺湱澹曟繝姘厵闁绘劦鍓氶悘杈ㄤ繆閹绘帞澧涚紒缁樼洴瀹曞崬螖閸愬啠鍓濈换娑樼暆婵犱胶鏁栫紓浣介哺閹瑰洤鐣烽幒鎴僵闁瑰吀鐒﹂悗鎼佹⒒娴ｇ儤鍤€闁搞倖鐗犻獮蹇涙晸閿燂拷

濠电姷鏁告慨鐑藉极閸涘﹥鍙忔い鎾卞灩缁狀垶鏌涢幇闈涙灈鐎瑰憡绻冮妵鍕箻鐎靛摜鐣奸梺纭咁潐濞茬喎顫忕紒妯肩懝闁逞屽墮宀ｈ儻顦查悡銈夋煏閸繃鍋繛宸簻鎯熼梺瀹犳〃閼冲爼宕濋敃鈧—鍐Χ閸℃鐟愰梺鐓庡暱閻栧ジ宕烘繝鍥у嵆闁靛骏绱曢崢顏堟⒑閹肩偛鍔楅柡鍛⊕缁傛帟顦寸紒杈ㄥ笚濞煎繘鍩℃担閿嬵潟闂備浇妗ㄩ悞锕傚箲閸ヮ剙鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹　　闂傚倸鍊搁崐鎼佸磹閻戣姤鍤勯柤鍝ユ暩娴犳氨绱撻崒娆掑厡缂侇噮鍨堕妴鍐川閺夋垹鍘洪悗骞垮劚椤︻垶宕￠幎鑺ョ厪闊洦娲栨牎闂佽瀵掗崜鐔奉潖閾忓湱纾兼俊顖氭惈椤矂姊洪崷顓涙嫛闁稿妫濋幆鈧い蹇撴祩濡嫰姊洪崫鍕拱婵炲弶岣块幑銏犫攽婵犲嫮鏉搁梺鍝勬川婵兘鎮伴妷鈺傗拻濞达絽鎼敮璺侯熆閻熷府鏀荤紒鍌氱Т楗即宕煎锝呬壕闁哄啫鐗嗙粈鍐┿亜韫囧海顦﹀ù婊堢畺閺屻劌鈹戦崱娑扁偓妤€顭胯閸犳牠婀侀梺缁樕戦悷銉р偓姘煎枤缁粯銈ｉ崘鈺冨幈濡炪倖鍔戦崐鏇㈠几鎼淬劍鐓熼煫鍥ь儏閸旀粓鏌曢崶褍顏€殿喗娼欒灒闁告繂瀚濠碉紕鍋戦崐鎴﹀垂濞差亝鍋￠柍鍝勬噹缁犳牠鏌嶉埡浣告殲闁稿海鍠栭弻鏇㈠炊瑜嶇花濠氭煙閸戙倖瀚�

核心提示：Delphi中的AdoDataSet是支持ADO访问的主要组件，它支持从数据表直接获取数据，用AdoDataSet实现数据表的导入导出，支持用SQL语句获取数据，最重要的是，比如导入指定字段、导入指定字段、导入指定记录等等，对导入导出过程进行更详细的控制，它定义和实现了两个重要的例程：PRocedure LoadFro

Delphi中的AdoDataSet是支持ADO访问的主要组件，它支持从数据表直接获取数据，支持用SQL语句获取数据。最重要的是，它定义和实现了两个重要的例程： PRocedure LoadFromFile(const FileName: WideString);它从文件中加载数据集。 procedure SaveToFile(const FileName: String = ''; Format: TPersistFormat = pfADTG);它将数据集保存到文件中。Format确定文件中数据集的保存格式，可以使用的有pfADTG (Advanced Data Tablegram format)、pfxml（Extendable Markup Language）。因此AdoDataSet是实现导入导出的良好的基础。 1．数据表的导出导出数据表的操作如下： 1）打开数据表，设置需要导出的条件； 2）使用AdoDataSet，调用SaveToFile导出记录；下面是一个导出操作的示例（假定导出指定数据表的全部记录）。 procedure ExportData(strFileName, strTableName: string); begin with AdoDataSet1 do begin Close; CommandText := ‘select * from ’ + strTableName; Open; SaveToFile(strFileName); Close; end; end; 2．数据表的导入下面是一个导入操作的示例（假定存在相同主键记录时更新目的表；假定数据表为单主键字段，且其字段类型为字符串型）。 Procedure ImportData(strFileName, strTableName, strKeyFieldName: string); begin with AdoDataSet1 do begin Close; LoadFromFile(strFileName); First; While not eof do begin StrKeyValue := FieldByName(strKeyFieldName).AsString; If RecordInDest(strTableName, strKeyFieldName, strKeyValue) then begin AdoDataDest.Close; AdoDataSetDest.CommandText := Format(‘select * from %s where %s=%s’,[strTableName, strKeyFieldName, QuotedStr(strKeyValue)]); AdoDataSetDest.Open; AdoDataSetDest.First; AdoDataSetDest.Edit; for I:=0 to FieldList.Count-1 do AdoDataSetDest.Fields[I] := Fields[I]; AdoDataSetDest.Post; end else　　　　 // 添加记录 begin AdoDataDest.Close; AdoDataSetDest.CommandText := Format(‘select * from %s where 1=0’,[strTableName]); // 获取字段列表 AdoDataSetDest.Open; AdoDataSetDest.Insert; for i:=0 to FieldList.Count-1 do AdoDataSetDest.Fields[i] := Fields[i]; AdoDataSetDest.Post; end; Next; end; end; // 判断指定主键值的记录在表中是否存在 function RecordInDest(strTableName, strKeyFieldName, strKeyValue: string): boolean; begin with AdoQuery1 do begin Close; SQL.Clear; SQL.Add(Format(‘select count(*) from %s where %s=%s, [strTableName, strKeyFieldName, QuotedStr(strKeyValue)])); Open; result := Fields[0].AsInteger > 0; Close; end; end; 如果对数据表的情况进行进一步的考虑，并结合更周密的导入导出方案，比如导入指定字段、导入指定字段、导入指定记录等等，对导入导出过程进行更详细的控制，就可以实现强大的、通用的数据表的导入导出工具。