还是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
相关问答：
大家好，请问在表M中有字段：a b c d e
我想查出其中满足下面任意一项的数据，1.字段a 的值不是 ‘书或笔或本’中任一，2.a为书的时候字段b,c是空;3.当a值为笔的时候d是空;4.当a为本的时候b,d,e都是空;5.� ......
环境：1.win2003server+oracle9i
2.oracle9i字符集为AMERICAN_AMERICA.WE8ISO8859P1
3.oracle sql developer版本 1.5.5
现象描述: 1.在sql developer 中查询oracle中的某个表，中文全部显示为乱码。
......
原数据
商品 原价 打折方式1 折扣1 打折方式2 折扣2
笔记本 10000 NULL 0 NULL&nb ......
type Exception report
message
description The server encountered an internal error () that prevented it from fulfilling this request.
exception
org.apache.jas ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
