1180
社区成员
- 主页
关于VB在ACCESS数据库中添加空记录的问题！！！
我遇到一个问题，我用VB的ADODC控件连到ACCESS数据库。在向它添加一个空记录时就会出错，我想在系统报错前就用MSGBOX提示用户不能输入空记录，并删除该空记录。 这样应该如何写？？
请各位帮忙，多谢！！
请各位帮忙，多谢！！
...全文
请发表友善的回复…
发表回复
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文本框的值
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
这两句是做什么用的？？
text.setfocus
text.selstart=0
这两句是做什么用的？？
softch 2002-05-30
请问mornwoo(疾风之虫)
怎么做错误处理？？
怎么做错误处理？？
xhstudio 2002-05-30
在保存数据前对所要写入数据库的数据进行检验
比如按长度
if len(text1.text)>0 then
写入数据库
else
msgbox "错误提示!!!"
endif
比如按长度
if len(text1.text)>0 then
写入数据库
else
msgbox "错误提示!!!"
endif
胡楮智 2002-05-30
既然会出错拿就加一个错误处理，把错误得地方纠正过来或做相应得提示。
楼上做法，在你采用text框为数据输入控件时是可以的。
如果是表格帮定，则用错误处理较好。
楼上做法，在你采用text框为数据输入控件时是可以的。
如果是表格帮定，则用错误处理较好。
liuyufeng 2002-05-30
请检验text控件,不直接写入数据库.
if text.text="" then
msgbox"此处不能为空,请重新输入!"
text.setfocus
text.selstart=0
end if
if text.text="" then
msgbox"此处不能为空,请重新输入!"
text.setfocus
text.selstart=0
end if