ADO鍙橀噺绫诲瀷

闇€姹傚涓嬶細
瑕佹娴嬪崟浣嶄汉鍛樻槸鍚﹁揪鍒伴€€浼戝勾榫勩€?鎴戠殑鎬濊矾鏄敤
   Recordset鏄繑鍥炴墍鏈夊伐浣滀汉鍛樻。妗堛€?
   鏈変竴涓ā鍧楁槸杩斿洖璇ュ伐浣滀汉鍛樻槸鍚﹁揪鍒伴€€浼戝勾榫勩€?    private sub comamnd1_click()
      dim rs as adodb.recordset
      dim 閫€浼戜汉鍛?as string    
      閫€浼戜汉鍛?= "閫€浼戜汉鍛樻湁锛?
      set rs = cnn.execute(" select * from 妗ｆ琛?)
      do until rs.eof
         if 閫€浼戝勾榫???1) then
             閫€浼戜汉鍛?= 閫€浼戜汉鍛?& rs("濮撳悕")
         end if
         rs.movenext
      loop
    end sub    private function 閫€浼戝勾榫?浜哄憳淇℃伅 as ??2) as boolean
      .....
    end function 
    
    鍦??1涓殑鍐欐硶涓紝濡傛灉鏄啓鎴? if 閫€浼戝勾榫?rs) then
    濡傛灉rs鐨勮褰曟槸10000涓褰曠殑璇濓紝閭ｆ瘡娆￠兘瑕佸皢瀹冧紶閫掕繃鍘伙紝濡傛灉鏄彧鏄疘D鐨勮瘽锛岄偅  閫€浼戝勾榫? 妯″潡姣忔閮借鍘? 璇诲彇鏁版嵁搴撶殑鍐呭锛屼袱绉嶆柟娉曢兘涓嶅彲锛屽鏋滄湁浠呭皢 璇ヨ璁板綍 浼犻€掔粰   閫€浼戝勾榫? 鐨勮瘽锛屽氨姣旇緝濂戒簡 銆?
    鎴栬€呮湁姣旇緝濂界殑鏂规硶瀹炵幇锛岃璧愭暀銆?