新增温控提示音版本控制分支和设备链表上传

BLV_Studio/Database/DbExecutor.vb

@@ -374,4 +374,81 @@ Public Class DbExecutor
 
         GC.Collect() '对所有缓存垃圾进行回收
     End Sub
+
+
+    ''' <summary>
+    ''' 添加参数到命令（简化版本，自动推断参数类型）
+    ''' </summary>
+    ''' <param name="parameterName">参数名称（需包含@或:前缀）</param>
+    ''' <param name="value">参数值</param>
+    ''' <returns>创建的DbParameter对象</returns>
+    Public Function AddParameter(parameterName As String, value As Object) As DbParameter
+        ' 自动根据值类型推断DbType
+        Dim dbType As DbType
+        Dim convertedValue As Object = value
+
+        If value Is Nothing OrElse DBNull.Value.Equals(value) Then
+            dbType = DbType.Object
+            convertedValue = DBNull.Value
+        Else
+            Select Case value.GetType()
+                Case GetType(Integer)
+                    dbType = DbType.Int32
+                Case GetType(String)
+                    dbType = DbType.String
+                Case GetType(Boolean)
+                    dbType = DbType.Boolean
+                Case GetType(DateTime)
+                    dbType = DbType.DateTime
+                Case GetType(Decimal)
+                    dbType = DbType.Decimal
+                Case GetType(Double)
+                    dbType = DbType.Double
+                Case GetType(Single)
+                    dbType = DbType.Single
+                Case GetType(Byte())
+                    dbType = DbType.Binary
+                Case GetType(Guid)
+                    dbType = DbType.Guid
+                Case Else
+                    dbType = DbType.Object
+            End Select
+        End If
+
+        ' 调用现有的AddDbParameter方法
+        Return AddDbParameter(dbType, parameterName, convertedValue)
+    End Function
+
+    ''' <summary>
+    ''' 添加参数到命令（指定明确的类型）
+    ''' </summary>
+    ''' <param name="parameterName">参数名称</param>
+    ''' <param name="value">参数值</param>
+    ''' <param name="dbType">参数的数据类型</param>
+    ''' <returns>创建的DbParameter对象</returns>
+    Public Function AddParameter(parameterName As String, value As Object, dbType As DbType) As DbParameter
+        Dim convertedValue As Object = value
+
+        ' 处理空值
+        If value Is Nothing OrElse DBNull.Value.Equals(value) Then
+            convertedValue = DBNull.Value
+        End If
+
+        Return AddDbParameter(dbType, parameterName, convertedValue)
+    End Function
+
+    ''' <summary>
+    ''' 添加参数到命令（包含方向）
+    ''' </summary>
+    ''' <param name="parameterName">参数名称</param>
+    ''' <param name="value">参数值</param>
+    ''' <param name="dbType">参数的数据类型</param>
+    ''' <param name="direction">参数方向（输入/输出）</param>
+    ''' <returns>创建的DbParameter对象</returns>
+    Public Function AddParameter(parameterName As String, value As Object, dbType As DbType, direction As ParameterDirection) As DbParameter
+        Dim param = AddParameter(parameterName, value, dbType)
+        param.Direction = direction
+        Return param
+    End Function
+
 End Class