搬家第41天-citect2018citectVBA编程将ACCESS数据采集到microsoftdatagrid控件显示

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了搬家第41天-citect2018citectVBA编程将ACCESS数据采集到microsoftdatagrid控件显示，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1641字，纯文字阅读大概需要3分钟。

内容图文

以前在citect 7.x版本试验过将ACCESS数据采集到microsoft 数据表控件显示，但是当时是将查询结果记录集逐条按照字段位置和数值写入控件，效率低，尤其是数据表记录很多的时候，显得很慢。其实可以通过设定控件的datasource属性方法快速的显示数据。

在citect项目中写以下citectVBA代码

Sub SetobjDatagridDatasource()
Dim conn As Object
Dim strcon As string
Dim objrs As Object
Dim ocom As Object
Dim ssql1,ssql2,ssql3 As string
Dim i As Integer
Dim j As Integer
strcon = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=myaccess"
ssql1="select curdate as 日期,curtime as 时间,temp1 as 温度1,temp2 As 温度2,temp3 As 温度3,temp4 As 温度4"
ssql2=",press1 as 压力1,press2 as 压力2,press3 as 压力3,press4 as 压力4"
ssql3=",flow1 as 流量1 ,flow2 as 流量2 from mytable"
Set conn=CreateObject("ADODB.Connection")
conn.connectionstring=strcon
conn.Cursorlocation=3
conn.open
Set objrs=CreateObject("ADODB.recordset")
Set ocom=CreateObject("ADODB.Command")
ocom.commandtype=1
Set ocom.ActiveConnection=conn
ocom.CommandText=ssql1 & ssql2 & ssql3
Set objrs=ocom.Execute
Set main_AN4.datasource=objrs
Set objrs=Nothing
'msgbox objrs.recordcount
'conn.close
'Set conn=Nothing
End Sub

 

代码中连接数据库使用ODBC数据源连接，ODBC数据源可以根据项目路径动态设置，具体方法参见前面的博客。画面上放置一个microsoft datagrid control 6.0sp6控件.重要的是设定datasource属性，令它等于objrs，这是一个recordset。

 如果遇到控件没有注册授权，请参考另外一个博客

http://blog.sina.com.cn/s/blog_724246b90102zb9k.html

上述代码稍作修改，可以变成条件查询显示结果。

 

改天试验一下cicode代码。

这个练习我也放到baidu网盘，项目编号citect2018prj12

 

地址是

链接: https://pan.baidu.com/s/11UGVuw83JOSVZMz5DuTJ9g 提取码: 1uuv

内容总结

以上是互联网集市为您收集整理的搬家第41天-citect2018citectVBA编程将ACCESS数据采集到microsoftdatagrid控件显示全部内容，希望文章能够帮你解决搬家第41天-citect2018citectVBA编程将ACCESS数据采集到microsoftdatagrid控件显示所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---