服务器显示装入归档文件错误,归档文件导出到自己建立的sql数据库中，程序有错误就是strcn=开头的那句请高手指教-工业支持中心-西门子中国...

悬赏:50分 | 解决时间：2008-12-27 23:57

产品版区：

SIMATIC WinCC

求学者ˇ

| 提问者： 求学者ˇ - 资深学长&nbsp&nbsp第3级

Option Explicit

Function action

'定义变量

Dim database,server,uid,pwd

Dim strcn,cn

Dim is_sql

Dim datatime,login,lit8751

'获取系统当前时间

datetime=Now

'获取当前wincc用户信息

Set login=HMIRuntime.Tags("@currentusername")

login.Read

'获取变量

Set lit8751=HMIRuntime.Tags("lit8751")

lit8751.Read

'获取服务器名称

Set server=HMIRuntime.Tags("@servername")

server.Read

server=server.Value & "\wincc"

'填写要连接的数据库信息

database="xlpdb"

uid="sinomem"

pwd="6778100"

'得出数据库完整的驱动信息

strcn="provider=sqloledb.1;driver=sql server; server="& server &";database="& database &";server="& server &" uid="& uid &";pwd="& pwd &"

'建立ADO连接

Set cn=creatobject("adobd.connection")

cn.connectionstring=strcn

cn.open

'把变量值写入数据表中

is_sql="insert into jytable(datetime,login.lit8751)values('"&datetime&"','"&login.value&"','"&lit8751.value&"')"

cn.execute Is_sql

cn.close

End Function

小程序:

扫码进入找答案小程序，即刻追踪此问题

问题ID：29757