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
{{
Ïà¹ØÎÊ´ð£º
type Exception report
message
description The server encountered an internal error () that prevented it from fulfilling this request.
exception
org.apache.jas ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
×Ö¶Î1,×Ö¶Î2.....×Ö¶ÎN,Status,ParentID
1,Name1....test1,1,99
1,Name1....test1,3,99
1,Name2....test2,1,101
1,Name2....test2,3,101
1,Name3....test3,2,101
1,Name1....test1,4,101
ÏëÒªµÄ½á¹ûÊÇ:
1,Na ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......