还是VB和SQL的问题
我用VB读取WinCC的过程变量A（二进制）到text16 中 ，只要text6中为1，就向SQL数据库做一条记录。
下面的代码是当条件满足时，用按钮command1添加记录的（这个已经实现）。
Private Sub command1_click()
If Text16.Text = "1" Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Text1.Text = Text19.Text ‘SQL字段1
Text2.Text = Text5.Text ‘SQL字段2
Text3.Text = Text17.Text ‘SQL字段3
Text20.Text = Date ‘SQL字段4
Text4.Text = Time ‘SQL字段5
Adodc1.Recordset.UpdateBatch
Else
End If
End Sub
我的问题是，怎样写，可以让VB根据变量A为1时自动做一条记录。上面的条件语句放到什么样的过程或方法中去？
添加timer控件，然后如下：
VB code:
Private Sub Form_Load()
Timer1.Enabled = 1000
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
If Text16.Text = "1" Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
Text1.Text = Text19.Text 'SQL字段1
Text2.Text = Text5.Text 'SQL字段2
Text3.Text = Text17.Text 'SQL字段3
Text20.Text = Date 'SQL字段4
Text4.Text = Time 'SQL字段5
Adodc1.Recordset.UpdateBatch
Else
End If
Timer1.Enabled = True
E
相关问答：
sql可以有两个以上的触发器吗？？我指的是for触发器，那其他的呢？？
什么意思？
可以的
10个都没问题
可是我写了两个for insert 触发器，造成进程阻塞了呢？怎么办呢？请高人指点
......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
