项目中使用VBA宏与SQL Server数据库交互的代码出现问题，导致无法正常统计记录数。问题在于Recordset对象的打开方式和光标位置。解决方案是设置CursorLocation属性为3（adUseServer），并明确指定统计字段的数据类型。通过调整代码，成功修复了宏的运行错误。
背景：项目组有个自动化测试项目，实在excel中利用VBA开发的；时间比较久远，我前面的哥们走后，这个软件一直在用，最近系统不知道是不是更新的缘故；有些代码出了问题；
先上源码：
Dim Conn As Object, Rst As Object
Dim sqlStr$
Dim str_start_SN$, str2$
str_start_SN = Trim(Range("f5"))
Set Conn = CreateObject("ADODB.Connection")
Set Rst = CreateObject("ADODB.Recordset")
Conn.Open "DRIVER=SQL Server;SERVER=XXXX;DATABASE=XX;UID=XX;password=XXXX"
intSql = "select * from [HTDRepair].[dbo].[CarveSN] where SN='" & str_start_SN & "'"
Debug.Print intSql
Rst.Open intSql, Conn，
fqty =CInt（Conn.Excu
订阅专栏 解锁全文
扫一扫
477
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
