当前位置：首页 > news >正文

专做视频和ppt的网站百度app官方下载安装到手机

news 2025/7/13 19:59:54

专做视频和ppt的网站,百度app官方下载安装到手机,建立网站视频教程,网站弹出信息怎么做背景：项目组有个自动化测试项目，实在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 &#

查看全文

http://www.tj-hxxt.cn/news/21097.html