当前位置：工控论坛 > > 产品 > 自动化软件 > Siemens软件

在WinCC6.0中，采用VBS连接SQL Server的方法！ 点击：1772 | 回复：3



yy_dream

    
  • 精华：1帖
  • 求助：0帖
  • 帖子：50帖 | 30回
  • 年度积分：0
  • 历史总积分：180
  • 注册：2005年10月09日
发表于：2005-12-29 13:05:00
楼主
Dim objConnection
Dim objRecordset
Dim objCommand
Dim strConnectionString
Dim strSQL
Dim lngCount

strConnectionString="Provider=MSDASQL;DSN=CC_LHApp1_05_12_22_15_50_48;DATABASE=CC_LHApp1_05_12_22_15_50_48;UID=sa;PWD=sa"
strSQL="select * from PW_USER" 

Set objConnection=CreateObject("ADODB.Connection")
objConnection.ConnectionString=strConnectionString
objConnection.Open

Set objRecordset=CreateObject("ADODB.Recordset")
Set objCommand=CreateObject("ADODB.Command")
objCommand.ActiveConnection=objConnection
objCommand.CommandText=strSQL
Set objRecordset=objCommand.Execute

'读取成功之后的操作
'
'
Set objCommand=Nothing
objConnection.Close
Set objRecordset=Nothing
Set objConnection=Nothing
分享到：
收藏 邀请回答 回复楼主 举报



如火

  • 精华：172帖
  • 求助：0帖
  • 帖子：803帖 | 5249回
  • 年度积分：0
  • 历史总积分：0
  • 注册：1900年1月01日
发表于：2005-12-29 13:32:00
1楼
写的不错，支持！
回复 引用 举报

yuanle

  • 精华：0帖
  • 求助：0帖
  • 帖子：9帖 | 10208回
  • 年度积分：2747
  • 历史总积分：48332
  • 注册：2005年4月22日
发表于：2006-01-02 09:03:00
2楼
这个不就是wincc帮助中的VBS例程嘛
回复 引用 举报

jamesyuan

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 13回
  • 年度积分：0
  • 历史总积分：19
  • 注册：2006年1月09日
发表于：2006-01-18 16:30:00
3楼
如果用objRecordset.open 或objConnection.Execute strSQL，或set objRecordset＝objConnection.Execute（strSQL）就更简单些。用objRecordset＝objConnection.Execute（strSQL）方法如下:

Dim objConnection,objRecordset,strSQL

Set objConnection=CreateObject("ADODB.Connection")
Set objRecordset=CreateObject("ADODB.Recordset")

objConnection.Open "字符串"
strSQL="selet * from ......"
objConnection.Execute strSQL
set objRecordset＝objConnection.Execute（strSQL）
.
.
.

set objRecordset=Nothing
objConnection.Close

回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师