正在阅读：用AdoDataSet实现数据表的导入导出用AdoDataSet实现数据表的导入导出

　　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;