ÌáÉýÇ°ºǫ́ģʽ³ÌÐòµÄËÙ¶È
ÎÊ£ºÎҵĵ¥Î»ÒÑÁ¬¾ÖÓòÍø£¬ÓÐһ̨SERVER2000·þÎñÆ÷£¬ÓÐËĄ̈WIN98¹¤×÷Õ¾¡£¹²Í¬Ê¹ÓÃACCESSµ÷Ó÷þÎñÆ÷ÉϵĿâÎļþ SERVER.MDB¡£ ÏÖÔڵĽâ¾ö·½·¨ÊÇÔÚ·þÎñÆ÷ÉϽ¨Ò»¹²ÏíĿ¼´æ¹²Ïí¿âÎļþSERVER.MDB ¹¤×÷Õ¾ÉÏÓÃÁ´½Ó±í¶Ô´ËÏàÁ¬£¬µ«ÊÇ×ܾõµÃÁ½ÈËÒÔÉÏÔËÐÐʱËÙ¶ÈÌ«Âý¡£ ÇëÎÊÊDz»ÊÇÓиüºÃµÄ·½·¨£¿ ´ð£ºÆäʵ²»Âý£¬Ö»ÊÇÐèÒª¼¼ÇÉ
Dim cn As Connection Dim rs As New ADODB.Recordset Dim sql As String Set cn = CurrentProject.Connection sql = "select * from 1" rs.Open sql, cn, 3, 3, 1 ÄãµÄÈí¼þ×îºÃÓиöÖ÷¿ØÃæ°å£¬Ò»´ò¿ªÈí¼þËü¾Í´ò¿ª£¬¹Ø±ÕÈí¼þËü²Å¹Ø±Õ¡£ÔÚºǫ́Êý¾Ý¿âÎļþÀィһ¸öÖ»ÓÐÒ»¸ö×Ö¶ÎµÄ¿Õ±í£¬ÃûΪ1£¨ÆäËüÃûÒ²¿ÉÒÔ£©£¬È»ºó°ÑÉÏÃæµÄ´úÂë·ÅÔÚÖ÷¿ØÃæ°åµÄOPENʼþÀï¡£ ÕâÀïÃæÓõ½µÄС¼¼ÇɾÍÊÇ£º´ò¿ªÁËÒ»¸ö¿Õ±í£¬µ«Ã»¹Ø±ÕËü£¬ÕâÑùºǫ́Êý¾Ý¿â¾ÍÒ»Ö±ÔÚ´ò¿ª×´Ì¬£¨Äã¿ÉÒÔ¿´µ½ºǫ́Êý¾Ý¿â»áÉú³ÉÒ»¸öLDBÎļþ£©£¬ÄãÒª²Ù×÷ÆäËü±íµÄʱºò¾Í²»ÓÃƵ·±µØ´ò¿ª¡¢¹Ø±Õºǫ́Êý¾Ý¿â£¬ÕâÑù³ÌÐòÔËÐÐÆðÀ´¿ÉÒÔÌáÉý¼¶¼¸±¶µÄËٶȣ¬ÊÔÊÔ¿´°É¡£ Áí£º×îºÃÊÇ100MµÄ¾ÖÓòÍø¡£²»¹ýÎÒÔÚ10MµÄÍøÉÏÒ²ÓõúÜˬ£¬ÏÖÔÚÊÇ5¸öÓû§Í¬Ê±Óö¼Ã»¸Ð¾õµ½Âý¡£
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ûÓÐÏà¹ØÎÄÕÂ
|