求教:大神看看是哪里出错了

问题描述:

求教:大神看看是哪里出错了
Private Sub Command1_Click()
If Trim(txtName.Text) = "" Then
MsgBox "请输入单位名称"
txtName.SetFocus
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("name") = txtName.Text
Adodc1.Recordset.Fields("district") = txtdistrict.Text
Adodc1.Recordset.Fields("category") = txtcategory.Text
Adodc1.Recordset.Fields("delegate") = txtdelegate.Text
Adodc1.Recordset.Fields("way") = txtway.Text
Adodc1.Recordset.Update
Unload Me
End Sub
1个回答 分类:综合 2014-11-29

问题解答:

我来补答
括号里是数据库中的属性,此程序是实现点击添加数据记录的.单从这个私有sub看不出哪里出错.
再问: 如果用data控件的话,添加一条记录的语句怎么写
 
 
展开全文阅读
剩余:2000