Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

    End Function

    Function GetMaxField(ByVal TableName As String, ByVal FieldName As String) As Integer

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

        Dim queryString As String = "SELECT MAX(" & FieldName & ") AS MaxField FROM  " & TableName

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

        Dim rowsAffected As Integer = 0

        sqlConnection.Open()

        Try

            rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), 0, sqlCommand.ExecuteScalar)

        Catch ex As Exception

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