如何向数据库添加一条记录？

yangh71

刚开始学习access vba
还没有突破 如何向数据库添加一条记录？ 请哪位大神指点一二。

不知道如何修改代码了？
测试.rar (13.27 KB, 下载次数: 7)

2014-1-31 14:31 上传

点击文件名下载附件
问题附件

代码很简单

1. Option Compare Database
   
2. 
   
3. Sub 添加一条记录_Click()
   
4. On Error Resume Next
   
5. '如果使用这一段 那么程序 提示 “用户定义类型未定义”
   
6. Dim rs As ADODB.Recordset
   
7. On Error GoTo HandleError
   
8. Set rs = New ADODB.Recordset
   
9. '如果使用这一段 那么程序可以执行下去 但是什么都没有增加
   
10. 'Dim rs
    
11. 'Set rs = CreateObject("ADODB.Recordset")
    
12. 
    
13. rs.Open "测试表"  ', CurrentProject.Connection, adopendynamic, adlockoptimistic
    
14. With rs
    
15.     .Add Data:
    
16.     !测试 = "12345"
    
17.     .Update
    
18. End With
    
19. rs.Close
    
20. Set rs = Nothing
    
21. 
    
22. ExitHere:
    
23. Exit Sub
    
24. 
    
25. HandleError:
    
26. MsgBox Err.Description
    
27. Resume ExitHere
    
28. 
    
29. End Sub
    

复制代码

ly