现在用wincc做一个报表，wincc自带的报表编辑器没看懂杂用，现在计划使用VBS脚本把数据写入到SQL数据库中，画面中添加一个按钮动作脚本为写入数据库脚本，我ODBC也设置了DSN，测试连接成功。SQL数据库中已经建立数据库。
 
 感觉应该是连接字符串的问题，不知道怎么修改，哪位给看一下
 这个脚本连接是使用OLEDB
 按钮动作脚本如下：
 Sub OnClick(ByVal Item)                    
 
 Dim objConnection
 Dim strConnectionstring
 Dim lngValue
 Dim strSQL
 Dim objCommand
 
 Dim guanhao
 Dim guanjing
 Dim bihou
 Dim caizhi
 Dim SyValue
 Dim MixValue
 Dim MaxValue
 Dim BYtime
 Dim jielun
 Dim CSdate
 Dim CStime
 Dim caozuoyuan
 
 guanhao=HMIRuntime.Tags("管号").Read
 guanjing=HMIRuntime.Tags("钢管管径").Read
 bihou=HMIRuntime.Tags("壁厚").Read
 caizhi=HMIRuntime.Tags("材质").Read
 SyValue=HMIRuntime.Tags("试压压力设定").Read
 MixValue=HMIRuntime.Tags("保压最小值").Read
 MaxValue=HMIRuntime.Tags("保压最大值").Read
 BYtime=HMIRuntime.Tags("保压时间").Read
 jielun=HMIRuntime.Tags("试验结果").Read
 CSdate=HMIRuntime.Tags("试验日期").Read
 CStime=HMIRuntime.Tags("试验时间").Read
 caozuoyuan=HMIRuntime.Tags("操作员").Read
 
 
 strConnectionstring = "Provider=SQLOLEDB.1;Password=123456;User ID=sa;Data Source=local"
 
 'strSQL="insert into report values ("'&guanhao&'","'&guanjing&'","'&bihou&'","'&caizhi&'","'&SyValue&'","'&MixValue&'","'&MaxValue&'","'&BYtime&'","'&jielun&'","'&CSdate&'","'&CStime&'","'&caozuoyuan&'")"
 
 Set objConnection = CreateObject("ADODB.Connection")
 
 objConnection.Connectionstring = strConnectionstring
 objConnection.open
 
 Set objCommand = CreateObject("ADODB.Command")
 With objCommand
  
  .ActiveConnection = objConnection
  .CommandText = strSQL
  
 End With
 
 objCommand.Execute
 Set objCommand = Nothing
 objConnection.Close
 Set objConnection = Nothing
 MsgBox("cccccccccccc")
 
 End Sub