Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

        Return rowsAffected

    End Function

    Function GetFieldSumByDec(ByVal TableName As String, ByVal FieldName As String, ByVal ParaSQL As String) As Decimal

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

        Dim queryString As String = "SELECT isnull(sum(" & FieldName & "),0) AS CountNumber FROM " & TableName & " where " & ParaSQL

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)

        Dim rowsAffected As Decimal

        sqlConnection.Open()

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29]  下一页