09_01.job

来自「ASPTest 网络基础网页设计」· JOB 代码 · 共 13 行

Sub main()
Dim cn,rs
Dim mySql
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={SQL Server};Server=yangwu;Database=ASPTest;" & _
          "UID=sa;PWD=admin"
Set rs = CreateObject("ADODB.RecordSet")
mySql = "Update Chapter8 Set 价格=50 WHERE 价格>50"
rs.Open mySql,cn
cn.Close
Set cn = Nothing
Set rs = Nothing 
End Sub