给你看看这个，也许是你要的。
Sub OnClick(Byval Item)
Dim database,server,uid,pwd
Dim strcn ,cn,rst,is_sql
Dim a,b
Dim NO
Set NO = HMIRuntime.Tags("NO")¡®¶Á±äÁ¿Öµ
NO.Read
Dim Company
WinCC ÔÚ½ø³ö³§¹ÜÀíϵͳÖеÄÓ¦Óà ºúÉÜÃ÷
4
Set Company = HMIRuntime.Tags("Company")¡®¶Á±äÁ¿Öµ
Company.Read
Dim Product
Set Product = HMIRuntime.Tags("Product")¡®¶Á±äÁ¿Öµ
Product.Read
Dim SheetNO
Set SheetNO = HMIRuntime.Tags("SheetNO")¡®¶Á±äÁ¿Öµ
SheetNO.Read
Dim TrackNO
Set TrackNO = HMIRuntime.Tags("TrackNO")¡®¶Á±äÁ¿Öµ
TrackNO.Read
Dim SetPoint
Set SetPoint = HMIRuntime.Tags("SetPoint")¡®¶Á±äÁ¿Öµ
SetPoint.Read
Dim CurrentUser
Set CurrentUser = HMIRuntime.Tags("@CurrentUser")¡®¶Á±äÓû§Ãû
CurrentUser.Read
Dim Ltime
Set Ltime = HMIRuntime.Tags("time")¡®¶Á±äϵͳʱ¼ä
Ltime.Read
Dim Ldate
Set Ldate = HMIRuntime.Tags("date")¡®¶Á±äϵͳÈÕÆÚ
Ldate.Read
database = "hu"
server = "BABY\WINCC"
uid = "sa"
pwd = ""
strcn = "Provider = SQLOLEDB.1;DRIVER = SQL SERVER;SERVER =" &_
server & "; DATABASE=" & database & "; UID=" & uid & "; PWD=" & pwd
¡®¶¨ÒåÁ¬½Ó×Ö·û
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = strcn
cn.open
is_SQL = "insert into
Sheet1(nomber,trackno,compay,sheetno,product,setpoint,operator,ttime,ddate)" & _
"Values("& NO.Value &",'"& TrackNO.Value &"','"& Company.Value &"','"&
SheetNO.Value &"','"& Product.Value &"',"& SetPoint.Value &",'"& CurrentUser.Value
&"','"& Ltime.Value &"','"& Ldate.Value &"')" ¡®´æÊý¾Ý
cn.Execute(is_SQL)
cn.close
End Sub