sql = "select * from 收文表 "
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
rs.MoveLast
rs.AddNew
rs!分类序号 = Combo2.Text
rs!来文单位 = Text2(2).Text
rs!收文标题 = Text2(0).Text
rs!收文字号 = Text2(1).Text
rs!发文时间 = Mask3.Text
rs!收文时间 = Mask2.Text
rs!备注 = Text2(3).Text
rs.Update
rs.Close
执行上面的代码,只要上述的text或mask中不输入内容,系统就报错:"零长度字符不能保存"
请教各位大侠.谢谢!
解决方案 »
- [求助]VB怎样列表框(ListBox)与列表框之间的相同数据清除掉呢?
- 编译问题
- DataCombo 在我选择完后,按"确定"时,我希望DataCombo 的值为 空 ,用 DataCombo.Index=-1 会出错。要怎么写?
- 用VB是否可以做拦截UDP的程序!?
- VB能否在运行时装载组件(避免注册组件)以实现绿色软件?
- VB给单片机发数据就是发不出去
- VB怎么用ADO连接ACCESS数据库,并且解决相对路径的问题
- Delphi怎么使用VB写的控件
- 关于toolbar的问题,急!
- datalist的selectedItem为什么不可以被赋值
- 关于SQL SERVER 的一个简单问题,请帮忙先谢过!
- 关于midi的程序
rs!来文单位 = Text2(2).Text & ""
rs!收文标题 = Text2(0).Text & ""
rs!收文字号 = Text2(1).Text & ""
rs!发文时间 = Mask3.Text & ""
rs!收文时间 = Mask2.Text & ""
rs!备注 = Text2(3).Text & ""