作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/01 07:48:23
求教:大神看看是哪里出错了
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
求教:大神看看是哪里出错了
括号里是数据库中的属性,此程序是实现点击添加数据记录的.单从这个私有sub看不出哪里出错.
再问: 如果用data控件的话,添加一条记录的语句怎么写