查人人中国名人网一线社工工作内容:怎样通过ADODC把输入的记录保存到AC2000数据库中?
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/09 10:56:35
为什么在运行时会出现实时错误:键列值不足或不正确,更新影响到多行.错误指向use.AddNew语句
给你个VB的例子做做参考：
Set use = adsl.OpenRecordset("select * from gongdan where liushui='" + Trim$(Text1.Text) + "' or duankou='" + Trim$(Text2.Text) + "'")
If Not use.EOF Then
MsgBox "您填写的[流水号]或[端口号]在此之前已经填写过了。", vbInformation, "系统提示"
Exit Sub
If IsDate(Text9.Text) = False Then
MsgBox "您填写的[装机日期]不合法，请检查。", vbInformation, "系统提示"
Exit Sub
End If
Else
use.AddNew
use!liushui = Trim$(Text1.Text)
use!duankou = Trim$(Text2.Text)
use!leixing = Combo1.Text
use!yonghu = Text3.Text
use!xingzhi = Combo3.Text
use!tel = Text4.Text
use!feiyong = Text5.Text
use!ip = Trim$(Text6.Text)
use!zhuangtai = Combo2.Text
use!tiandanriqi = Format(Text7.Text, "yyyy-m-d")
use!jingshouren = Text8.Text
use!zhuangjiriqi = Format(Text9.Text, "yyyy-m-d")
use!beizhu = Text10.Text
use!jiaofei = "0"
use.Update
MsgBox "您填写的工单已存盘。", vbInformation, "系统提示"
End If