vb6,单击添加按钮向数据库输入一条记录后，刷新输入框继续添加，如何实现？

Question

单击添加按钮输入成功后，把原来的输入框中的数据清除掉，输入新纪录
Call openconn
sqlstr6 = "insert into exrecord values(....)"

rs.Open sqlstr6, conn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

MsgBox "新记录添加成功!", vbInformation
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
Text1.Text = ""
Text3.Text = ""

Answer 1

正常添加记录即可：
rs(记录集).AddNew
下面是赋值语句
rs.Fields("字段1")=Text1.Text
rs.Fields("字段2")=Text2.Text
……………………
rs.UpDate(这条语句就是将数据写入数据库中)
然后就可以清空输入框了：
Text1.Text=""
Text2.Text=""
………………
试一下吧

文本框也没有只读属性呀，你能把你的代码传上来吗？

我给你发消息了，我估计可能是你组合框style属性设置的问题，我想原来你应该设成了2,现在你改成0试试，看行不行。

Answer 2

你用的什么文本控件？

if 输入成功 then

输入框1.text=""
输入框2.text=""
输入框3.text=""
....
endif