Çë½ÌÒ»¸ö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
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
±¨Õâ¸ö´í:
compile Error
sub or function not defined
ºÍÎÒÒýÓÃÕâ¸ö¿âº¯ÊýÓйØÏµÂð£¿
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......