摘要：
前一篇博客记录了如何从sql数据库表中读取记录显示在msflexgrid控件中，这一篇记录如何向sqlserver写数据。在citect建立三个本地标签flow1,flow2,flow3 在cicode编辑器写下面的脚本 Sub AddRecordToSQLDB()Dim conn As Objec 阅读全文
posted @ 2021-02-22 13:18
来自金沙江的小鱼
阅读(393)
评论(0)
推荐(0)
摘要：
本练习是在sql server2008R2上进行。假设有一个数据库CitectDB，虾米啊有一个数据表Rpt1，有如下数据： 在citect上有一个msflexgrid控件，访问名是main_AN4，在项目管理器的cicode编辑器上写如下citectVBA代码： Sub SqlTableTomsf 阅读全文
posted @ 2021-02-22 12:31
来自金沙江的小鱼
阅读(388)
评论(0)
推荐(0)
摘要：
前面的博客记录了连接excel、access数据表的方法，今天实验了一下连接sql server数据表，语句都是类似的。我在计算机上安装了sql server 2008R2 EXPRESS版本，也就是所谓的官方免费版本，连接数据库使用windows系统帐户和sql登录两种方式，给sa账户设置密码12 阅读全文
posted @ 2021-02-22 12:30
来自金沙江的小鱼
阅读(303)
评论(0)
推荐(0)
摘要：
前面的博客记录了判断某个程序（比如计算器）是不是已经打开。这一篇博客进一步，如果程序打开了就关闭它，如果程序没有打开就打开它。 Sub killoropenprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProc 阅读全文
posted @ 2021-02-22 12:28
来自金沙江的小鱼
阅读(224)
评论(0)
推荐(0)
摘要：
比如判断计算器是否在运行，如果在运行就关掉它。 Sub killprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProcessList As ObjectDim i As ObjectstrComputer = 阅读全文
posted @ 2021-02-22 12:27
来自金沙江的小鱼
阅读(143)
评论(0)
推荐(0)
摘要：
有时候我们需要判断某个程序是否已经运行，使用citectvba脚本可以实现这个功能，下面的代码实验判断计算器程序是否运行，通过进程查找calc.exe是否存在来判断。 Sub FindProcess()Dim strComputer As stringDim objWMIService As Obj 阅读全文
posted @ 2021-02-22 12:24
来自金沙江的小鱼
阅读(228)
评论(0)
推荐(0)
摘要：
我们使用citect采集了现场数据形成报表后，有时候需要把数据定时发电子邮件给某些人。微软的CDO组件支持邮件发送功能，我在学习citectVBA发邮件时，经历了一些波折，我在这篇博客把这些学习过程下来。 我的想法是点击画面上的按钮，后台脚本用一个qq信箱给一个126信箱发一封电子邮件，不需要打开浏 阅读全文
posted @ 2021-02-22 12:23
来自金沙江的小鱼
阅读(465)
评论(0)
推荐(0)
摘要：
前两天在qq群里看到有人问如何使用citectVBA取得昨天的日期，我看了一下CitectVBA资料，一个坏消息是没有日期加减计算的函数，一个好消息是excel里面丰富的日期时间函数可以计算昨天的日期，而且citect可以读取excel文件内容。当然可以在citectvba中通过if……then一大 阅读全文
posted @ 2021-02-22 12:20
来自金沙江的小鱼
阅读(166)
评论(0)
推荐(0)
摘要：
假设c盘根目录下有一个text.xlsx文件，希望得到R1C1的数值，那么在cicode编辑器写以下CitectVBA代码： Sub getdatafromexcel()Dim xlApp As ApplicationDim objwb As ObjectDim objst As ObjectDim 阅读全文
posted @ 2021-02-22 12:19
来自金沙江的小鱼
阅读(299)
评论(0)
推荐(0)
摘要：
比如我们有这样一个access表格 希望在citect中的MSFlexgrid控件显示信息时，是这样的排版 那么在前面讲access数据写入msflexgrid代码基础上可以写以下代码 Sub msflexgridMergerow()Dim InsertRowCount,colcount,i,j A 阅读全文
posted @ 2021-02-22 08:14
来自金沙江的小鱼
阅读(257)
评论(0)
推荐(0)
浙公网安备 33010602011771号