vb6.0怎么用一个变量的变化0到1来触发记录数据保存到数据库？现在用手动按钮来触发的
Private Sub Command5_Click()
    Dim cn As New ADODB.Connection '
    Dim rst As New ADODB.Recordset '
    Dim SqlStr As String '声明一个字符串变量
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "Select * From 表1"
    rst.CursorLocation = adUseClient '设置游标位置
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
    rst.AddNew
    rst.Fields("编号").Value = Text3.Text '修改记录集中第一条记录"编号"字段的数值
    rst.Fields("vb3").Value = Text1.Text '修改记录集中第一条记录"VB3"字段的数值
    rst.Fields("vb4").Value = Text2.Text '修改记录集中第一条记录"VB4"字段的数值
    rst.UpdateBatch '提交，就是写到硬盘的数据库文件
    rst.Close '关闭记录集
    Set rst = Nothing '释放
    cn.Close '关闭连接
    Set cn = Nothing '释放
    End Sub                     谢谢大家！！！

1.首先考虑清楚变量赋值的逻辑；
2.然后：
if a=1 then
save
elseif a=0 then
not save
else
end

变量是无法触发的事件，但你这个变量在哪个地方修改的。
在修改的地方执行保存子程序可以不？

当然你这个变量是属于类的，那当我没说。
类里修改变量值时，可以代码指定一个事件给调用程序。

[此贴子已经被作者于2016-8-26 17:29编辑过]

当你需要付值变量=1时将数据更新

风版说得对，变量本身是无法实现的，可以用变量+Timer 之类的方式实现

我是VB上位机与PLC（下位机）通信。当PLC有个开关量由0变1时，保存采集到的数据。

那你接收到这个变量值变化时，调用保存函数。

版主能举好个例好吗？谢谢

当PLC有个开关量由0变1时

你在啥地方知道这个开关量由0变1呢？是事件，还是轮循？
收到这个开关量后，判断一下，如果＝1，那么就调用一次保存就是了。

没设备，也没用过 PLC，没有例子。