做小说网站做国外域名还是国内的好处,久久建筑网账号,给周杰伦做网站,南通免费建设网站背景：项目组有个自动化测试项目，实在excel中利用VBA开发的；时间比较久远，我前面的哥们走后，这个软件一直在用，最近系统不知道是不是更新的缘故；有些代码除了问题；
先上源码：
Dim Conn As Object, Rst As Object Dim sqlStr$ Dim str_start_SN$, str2$ str_start_SN …背景：项目组有个自动化测试项目，实在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.Excute(intSQL)(0)） If fqty 0 Then '保证主键不为空 MsgBox "该SN已雕刻", 48, "雕刻查重" Else MsgBox #
