y3鞋子官网:access的ADDNEW问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 16:42:25
Private Sub Command1_Click()
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.Open "公交车", CurrentProject.Connection, adOpenDynamic, adLockBatchOptimistic
Rs.AddNew
Rs("车号") = "002"
End Sub

上面是我写的代码,但是不知道为什么,记录怎么也加不到表里啊

呵呵,少了一个update

Rs("车号") = "002"
rs.Update