找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
Dim SqlInTo
SqlInTo = "Insert Into Table(Int1) Values(‘ "&Int1.Value&" ’) "
Conn.Execute (SqlInTo)
Conn.Close
Set Conn = Nothing
End Sub
小程序查看
手机扫码追踪该问题
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
例程:
把wincc变量
REPORT1.NO1
REPORT1.NO2
REPORT1.NO3
。。。
写到数据库MinuteTable
var1
var2
var3
。。。
用了很多年的报表
-----------------------------------------------------------------------------
Dim Dy
Dim strSQL,strConnectionString,myDy
Dim objConnection,objCommand
Dim myMinute ,mySec
Dim v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,v14,v15
Dy = Now
myMinute = Minute(Dy)
mySec = Second(Dy)
myDy = CStr(Dy)
v1=CStr(HMIRuntime.Tags("REPORT1.NO1").Read)
v2=CStr(HMIRuntime.Tags("REPORT1.NO2").Read)
v3=CStr(HMIRuntime.Tags("REPORT1.NO3").Read)
v4=CStr(HMIRuntime.Tags("REPORT1.NO4").Read)
v5=CStr(HMIRuntime.Tags("var5").Read)
v6=CStr(HMIRuntime.Tags("var6").Read)
v7=CStr(HMIRuntime.Tags("var7").Read)
v8=CStr(HMIRuntime.Tags("var8").Read)
v9=CStr(HMIRuntime.Tags("var9").Read)
v10=CStr(HMIRuntime.Tags("var10").Read)
v11=CStr(HMIRuntime.Tags("var11").Read)
v12=CStr(HMIRuntime.Tags("var12").Read)
v13=CStr(HMIRuntime.Tags("var13").Read)
v14=CStr(HMIRuntime.Tags("var14").Read)
v15=CStr(HMIRuntime.Tags("var15").Read)
strConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CRTest;Data Source=.\WinCC;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=FF-PC;Use Encryption for Data=False;Tag with column collation when possible=False;"
strSQL = "INSERT INTO MinuteTable (Dy"
strSQL = strSQL + ",var1"
strSQL = strSQL + ",var2"
strSQL = strSQL + ",var3"
strSQL = strSQL + ",var4"
strSQL = strSQL + ",var5"
strSQL = strSQL + ",var6"
strSQL = strSQL + ",var7"
strSQL = strSQL + ",var8"
strSQL = strSQL + ",var9"
strSQL = strSQL + ",var10"
strSQL = strSQL + ",var11"
strSQL = strSQL + ",var12"
strSQL = strSQL + ",var13"
strSQL = strSQL + ",var14"
strSQL = strSQL + ",var15"
strSQL = strSQL + ") VALUES (''" + myDy + "''"
strSQL = strSQL + "," + v1
strSQL = strSQL + "," + v2
strSQL = strSQL + "," + v3
strSQL = strSQL + "," + v4
strSQL = strSQL + "," + v5
strSQL = strSQL + "," + v6
strSQL = strSQL + "," + v7
strSQL = strSQL + "," + v8
strSQL = strSQL + "," + v9
strSQL = strSQL + "," + v10
strSQL = strSQL + "," + v11
strSQL = strSQL + "," + v12
strSQL = strSQL + "," + v13
strSQL = strSQL + "," + v14
strSQL = strSQL + "," + v15
strSQL = strSQL + ")"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
USE PLCdata
GO
Insert Into Table(Int1) Values(''''123'''') ''''''''注意括号中是单引号,这里Int1的数据类型是char或Vchar 。如果Int1是整数类型就不需要单引号
第三,Conn.Execute (SqlInTo) 把()去掉
认真阅读ADO的帮助手册。 Conn.Execute 这个是可以直接执行SQL语句的用起来也简单,无需建立一个Command对象
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!