diff --git a/AUTS_ServiceControler/FrmUpdateConfig.vb b/AUTS_ServiceControler/FrmUpdateConfig.vb index cd14be9..695483a 100644 --- a/AUTS_ServiceControler/FrmUpdateConfig.vb +++ b/AUTS_ServiceControler/FrmUpdateConfig.vb @@ -371,15 +371,15 @@ Public Class FrmUpdateConfig ''' 获取更新服务的最新信息 ''' Private Function GetUpdateServiceInfo(serviceName As String) As UpdatePackageInfo - MsgBox("DbConnector.CanConnectToRemote = " & DbConnector.CanConnectToRemote) + '’MsgBox("DbConnector.CanConnectToRemote = " & DbConnector.CanConnectToRemote) If DbConnector.CanConnectToRemote = False Then '判断网络连接状态 Throw New Exception($"无法连接到数据库!") End If Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString) - MsgBox("DBOpen = " & UtsDb.RemoteDbType & " , " & UtsDb.RemoteConnString) + '’MsgBox("DBOpen = " & UtsDb.RemoteDbType & " , " & UtsDb.RemoteConnString) db.Open() - MsgBox("DBOpened") + 'sgBox("DBOpened") Dim tableName As String = $"{SwUpdateTable.TableName}" Dim colNames As New List(Of String) From { $"{SwUpdateTable.ColNamesEnum.LastVersion}", @@ -388,18 +388,18 @@ Public Class FrmUpdateConfig } Dim condition As String = $"`{SwUpdateTable.ColNamesEnum.SoftwareName}` = '{serviceName}'" - MsgBox("dtServiceInfo = " & condition) + '’MsgBox("dtServiceInfo = " & condition) Dim dtServiceInfo As DataTable = db.ExecuteDataTable(db.CmdHelper.DbSearch(UtsDb.RemotePublicDb, colNames, tableName, condition)) If dtServiceInfo.Rows.Count <= 0 Then Throw New Exception($"从数据库获取不到{serviceName}的信息!") End If - MsgBox("Step369") + '’MsgBox("Step369") Dim packetInfo As New UpdatePackageInfo packetInfo.BinPackageMd5 = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.BinPackageMd5}")) packetInfo.LastVersion = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.LastVersion}")) packetInfo.PackageName = CStr(dtServiceInfo(0)($"{SwUpdateTable.ColNamesEnum.PackageName}")) - MsgBox("Step401") + '’MsgBox("Step401") db.Close() Return packetInfo End Using