VB与数据库增加数据的问题
Private Sub Command1_Click() '增加记录过程'先在textbox里输入数据，再点增加纪录按钮
If MsgBox("确实要增加吗?", vbYesNo) = vbYes Then '确认是否增加记录
If Text1 = "" Then '判断序号不能为空
MsgBox "序号不能为空!请重新输入." '显示对话框
Text1.SetFocus '使text1获得焦点
Exit Sub '退出,重新输入数据
Else
'判断序号是否已经存在
Adodc2.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\新建文件夹 (2)\登记\样品.mdbersist Security Info=False" '数据库密码是1234
Adodc2.RecordSource = "select * from 表1 where 图号='" & Text1.Text & "'" '表1 为数据库里的一个表,按实际更改"
Adodc2.Refresh '刷新数据
If Adodc2.Recordset.RecordCount > "" Then
MsgBox "图号 """ & Text1 & """ 已经存在!请重新输入."
Text1.SetFocus '使text1获得焦点
Set DataGrid1.DataSource = Adodc1
Exit Sub '退出,重新输入数据
End If
End If
'增加记录
Adodc1.Recordset.AddNew '在数据库里插入一条空记录
Adodc1.Recordset.Fields("图号") = Text1
'赋值
Adodc1.Recordset.Fields("物料名称") = Text2
Adodc1.Recordset.Fields("送样单位") = Text3 '因为年龄字段为数值类型,用val函数转换数据,否则有可能会出错
Adodc1.Recordset.Fields("接收人") = Text4
Adodc1.Recordset.Fields("适用型号") = Text5
Adodc1.Recordset.Fields("版本") = Text6
Adodc1.Recordset.Fields("模具提供") = Text7
Adodc1.Recordset.Fields("送样次数") = Text8
Adodc1.Recordset.Fields("模号") = Text9
Adodc1.Recordset.Fields("数量") = Val(Text10)
Adodc1.Recordset.Fields("原材料") = Text11
Adodc1.Recordset.Fields("送样人") = Text12
Adodc1.Recordset.Fields("备注") = Text13
Adodc1.Recordset.Update '保存记录
End If
End Sub
为什么增加数据的时候,系统提示"对象'Refresh'的方法'IAdodc'失败
