vb数据库添加数据

来源：百度知道 编辑：UC知道 时间：2024/06/14 02:29:51
Private Sub Command1_Click()
conopn1
sql = "insert into renwushu(名称,材料,料厚,类别,目录,备注) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Combo1.Text & "','" & Combo2.Text & "','" & Text4.Text & "')"
conn.Open (connstr)
conn.Execute sql
conn.Close
MsgBox "添加完毕！", 64, "系统提示"
Text1.Text = ""
Combo1.Text = Combo1.List(0)
Combo2.Text = Combo1.List(0)
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
我采用的上面这些代码，虽然能够实现功能，但是不能如果有一项没写的话直接出现错误。
所以我希望能实现
“料厚”必须是数字，否则的话提示输入错误
还有如果上述的几项除了备注之外若其中一项没有输入的话也是提示提醒输入。
请教高手
现在不能实现“备注”中不添加数据就能成功录入数据库啊
如果备注中不熟录数据的话会提示 出错的
怎样才能实现啊

将数据库表中的“备注”字段设置为允许空，和不是必填字段，程序做如下修改，就可以保证备注不录入也无问题了。

Private Sub Command1_Click()
if Trim(Text1.Text) ="" then
msgbox "请输入名称"
Text1.SetFocus
exit sub
endif

if Trim(Text2.Text) ="" then
msgbox "请输入材料"
Text2.SetFocus
exit sub
endif

If Not IsNumeric(Trim(Text3.Text)) Then
msgbox "请输入料厚,必须是数字"
Text3.SetFocus
exit sub
endif

if Trim(Combo1.Text) ="" then
msgbox "请选择类别"
Combo1.SetFocus
exit sub
endif

if Trim(Combo2.Text) ="" then
msgbox "请选择目录"
Combo2.SetFocus
exit sub
endif

conopn1

if Trim(Text4.Text)= "" then
sql = "insert into renwushu(名称,材料,料厚,类别,目录) values('" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Tex