WINCC中使用ADO对象连接数据库 例子 常用属性 方法_第1页
WINCC中使用ADO对象连接数据库 例子 常用属性 方法_第2页
WINCC中使用ADO对象连接数据库 例子 常用属性 方法_第3页
WINCC中使用ADO对象连接数据库 例子 常用属性 方法_第4页
WINCC中使用ADO对象连接数据库 例子 常用属性 方法_第5页
已阅读5页,还剩3页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、在WINCC中连接数据库可以使用ADO控件进行连接数据库,但是通常都不是用的ADO控件进行连接数据库,以下讲讲winccZ中使用ADO对象连接查询数据库。以下以报警记录为例。一、了解ADO对象    1.1ADO对象操作数据库是微软提供的一种接口。    1.2对ADO对象的访问使用CreateObject函数(详情请参看CreateObject函数资料)      ADO组件的前缀是ADODB,所以访问的时候必须为ADODB.XX(X代表对象) 

2、;     eg:         dim conn,oRs,oCom         Set conn = CreateObject("ADODB.Connection")   'Connection对象         

3、;Set oRs = CreateObject("ADODB.Recordset")     'ADODB.Recordset对象         Set oCom = CreateObject("ADODB.Command")      'ADODB.Command命令对象二、对象    2.1 Co

4、nnection 对象     2.1.1  open 方法      语法      connection.Open ConnectionString,UserID,Password,OpengOptions      说明      ConnectionString:可选参数,字符串,

5、包含连接信息      UserID:可选参数,字符串,包含建立连接时候用的用户名      Password:可选参数,字符串,包含建立连接时候用密码      OpenOptions:可选参数,连接打开方式   eg1:(连接数据库代码方法1,仅连接部分代码)      Dim conn   &

6、#160;  Dim tagDSNName      Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.ConnectionString = "Provider=WinCCOL

7、EDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"      conn.CursorLocation = 3      conn.Open  eg2:(连接数据代码方法2,连接部分代码)      Dim conn      

8、;Dim tagDSNName      Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.CursorLocation = 3      con

9、n.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"      2.1.2  close方法     connection.close  eg:      Dim conn  

10、    Dim tagDSNName      Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.CursorLocation = 3  

11、0;   conn.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"     '这里写上对数据库查询,修改等操作      conn.close    2.1.3 execute方法   

12、   语法    Cn.Execute strCommand,IngRowsAffected,IngOptions     说明     strCommand:可以是查询语句、表名、存储过程名等     IngRowsAffected:可选参数,返回Insert、Update 、Delete查询语句后所影响的数目     Ing

13、Optiongs: 参数可以如下       adCmdUnkown:Command类型未定,由数据源提供者去判断Command语法       AdCmdFile:Command是和对象类型相应的文件名称       adCmdStoredProc:Command是存储过程名称       adCmdTable:Co

14、mmand是能产生内部SELECT*FROM TableName查询的表名称       adCmdTableDirect:Command是能直接从表中获取行内容的表名称       adCmdText:Command是一条SQL语句   eg:      Dim conn,oCom,oRs      Dim

15、 tagDSNName      Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.CursorLocation = 3      conn.Op

16、en  "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"      Set oCom = CreateObject("ADODB.Command")      Set oRs = CreateObject("ADODB.Recordset") &#

17、160;    oCom.CommandType=1      Set oCom.ActiveConnection = conn      oCom.CommandText ="ALARMVIEW:Select * FROM AlgViewCHT "      Set oRs = oCom.Execute    

18、60; '以上4句还可以写成  Set oRs=conn.Execute("ALARMVIEW:Select * FROM AlgViewCHT ")             conn.close  2.2 Recordset对象     Recordset 常用属性      &

19、#160; RecordsetCount:返回当前记录的数目        BOF:表示当前记录位于该对象第一个记录之前        EOF:表示当前记录位于该对象最后一个记录之后。        movefirst:移动到第一条        movenext:移动

20、到下一条        movelast:移动到最后一条    eg:      Dim conn,oCom,oRs      Dim m      Dim tagDSNName      Set tagDSNName = HMIRunti

21、me.Tags("DatasourceNameRT")      Set conn = CreateObject("ADODB.Connection")      conn.CursorLocation = 3      conn.Open  "Provider=WinCCOLEDBProvider.1;Catalog="&tag

22、DSNName.Read&"Data Source=.WinCC"      Set oRs = CreateObject("ADODB.Recordset")      Set oRs=conn.Execute("ALARMVIEW:Select * FROM AlgViewCHT ")      m = oRs.RecordCount 

23、     msgbox "报警行数"&m      conn.close   2.2.1 Open方法      语法      recordset.Open Source,ActiveConnection,CursorType,LockType,Options    &

24、#160; 说明      Source:可选参数,变体型,计算Command对象的变量名、SQL语句、表名、存储过程调用或持久的                   Recordst文件名      ActiveConnection:可选参数,变体型,计算有效Connection对象变量

25、名或字符串,包含                          ConnectionString参数      CursorType:可选参数,用于确定数据提供者打开Recordset时应该使用游标类型,类型如下      &

26、#160;      adOpenForwardOnly:打开仅向前类型游标(默认类型)             adOpenKeyset:打开键集类型游标             adOpenDynamic:打开动态类型游标    

27、60;        adOpenStatic:打开静态类型游标               注:具体解释请参考百度结果,这里我们主要讲解应用方面的东西。       LockType:可选参数,确定数据提供者打开Recordset时应该使用的锁定(并发)类型的LockTypeEnum  

28、              值,类型如下             adLockReadOnly:只读,默认值             adLockPessinistic:保守式锁定,提供者完成确保成功

29、编辑记录所需的工作,通常通过在编辑时                                候锁定数据源的记录来完成。             adLo

30、ckOptimistic:开放式锁定,提供者试用开放式锁定,只在调用Update方法时才锁定记录。             adLockBatchOptimistic:开放式批更新,用于批更新模式       Optiongs:可选参数,长整型,用于指示数据提供者如何计算Source参数,或从以前保存的Recordset       &#

31、160;         中恢复Recordset(以下省略参数类型讲解)   eg:         Dim conn,oRs,oCom         Dim m,i         Dim tagDSNN

32、ame         Set tagDSNName = HMIRuntime.Tags("DatasourceNameRT")         Set conn = CreateObject("ADODB.Connection")         conn.CursorLocation

33、= 3         conn.Open "Provider=WinCCOLEDBProvider.1;Catalog="&tagDSNName.Read&"Data Source=.WinCC"         Set oRs = CreateObject("ADODB.Recordset")    

34、;     oRs.open "ALARMVIEW:Select * FROM AlgViewCHT ",conn         m = oRs.RecordCount         MsgBox "报警行数"&m         oRs.Close         conn.Close   2.3 Command对象      2.3.1 对象属性说明         ActiveC

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论