关于VB在ACCESS数据库中添加空记录的问题!!!

softch 2002-05-30 01:20:18
我遇到一个问题,我用VB的ADODC控件连到ACCESS数据库。在向它添加一个空记录时就会出错,我想在系统报错前就用MSGBOX提示用户不能输入空记录,并删除该空记录。 这样应该如何写??
请各位帮忙,多谢!!
...全文
67 点赞 收藏 10
写回复
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
shuchang0626 2002-05-30
用on error goto啊
回复
luchunhua 2002-05-30
我同意楼上的说法!
回复
迷失的小牛 2002-05-30
应该是你的ACCESS数据库中表的结构设计有问题.如果允许用户插入一条空记录,就应将表中的所有字段的"必填"属性设为假,将所有字段的"允许空字符"属性设为真,也许这个问题就解决了.当然,从一般的应用程序角度来看,还是应该在程序中去确定用户是否将所有必填项都填完了,否则应给出提示.
回复
softch 2002-05-30
我是用ADDNEW来创建新记录,用TEXT来输入内容的!!
但是当我创建了新记录后如果我没有填内容就会出错,是不是要删除这个建好的空记录??
怎么删呢??
回复
lincanwen 2002-05-30
应该根据你的数据表的设计来做,如果你表里的字段不能为空,则对相应的text控件的值进行检查:
if trim(text.text)="" then
msgbox"此处不能为空,请重新输入!"
text.setfocus
text.selstart=0
end if
其中 text.setfocus是让text文本框获得输入焦点,
text.selstart=0是选中text文本框的值
回复
softch 2002-05-30
请问:liuyufeng()
text.setfocus
text.selstart=0
这两句是做什么用的??
回复
softch 2002-05-30
请问mornwoo(疾风之虫)
怎么做错误处理??
回复
xhstudio 2002-05-30
在保存数据前对所要写入数据库的数据进行检验
比如按长度
if len(text1.text)>0 then
写入数据库
else
msgbox "错误提示!!!"
endif
回复
胡楮智 2002-05-30
既然会出错拿就加一个错误处理,把错误得地方纠正过来或做相应得提示。
楼上做法,在你采用text框为数据输入控件时是可以的。
如果是表格帮定,则用错误处理较好。

回复
liuyufeng 2002-05-30
请检验text控件,不直接写入数据库.
if text.text="" then
msgbox"此处不能为空,请重新输入!"
text.setfocus
text.selstart=0
end if
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告