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

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
{{


Ïà¹ØÎÊ´ð£º

Çë½ÌsqlÓï¾ä¡£ - Oracle / ¿ª·¢

ÎÒÓÐÒ»¸ö±í£¬½á¹¹ÊÇÕâÑù¡£
  ת³ö µ¥Î» תÈ뵥λ ±ÊÊý ½ð¶î
date(Ö÷) outid(Ö÷) inid(Ö÷) num amt
2009 1 2 1 500 Ϊ 1 µ¥Î» ÔÚ2009Ä ......

Êý¾ÝÒÔxml¸ñʽ·µ»Ø - MS-SQL Server / Ó¦ÓÃʵÀý

´ÓÊý¾Ý¿âÖвéѯһÕűíµÄÊý¾Ý
select ²¿ÃÅ,ÐÕÃû from tb
ÈçºÎ²ÅÄÜÉú³ÉÏÂÃæµÄxml¸ñʽ
XML code:
<folder state="unchecked" label="È«²¿">
¡¡¡¡ <folder state="unchecked&qu ......

MS SQL×÷ÒµÎÊÌâ - MS-SQL Server / Ó¦ÓÃʵÀý

ÈçºÎÔÚSQL2005ÖÐÉ趨¶¨Ê±×÷Òµ£¬±ÈÈç˵¶¨Ê±ÇåÀíijЩ±íµÄÊý¾Ý£¬
»òÕßÊǶ¨Ê±µÄ½«Ä³Ð©±íµÄÊý¾Ýµ¼³öexcel£¡
ÔÚÏߵȴý£¬¼±¼±¼±£¬×îºÃÊÇÏêϸ²½Ö裡
֮ǰÎÒ×öµÄ×÷ÒµÓеãÎÊÌ⣡
°ïUP

²Î¿¼:http://hi.baidu.com/toiota ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ