Question

vb给sqlserver表增加记录怎样让vb界面显示空白 而不是表里已有的数据

就是vb界面连接到sqlserver给表增加记录时 vb的界面老显示的是表里已有的第一行记录 怎样让它界面为空的 然后填上空还能给sqlserver表增加记录 谢谢大师们
我用的是adodc绑的 不能用吗 怎样用代码控制 怎样insert 具体点吧 大师 我的代码改成这样的 虽然一打开文本框显示为空 但添加新记录的话 会把第一个记录个覆盖的 怎么办
Private Sub Command1_Click()
On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Subadderr: MsgBox Err.DescriptionEnd Sub
Private Sub Command2_Click()
Unload MeEnd Sub
Private Sub Form_Load()
Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub

Answer 1

别使用绑定的方式来处理。用代码来控制文本框的数据显示、校验，以及用代码取出文本框中的数据然后再Insert到数据库中

追问

我用的是adodc绑的 不能用吗 怎样用代码控制 怎样insert 具体点吧 大师 我的代码改成这样的 虽然一打开文本框显示为空 但添加新记录的话 会把第一个记录个覆盖的 怎么办
Private Sub Command1_Click()
On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Subadderr: MsgBox Err.DescriptionEnd Sub
Private Sub Form_Load()
Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub

Answer 2

直接在窗体加载的时候或加载完数据后，让这几个text控件的值为空就可以啦！

追问

大师 我的代码改成这样的 虽然一打开文本框显示为空 但添加新记录的话 会把第一个记录个覆盖的 怎么办
Private Sub Command1_Click()
On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Subadderr: MsgBox Err.DescriptionEnd Sub
Private Sub Command2_Click()
Unload MeEnd Sub
Private Sub Form_Load()
Text1.Text = ""Text2.Text = ""Text3.Text = ""End Sub

追答

你现在这个代码这应该相当于修改吧！不能添加按钮吗？在最后一个text框中做回车新增记录处理呢？！

Answer 3

Private Sub Command1_Click()
if text1 and text2 and text3 then
with adodc1.recordset
.addnew
.fields(0)=text1
.fields(1)=text2
.fields(2)=text3
.update
.refresh
.movelast
end with
else
msgbox "内容不能为空"
end if
end sub

追问

大师 能逐行解释一下不? 小弟不怎么看得懂啊

Answer 4

直接清空就可以了