背景:项目组有个自动化测试项目,实在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