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
{{
Ïà¹ØÎÊ´ð£º
ÈçºÎÔÚSQL2005ÖÐÉ趨¶¨Ê±×÷Òµ£¬±ÈÈç˵¶¨Ê±ÇåÀíijЩ±íµÄÊý¾Ý£¬
»òÕßÊǶ¨Ê±µÄ½«Ä³Ð©±íµÄÊý¾Ýµ¼³öexcel£¡
ÔÚÏߵȴý£¬¼±¼±¼±£¬×îºÃÊÇÏêϸ²½Ö裡
֮ǰÎÒ×öµÄ×÷ÒµÓеãÎÊÌ⣡
°ïUP
²Î¿¼:http://hi.baidu.com/toiota ......
tab1 ×Ö¶Î:billdate,goodsid,incount,inmoney,outcount,outmoney,endprice,endcount,endamt
tab2 ×Ö¶Î:goodsid,goodskind£¨ÉÌÆ·ÀàÐÍ£©
tab3 ×Ö¶Î:goodskind£¨ÉÌÆ·ÀàÐÍ£©,kindname
½á¹û£º
µÃµ½ÉÌÆ·ÀàÐÍÔÚÒ»¶Îʱ¼ä ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......