Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("序号") = Text3.Text
Adodc1.Recordset.Fields("景点名") = Text1.Text
Adodc1.Recordset.Fields("景点信息") = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "添加成功"
End Sub
运行之后就显示错误91,代码问题出哪里?(ADODC已经连接数据库)
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("序号") = Text3.Text
Adodc1.Recordset.Fields("景点名") = Text1.Text
Adodc1.Recordset.Fields("景点信息") = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "添加成功"
End Sub
运行之后就显示错误91,代码问题出哪里?(ADODC已经连接数据库)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货