Sub procedure1
Dim P1,P2,P3,P4,P5,P6,T1,T2,T3,T4,T5,T6,PT,P_Oil,T_Water,T_Oil
Dim Tag
'MsgBox "Open with:" & vbCr & vbCr
Set Tag = HMIRuntime.Tags("NewTag1")
Tag.Read
Tag.Value =Tag.Value + 1
Tag.Write
'sPro = "Provider=WinCCOLEDBProvider.1;"
'sDsn = "Catalog=CC_aaa1_07_02_28_02_46_56R;"
'sSer = "Data Source=.\WinCC"
'sCon = sPro + sDsn + sSer
Set conn = CreateObject("ADODB.Connection")
'conn.ConnectionString = sCon
conn.ConnectionString = "DSN=data;UID=administrator;PWD=;"
conn.CursorLocation = 3
conn.Open
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = sSql
Set oRs = oCom.Execute
'MsgBox "Open with:" & vbCr & sSql & vbCr
'Tag.Read oRs.Field(1).value
'oRs.MoveNext
'm = oRs.Fields.Count
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
哪位大哥帮我看一段VB程序,尽量详细。函数什么意思i,明天答辩,感激不尽...
这段程序说实话不知所云。1、所有前面有'的语句都是被注释掉的废代码;2、HMIRuntime不知是个什么对象,本过程中看不出来;3、倒数第二段要打开一个数据集,但sSql变量不知在何处定义的(本过程中没有),也不知是啥内容,更神奇的是打开了数据集后啥也没干(因为最后一段那四行都变废代码了)...
在线等 哪位高手帮我分析一下这些VB源代码的意思,我实在是没分了,不...
表示数据准备添加,后面的rs_addreader.Fields(0) = Trim(Text1.Text)这类表示每个字段添加的数据,由于没有数据库可以参考,所以不太清楚对应的信息是什么,不过一般也是编号、姓名、年龄(出生日期)、籍贯、地址等等吧,
vb中的程序难题,拜求高手帮忙解决!
在Excel的启动宏中加入一段程序,其功能是在磁盘中写入一个标志文件,同时在关闭宏中加入一段删除此标志的程序。VB程序在执行时通过判断此标志文件存在与否来判断Excel是否打开,如果此标志文件存在,表明Excel对象正在运行,应该禁止其它程序的运行。如果此标志文件不存在,表明Excel对象已被关闭,此时如果要使用Excel对象运行,...
vb.net高手请帮帮我看看下面这代码什么意思,详解哦,先谢了,Handles 作...
在VB.Net当中,事件的"关联"是需要明显标志的,不像vb6当中,声明一个过程就是事件执行过程了 Handles用来静态"关联"一个或多个事件到一个过程 "关联"时,过程的签名必须与事件的签名相同(签名的意义请查看相关文档)在VB.Net当中,事件也是一个对象(VB.Net当中一切皆为对象)使用Handles时实际就相当于创建...
求VB的自定义函数的写法 我是自学的最好详细点
自定义函数过程是以“Function”关键字开始的函数过程。自定义函数过程的语法格式如下:[Public|Private] [Static] Function 函数过程名 ([形参列表]) [As 类型]实例:例如计算内圆和外圆之间的环形面积 Private Sub Command1_Click()Dim r1!,r2!,s1!,s2! `分别表示内径、外径、内圆面积、外圆...
VB程序中子程序或函数未定义是什么意思
两种可能,一是你忘记了写子程序和函数的代码,二是你调用、定义的子程序或函数名称不一致。请粘贴代码、指明错误的行,大家可以帮你准确分析原因。
关于VB绘制函数图象的程序解读,请高手帮忙~~
首先,最重要的问题就是用什么方法绘制三角函数图像。这个问题在我所学的范围之内似乎很难解决,于是我选择了网络求助。 在 百度中我找到了如何应用PSet方法绘制sin函数,正是这段程序给了我很大的启发,不仅教会我如何绘制图像,我还了解到了定义目标的坐标系统,并画出坐标轴。 之后,以这个程序为基础...
vb开发的exe程序 使用次数怎么控制 请提供全部代码,以及详细方法 不甚...
很好弄,定义一个static变量。如下:static i i=i+1 if i>100 then'最多可用一百次 msgbox("使用次数已经到了,请重新注册")end end if 把以上程序放到主程序的load函数中
编程大神帮我看看这个程序为什么有问题(VB程序)?
定时器函数中 timer1_time(),不要直接使用n,而是使用一个隐藏的文本框来保存n,不同函数中n是不相通的。
在VB程序中都有那些常用的函数、和语句,分别怎么用?
看你样子跟我以前一样,估计看了MSDN的东西头都大了,看个简单的,只是简单介绍,需要再用这个名字去百度搜咯1、 Int(x):求不大于自变量x的最大整数 2、 Fix(x):去掉一个浮点数的小数部分,保留其整数部分 3、 Hex$(x):把一个十进制数转换为十六进制数 4、 Oct$(x):把一个十进制数转换...