VBA自己第一个程序，求帮助

terryhan

各位大神，

请帮我看一下附件中的2个文件，功能：想在VBA里写完代码，直接把数据插入access数据库。
现状：程序写完后，发现一直有报错，数据也无变化，无法插入access数据库的表中。
希望得到快点速度，以便继续往后学习。
谢谢

TH

chart888

附件在哪里？

terryhan

chart888 发表于 2017-6-28 17:01
附件在哪里？

请见附件。我总觉的哪个引用包没有引用，所以程序一直卡在这。

谢谢
TH
test office.zip (21.19 KB, 下载次数: 7)

2017-6-28 17:16 上传

点击文件名下载附件
acc

YWCODE

1. Private myCon As ADODB.Connection
   
2. Private rsRecordset As ADODB.Recordset
   
3. 
   
4. '创建数据库连接
   
5. Private Sub CreateConnection()
   
6.     On Error Resume Next
   
7.     If Not CBool(myCon.State And adStateOpen) Then
   
8.         Set myCon = New ADODB.Connection
   
9.         myCon.Open gsCONNECTION
   
10.     End If
    
11. End Sub
    
12. 
    
13. '关闭数据库连接
    
14. Private Sub DestroyConnection()
    
15.     If myCon Is Nothing Then Exit Sub
    
16.     If CBool(myCon.State And adStateOpen) Then myCon.Close
    
17.     Set myCon = Nothing
    
18. End Sub
    
19. 
    
20. '创建数据集
    
21. Private Sub CreateRecordset(ssql As String)
    
22.     Set rsRecordset = New ADODB.Recordset
    
23.     rsRecordset.CursorLocation = adUseClient
    
24.     rsRecordset.Open ssql, myCon
    
25. End Sub
    
26. 
    
27. '销毁数据集
    
28. Private Sub DestroyRecordset()
    
29.     rsRecordset.Close
    
30.     Set rsRecordset = Nothing
    
31. End Sub

复制代码

我连接MSSQL是这样的，你参考下吧。