我写过vbs通过ado对象来连接sqlserver,我想oracle应该也是可以被ado对象访问的
你可以找一下《深入浅出wincc》这本书,里面有相关代码
关于ado对象需要自行百度
我贴一段连接SqlServer的代码吧,供你参考(连接oracle的字符串肯定需要修改,这可以百度一下ado访问oracle):
Dim strCnstring
Dim strID,strPwd,strDBName,strPCName
''--------Create Ado Object-----------
Set AdoCn = CreateObject("ADODB.Connection")
Set Rs=CreateObject("ADODB.Recordset")
''--------Connect Database-----------
strID="sa"''username
strPwd="123"''password
strDBName=DbName''database name
strPCName=HMIRuntime.tags("@LocalMachineName").read''computer name
''------------------------------
strCnstring="Provider=SQLOLEDB.1;Password=" & strPwd & ";"
strCnstring=strCnstring & "Persist Security Info=True;User ID=" & strID & ";"
strCnstring=strCnstring & "Initial Catalog=" & strDBName & ";"
strCnstring=strCnstring & "Data Source=" & strPCName & "\WINCC"
AdoCn.ConnectionString = strCnstring
AdoCn.open
''--------Recordset-----------
If rsConnection=True Then
Rs.ActiveConnection=adoCn
End If
Rs.CursorLocation=3''adUseClient