Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Çë½ÌÒ»¸öVBÎÊÌâ.°³ÊÇСϺ£¬åÇÊÇ´óϺ£¡

±¾µØÎªACCESS±í£¬·þÎñÆ÷ΪSQL±í¡£
'´ò¿ª±¾µØÊý¾Ý¿â
  Set rs = New ADODB.Recordset
      sql = "select * from HistTable22"
         
      rs.Open sql, cn, adOpenStatic, adLockOptimistic
      rs.MoveFirst
             
'´ò¿ª·þÎñÆ÷Êý¾Ý¿â
  Set rssql = New ADODB.Recordset
      str = "SELECT * from f1"
      rssql.Open str, cnnsql, adOpenDynamic, adLockOptimistic
     
      For i = 1 To rs.RecordCount Step 1
        rssql.AddNew
          For j = 0 To 3 Step 1
            rssql.Fields(j) = rs.Fields(j)
          Next j
        rssql.Update

        rs.Move i
      Next i

Çë´óϺÃǶÔÕÕÉÏÃæ³ÌÐò£¬¼ÙÉèrs¼Ç¼¼¯ÓÐ100Ìõ¼Ç¼£¬°³ÎʵÄÊÇ£ºÓÃrs.move i »òrs.movenextΪʲô²»ÄÜÈÃrs¼Ç¼×Ô¼ºÍùÏÂÒÆ£¬ÖðÌõ´«µ½·þÎñÆ÷±íÖÐÄØ£¿£¨Ä¿Ç°¹ÊÕÏÏÖÏó£ºÔÚ´«ËÍÁ˵ÚÒ»Ìõ¼Ç¼ºó£¬´«Ë͵ڶþÌõ¼Ç¼ÔËÐе½rssql.updateʱ³öÏÖÎ¥·´ÁËPrimary KeyÔ¼Êø£¬²»ÄܲåÈëÖØ¸´µÄÎÊÌ⣩
±¾µØÎªACCESS±í£¬·þÎñÆ÷ΪSQL±í¡£
'´ò¿ª±¾µØÊý¾Ý¿â
  Set rs = New ADODB.Recordset
     


Ïà¹ØÎÊ´ð£º

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

VB ¶àÏ̻߳ñÈ¡º¯ÊýµØÖ·µÄÎÊÌâ

Çë½Ì´óÏÀ£¬´úÂëÈçÏ£º
wor = ThreadControl(i).CreateNewThread(AddressOf ThreadObj(i).CPPI, mThreadPriority, mEnabled)
ÕâÀïAddressOf ThreadObj(i).CPPI³ö´í£¬Õâ¸öAddressOf Ä¿µÄÊÇ»ñȡһ¸öº¯ÊýµÄµØÖ·£¬ÀýÈçA ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ