一句代码 实在不知道那个错了！请大家帮帮忙 谢谢了！

杨萌

Sub 添加到access()
Set cnn = CreateObject("adodb.connection") '创建ado对象
Set rst = CreateObject("ADODB.recordset") '创建记录集


cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source= F:\excel vba 专用\123\qa.mdb"
'链接方法同excel数据链接
sq1 = "Select * from 员工" '从员工表中查询
rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
rst.Addnew
    rst.Fields("姓名") = "李楠"
    rst.Fields("年龄") = 23
    rst.Fields("性别") = "女"
rst.Update
cnn.Close
Set cnn = Nothing
MsgBox "添加成功"
End Sub
带颜色的代码为什么错误呀！引用的时候不出错！

平平淡淡的天使

rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
改成
rst.Open sq1, cnn, 1,3
后期绑定要用参数

杨萌

4562.zip (24.5 KB, 下载次数: 2)

2014-7-31 14:15 上传

点击文件名下载附件

杨萌

平平淡淡的天使 发表于 2014-7-31 14:15
rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
改成
rst.Open sq1, cnn, 1,3

谢谢哈！弄了一个中午没有弄出来原因 谢谢了！