VB Data控件 access数据库 addnew 增加新记录 出错,情高手指点,非常感谢
数据类型设置已经匹配。Data1.Recordset.AddNewRecordset.fileds("日期")=Format(Now,"generaldata")Reco...
数据类型设置已经匹配。
Data1.Recordset.AddNew
Recordset.fileds("日期") = Format(Now, "general data")
Recordset.fileds("温度(采集点1)℃") = DisplayData(0)
Recordset.fileds("温度(采集点2)℃") = DisplayData(1)
Data1.Recordset.Update
错误类型:424,要求对象。 展开
Data1.Recordset.AddNew
Recordset.fileds("日期") = Format(Now, "general data")
Recordset.fileds("温度(采集点1)℃") = DisplayData(0)
Recordset.fileds("温度(采集点2)℃") = DisplayData(1)
Data1.Recordset.Update
错误类型:424,要求对象。 展开
2个回答
展开全部
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("设备编号") = Text1.Text
Adodc1.Recordset.Fields("设备名称") = Text2.Text
Adodc1.Recordset.Fields("规格型号") = Text3.Text
Adodc1.Recordset.Fields("制造厂商") = Text4.Text
Adodc1.Recordset.Fields("使用日期") = DTPicker1.Value
Adodc1.Recordset.Fields("变动日期") = DTPicker2.Value
Adodc1.Recordset.Fields("变动种类") = Combo1.Text
Adodc1.Recordset.Fields("调出单位") = Text5.Text
Adodc1.Recordset.Fields("调入单位") = Text6.Text
Adodc1.Recordset.Fields("备注") = Text7.Text
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.Recordset.Fields("设备编号") = Text1.Text
Adodc1.Recordset.Fields("设备名称") = Text2.Text
Adodc1.Recordset.Fields("规格型号") = Text3.Text
Adodc1.Recordset.Fields("制造厂商") = Text4.Text
Adodc1.Recordset.Fields("使用日期") = DTPicker1.Value
Adodc1.Recordset.Fields("变动日期") = DTPicker2.Value
Adodc1.Recordset.Fields("变动种类") = Combo1.Text
Adodc1.Recordset.Fields("调出单位") = Text5.Text
Adodc1.Recordset.Fields("调入单位") = Text6.Text
Adodc1.Recordset.Fields("备注") = Text7.Text
Adodc1.Recordset.Update
Adodc1.Refresh
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询