连接按钮程序：
Dim adocn
Dim adors
Dim Constr
Dim adocmd
Set adocn=CreateObject("ADODB.Connection")
Set adors=CreateObject("ADODB.RecordSet")
Set adocmd=CreateObject("ADODB.command")
constr = "Provider=WinCCOLEDBProvider.1;Persist Security Info=False;User ID="";Data Source=例子;Catalog="";Mode=Read;Location="";Mode=Read;Extended Properties="""
With adocn
.ConnectionString = constr
.ConnectionTimeout = 10
.Open
End With
If adocn.state=1 Then
MsgBox("数据库连接成功")
Else
MsgBox("数据库连接失败")
End If
显示按钮程序：
adors.ActiveConnection = adocn
Dim strsql
strsql="select * from 人员信息"
With adocmd
.activeconnection=adocn
.commandtext=strsql
End With
Set adors=adocmd.Execute
MsgBox("修改成功")
Dim xm
Set xm=ScreenItems("Static Text4")
xm.Text=adors.fields(1).value
求高手看看这个程序有没有问题，怎么在wincc脚本里不好用呢，静态文本什么也不显示
最佳答案
静态文本什么也不显示，你看看执行的时候是否显示数据库连接成功，数据库连接失败，以及修改成功。如果这三项也都没有，说明问题出在连接语句处，如果显示其中一项，说明问题出在那一项之前。可以设置msgbox代码在每一行的下边，看看到底程序执行到哪。就可以分析出问题所在了。
QQ2606352062 联系小董，提供5套完整报表例子以及书籍教程。真正的手把手。
提问者对于答案的评价：
thanks
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc191449.html
微信扫一扫 
支付宝扫一扫 