WinCC、Connectivity Pack 连接数据库问题

已锁定

彩笔也有情

  • 帖子

    3
  • 精华

    0
  • 被关注

    0

论坛等级:新手

注册时间:2014-03-17

普通 普通 如何晋级?

WinCC、Connectivity Pack 连接数据库问题

1380

2

2014-03-20 09:40:25

(1)我使用OLE-DB访问本地数据库,VBS使用的是@DataSourceNameRT访问数据库,不知怎么的报错,求解答啊,谢谢。
(2)WINCC数据库的名称在哪里啊,本地的SQL 2005工具我点击了下,看不见啊,求大神啊,现在看文档都说使用@DataSourceNameRT的变量访问最好,但是又报错。求帮助啊,谢谢
我是用的是 WINCC FLEXIABLE 2008
源代码
Function WinCCDataSourceAcess(connObj,pSQL)
'建立到数据库的连接
'读取本地的WinCC运行数据库名称
Dim DatasourceNameRT,DataConnectionName
Set DatasourceNameRT = HmiRuntime.Tags("@DatasourceNameRT")
DatasourceNameRT=DatasourceNameRT.Read
'定义数据库连接字符串
Dim sPro,sDsn, sSer
sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=" & DatasourceNameRT & ";"
sSer = "Data Source=.\WinCC"
DataConnectionName = sPro + sDsn + sSer
' 定义查询语句字符串
Dim sSQL
sSQL=pSQL
'建立连接
Dim oRs,oCom,conn
Set conn = CreateObject("ADODB.Connection")
Set conn=connObj
conn.ConnectionString = DataConnectionName
conn.CursorLocation = 3
conn.Open
'创建查询的命令文本
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText=sSQL
'执行查询
Set oRs = oCom.Execute
'返回结果
Set WinCCDataSourceAccess=oRs
If Err.Number <> 0 Then
Err.Clear
End If
On Error GoTo 0
End Function
WinCC、Connectivity Pack 连接数据库问题 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32567条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。