使用ADO，多线程访问ACCESS数据库的开发。[4]

                  // post;

                   fnmreturemsg.disconnect;
                   fnmreturemsg.host :=fipaddressinfo;
                   fnmreturemsg.port:=6722; //回传信息远程端口为6722；
                   fnmreturemsg.postit(retureinformation);  //返回成功的信息

/·······························
   {进行查询工作组信息，然后传送信息}
                   if active =true then close;
                   sql.clear;
                   sql.add('select * from worker where skillgroup='+'"'+skillinfor+'"');
                   open;
                
                   workgroupuserinfor:=tstringlist.create;

                 while not eof do
                  begin
                   workgroupuserinfor.add(fieldbyname('name').asstring ); {index0 name}
                   workgroupuserinfor.add(fieldbyname('workmark').asstring ); {index1 workmark}
                   workgroupuserinfor.add(fieldbyname('phone').asstring );    {index2 phone}
                   workgroupuserinfor.add(fieldbyname('skillgroup').asstring +'业务处理='+fieldbyname('skilllevel').asstring);{index3 skillgroup}
                   iplist.add(fieldbyname('ipaddress').asstring); ://所有的ip地址保留到内存中
                   //showmessage(fieldbyname('ipaddress').asstring);
                   iplist.savetofile (fieldbyname('skillgroup').asstring+'iplst.ini');
                   next;
                 end;
                 workgroupuserinfor.savetofile(fieldbyname('skillgroup').asstring+'.ini');
                 close;
             end;
          end;
     end;
   end;
  except      //防止查询失败
    begin
      fadoquery.close;
      fadoquserinfor.close;
   end;
 end;

 end;

end.