vb sqlÔËËãÎÊÌ⣿£¿
ÎÒÏë¼ÆËã¡°×Ö¶Î1¡±ÖеÄÊý¾Ý¡£
¾ÍÊÇÔÚ¡°×Ö¶Î1¡±ÖÐÉÏÒ»Ìõ¼Ç¼¼õÏÂÒ»Ìõ¼Ç¼£¬Ò»Ö±µ½×îºóÒ»Ìõ¼Ç¼£¬
µÃ³öµÄ½á¹ûÊä³öµ½¡°×Ö¶Î2¡±ÖС£
×Ö¶Î1 ×Ö¶Î2
9
7
8
5
2
2
¡
¡
¡
n
Çë¸÷λ¸ßÊÖд³ö´úÂëÀ´£¡Ð»Ð»£¡
ßÀ£¡ÎªÊ²Ã´Ã»ÓÐÈ˻صģ¬ÊÇ¿´²»Ã÷°×£¬»¹ÊÇÌ«ÄÑÁË£¿£¿
ÏÂÃæifº¯ÊýµÄÄǾäÓбàÒë´íÎó£¬Ó¦¸ÃÔõÑùÐ޸ģ¿£¿
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\³É¼¨\·ÖÊý.mdb;"
sql = "select * from ·ÖÊý±í"
Set rs = New ADODB.Recordset
Dim i as Integer
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
while not rs!eof
if i <> 0 then
i=rs.×Ö¶Î1-i
rs.×Ö¶Î2=i
end if
i=rs.×Ö¶Î1
wend
rs.update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
{{
Ïà¹ØÎÊ´ð£º
Ö´ÐеÄ˳Ðò£º
1£©Îļþä¯ÀÀ¿ò£¨Ñ¡ÔñÎļþʹÓã©
Ñ¡ÔñºÃÎļþºó
µã»÷Ò»¸öµ¼Èë°´Å¥µÄʱºò £¬°ÑÉÏÃæÉÏ´«¿òÀïµÄcsvÎļþÒÔÒ»¸öIDΪÎļþÃû£¬ÉÏ´«µ½**/**Îļþ¼ÐÏÂ
2£©¶ÁÈ¡Õâ¸öÎļþ¼ÐϵÄcsvµÄÎļþ£¬×ª»»³Ésql
3 ......
ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......
¿ÉÄÜÒòΪ¹¤×÷µÄÔÒò ½Ó´¥Êý¾Ý¿âÕâ¿é±È½ÏÉÙ£¬Ö®Ç°¶¼ÊÇ×ö³ÌÐòÕâ¿é£¬Êý¾Ý¿âÕâ¿é¶¼ÓÐרÃŵÄÈËÀ´×ö ·Ö¹¤¶¼ºÜÃ÷ϸ ËùÒÔ¶ÔÊý¾Ý¿âÕâÒ»¿éÍêÈ«²»Á˽⡣ǰ¶Îʱ¼ä È¥ÃæÊÔÁ˼¸¼Ò¹«Ë¾ ¼¸ºõ¶¼ÊÇÔÚÊý¾Ý¿âÕâ¿é¹ÒµôµÄ Á¬¸ö¼òµ¥µÄSQ ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......