连接按钮程序：
Dimadocn
Dimadors
DimConSTr
Dimadocmd
Setadocn=CreateObject("ADODB.Connection")
Setadors=CreateObject("ADODB.RecordSet")
Setadocmd=CreateObject("ADODB.command")
constr="Provider=winccOLEDBProvider.1;PersistSecurityInfo=False;UserID="";DatASource=例子;Catalog="";Mode=Read;Location="";Mode=Read;ExtendeDPropeRTies="""
Withadocn
.ConnectionString=constr
.ConnectionTimeout=10
.Open
EndWith
Ifadocn.state=1Then
MsgBox("数据库连接成功")
Else
MsgBox("数据库连接失败")
EndIf
显示按钮程序：
adors.ActiveConnection=adocn
Dimstrsql
strsql="select*from人员信息"
Withadocmd
.activeconnection=adocn
.commandtext=strsql
EndWith
Setadors=adocmd.Execute
MsgBox("修改成功")
Dimxm
Setxm=ScreenItems("StaticText4")
xm.Text=adors.fields(1).value
求高手看看这个程序有没有问题，怎么在wincc脚本里不好用呢，静态文本什么也不显示
最佳答案
静态文本什么也不显示，你看看执行的时候是否显示数据库连接成功，数据库连接失败，以及修改成功。如果这三项也都没有，说明问题出在连接语句处，如果显示其中一项，说明问题出在那一项之前。可以设置msgbox代码在每一行的下边，看看到底程序执行到哪。就可以分析出问题所在了。
QQ2606352062联系小董，提供5套完整报表例子以及书籍教程。真正的手把手。
提问者对于答案的评价：
thanks
