Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "A相电流为: "
Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(5) * 16 * 16 + lnum(6)) & " mA"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "B相电流为: "
Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(9) * 16 * 16 + lnum(10)) & " mA"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "C相电流为: "
Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(13) * 16 * 16 + lnum(14)) & " mA"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "N相电流为: "
Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(17) * 16 * 16 + lnum(18)) & " mA"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "AB线电压为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(21) * 16 * 16 + lnum(22)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "BC线电压为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(25) * 16 * 16 + lnum(26)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "CA线电压为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(29) * 16 * 16 + lnum(30)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "A相电压V为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(33) * 16 * 16 + lnum(34)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "B相电压V为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(37) * 16 * 16 + lnum(38)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "C相电压V为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(41) * 16 * 16 + lnum(42)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "频率为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(45) * 16 * 16 + lnum(46)) / 100) & " HZ"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "有功功率为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(49) * 16 * 16 + lnum(50)) / 100) & " kW"
Adodc2.Recordset.Update
--------------------------------------------------------------------------------------
调试老是出现问题???
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "A相电流为: "
Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(5) * 16 * 16 + lnum(6)) & " mA"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "B相电流为: "
Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(9) * 16 * 16 + lnum(10)) & " mA"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "C相电流为: "
Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(13) * 16 * 16 + lnum(14)) & " mA"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "N相电流为: "
Adodc2.Recordset.Fields("对应参数数值") = Str(lnum(17) * 16 * 16 + lnum(18)) & " mA"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "AB线电压为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(21) * 16 * 16 + lnum(22)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "BC线电压为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(25) * 16 * 16 + lnum(26)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "CA线电压为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(29) * 16 * 16 + lnum(30)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "A相电压V为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(33) * 16 * 16 + lnum(34)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "B相电压V为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(37) * 16 * 16 + lnum(38)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "C相电压V为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(41) * 16 * 16 + lnum(42)) / 100) & " V"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "频率为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(45) * 16 * 16 + lnum(46)) / 100) & " HZ"
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("定时触发时间") = Now
Adodc2.Recordset.Fields("具体电量参数") = "有功功率为: "
Adodc2.Recordset.Fields("对应参数数值") = Str((lnum(49) * 16 * 16 + lnum(50)) / 100) & " kW"
Adodc2.Recordset.Update
--------------------------------------------------------------------------------------
调试老是出现问题???
但是只能保存第一条然后就是出错!!!溢出
但是我定义的是TEXT 50的
是不是可以自己定位往哪里插记录啊?
Adodc2.Recordset.MoveLast为什么可以不要啊?
都是加到最后的