Private Sub Command1_Click() str1$ = "输入新的记录" str2$ = MsgBox(str1$, vbOKCancel, "添加记录") If str2$ = vbOK Then Text1.SetFocus Data1.Recordset.AddNew End If End Sub 用Data1控件 如果问题解决请给分
用DAO或ADO Dim rs as Recordset Private Sub AddRecord() rs.AddNew rs!……=…… rs.Update End Sub 如果是修改把AddNew改为Edit即可。
rs。update,如果有什么问题,给我写信了。这个可以不用控件的
Private Sub Command1_Click()
str1$ = "输入新的记录"
str2$ = MsgBox(str1$, vbOKCancel, "添加记录")
If str2$ = vbOK Then
Text1.SetFocus
Data1.Recordset.AddNew
End If
End Sub
用Data1控件
如果问题解决请给分
Dim rs as Recordset
Private Sub AddRecord()
rs.AddNew
rs!……=……
rs.Update
End Sub
如果是修改把AddNew改为Edit即可。
虽然编vb很有经验,但数据库是刚碰
dragonleon:
比如赋值