VB数据库“添加”代码错在哪
PrivateSubCommand1_Click()Form1.Adodc1.Recordset.AddNewForm1.Adodc1.Recordset.Fields(...
Private Sub Command1_Click()
Form1.Adodc1.Recordset.AddNew
Form1.Adodc1.Recordset.Fields("学号") = Text1.Text
Form1.Adodc1.Recordset.Fields("姓名") = Text2.Text
Form1.Adodc1.Recordset.Fields("性别") = Combo1.Text
Form1.Adodc1.Recordset.Fields("班级") = Text3.Text
Form1.Adodc1.Recordset.Fields("语文") = Text4.Text
Form1.Adodc1.Recordset.Fields("数学") = Text5.Text
Form1.Adodc1.Recordset.Fields("英语") = Text6.Text
Form1.Adodc1.Recordset.Fields("VB") = Text7.Text
Form1.Adodc1.Recordset.Save
Form1.Adodc1.Refresh
End Sub 展开
Form1.Adodc1.Recordset.AddNew
Form1.Adodc1.Recordset.Fields("学号") = Text1.Text
Form1.Adodc1.Recordset.Fields("姓名") = Text2.Text
Form1.Adodc1.Recordset.Fields("性别") = Combo1.Text
Form1.Adodc1.Recordset.Fields("班级") = Text3.Text
Form1.Adodc1.Recordset.Fields("语文") = Text4.Text
Form1.Adodc1.Recordset.Fields("数学") = Text5.Text
Form1.Adodc1.Recordset.Fields("英语") = Text6.Text
Form1.Adodc1.Recordset.Fields("VB") = Text7.Text
Form1.Adodc1.Recordset.Save
Form1.Adodc1.Refresh
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询