我写过vbs通过ado对象来连接sqlserver,我想oracle应该也是可以被ado对象访问的
你可以找一下《深入浅出wincc》这本书,里面有相关代码
关于ado对象需要自行百度
我贴一段连接SqlServer的代码吧,供你参考(连接oracle的字符串肯定需要修改,这可以百度一下ado访问oracle):
DimstrCnstring
DimstrID,strPwd,strDBName,strPCName
''--------CreateAdoObject-----------
SetAdoCn=CreateObject("ADODB.Connection")
SetRs=CreateObject("ADODB.Recordset")
''--------ConnectDatabase-----------
strID="sa"''username
strPwd="123"''password
strDBName=DbName''databasename
strPCName=HMIRuntime.tags("@LocalMachineName").read''computername
''------------------------------
strCnstring="Provider=SQLOLEDB.1;Password="&strPwd&";"
strCnstring=strCnstring&"PersistSecurityInfo=True;UserID="&strID&";"
strCnstring=strCnstring&"InitialCatalog="&strDBName&";"
strCnstring=strCnstring&"DataSource="&strPCName&"\WINCC"
AdoCn.ConnectionString=strCnstring
AdoCn.open
''--------Recordset-----------
IfrsConnection=TrueThen
Rs.ActiveConnection=adoCn
EndIf
Rs.CursorLocation=3''adUseClient