vba 上传记录至 SQLserver 系统提示内存不足的问题

Penna_a

目前使用一个表需要回传数据到数据库，而数据增加时使用 RecordSet 的addNew完成，示例代码如下：

1.     Dim conn As Object
   
2.     Set conn = CreateObject("ADODB.Connection")
   
3. 
   
4.     ' 连接数据库
   
5.     conn.Open "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUserID;Password=YourPassword;"
   
6. 
   
7.     ' 打开记录集
   
8.     Dim rs As Object
   
9.     Dim strSQL As String
   
10.     Set rs = CreateObject("ADODB.Recordset")
    
11.     strSQL = " SELECT * FROM YourTable "
    
12.     rs.Open strSQL, conn, 2, 2
    
13. 
    
14.     ' 新增记录
    
15.     rs.AddNew
    
16.     rs("FieldName1") = "Value1"
    
17.     rs("FieldName2") = "Value2"
    
18.     ' 更多字段赋值...
    
19. 
    
20.     ' 更新记录
    
21.     rs.Update
    
22. 
    
23.     ' 关闭记录集和连接
    
24.     rs.Close
    
25.     conn.Close

复制代码

近期使用过程中有人反馈Excel文件在上传数据时，出现 “内存不足” 相关字样的提示。当时解决办法是将22年的数据备份到新表然后从原表中删除此部分数据，上传数据功能就正常了。然后就看到别人写的SQL语句是类似于上述代码中的strSQL，当时个人猜测是数据库表单数据集庞大，电脑内存条也是一根8G的，代码执行过程中运行这样的语句再来使用RecordSet相关方法来上传是不是就会造成内存不足的情况，现在想到的是把strSQL代码更改如下：

1. -- ID为table1 的自增字段，记录数据条数
   
2. SELECT TOP 1 * FROM table1 ORDER BY ID DESC

复制代码

直接找最后一条记录，再使用RecordSet来进行数据的追加操作，这样是不是就不会出现内存不足的情况了？才入门vba不久，希望论坛的各位指教一下

fxl447098457

一。你可以把sql语句直接写表名试试。不做select查询。
二。你可以不用记录集。执行cnn.execute  insert语句插入来获取结果。

Penna_a

fxl447098457 发表于 2023-12-29 20:04
一。你可以把sql语句直接写表名试试。不做select查询。
二。你可以不用记录集。执行cnn.execute  insert语 ...

非常感谢，更改了试试