Dim m_no as Integer m_no=1 Update Table Set Field="New" where FieldID=" & m_no
update 表名 set 字段名=值[,字段名=值] where 条件If you use the Recordset object, you can directly use the update method, like this: a("字段名")=值 a("字段名")=值 : : : a.update()
这个例子对来自表 authors 的前十个作者的 state 列进行更新。UPDATE authors SET state = 'ZZ' FROM (SELECT TOP 10 * FROM authors ORDER BY au_lname) AS t1 WHERE authors.au_id = t1.au_id
Dim ssql4 As String ssql4 = "update 订单 set 实际欠款=委托金额-预付款-二次付款-三次付款-四次付款-冲账金额" datPrimaryRS.Open ssql4, dfwConn, adOpenForwardOnly, adLockReadOnly Dim ssql5 As String ssql5 = "update 订单 set 毛利润=委托金额-外协总额-领料总额" datPrimaryRS.Open ssql5, dfwConn, adOpenForwardOnly, adLockReadOnly '
m_no=1
Update Table Set Field="New" where FieldID=" & m_no
a("字段名")=值
a("字段名")=值
:
:
:
a.update()
SET state = 'ZZ'
FROM (SELECT TOP 10 * FROM authors ORDER BY au_lname) AS t1
WHERE authors.au_id = t1.au_id
ssql4 = "update 订单 set 实际欠款=委托金额-预付款-二次付款-三次付款-四次付款-冲账金额"
datPrimaryRS.Open ssql4, dfwConn, adOpenForwardOnly, adLockReadOnly
Dim ssql5 As String
ssql5 = "update 订单 set 毛利润=委托金额-外协总额-领料总额"
datPrimaryRS.Open ssql5, dfwConn, adOpenForwardOnly, adLockReadOnly
'