Visual Basic

satc wrote:

I have a large string that when is saved to VarChar(MAX) field , the size is 250 bytes.

public static byte[] CompressString(string str)
{
    using (var output = new MemoryStream())
    using (var gzip = new DeflateStream(output, CompressionMode.Compress))
    using (var writer = new StreamWriter(gzip, System.Text.Encoding.UTF8))
    {
        writer.Write(str);
        return output.ToArray();
    }
} 
 
public static string DecompressString(byte[] input)
{
    using (var inputStream = new MemoryStream(input))
    using (var gzip = new DeflateStream(inputStream, CompressionMode.Decompress))
    using (var reader = new StreamReader(gzip, System.Text.Encoding.UTF8))
    {
        return reader.ReadToEnd();
    }
}

public static byte[] CompressString(string str)
{
    using (var output = new MemoryStream())
    using (var gzip = new DeflateStream(output, CompressionMode.Compress))
    using (var writer = new StreamWriter(gzip, System.Text.Encoding.UTF8))
    {
        writer.Write(str);
        return output.ToArray();
    }
}

public static byte[] CompressString(string str)
{
    using (var output = new MemoryStream())
    {
        using (var gzip = new DeflateStream(output, CompressionMode.Compress))
        using (var writer = new StreamWriter(gzip, System.Text.Encoding.UTF8))
        {
            writer.Write(str);
        }

        return output.ToArray();
    }
}

Dim entry As DbEnttiyEntry(Of YourEntityType) = yourContext.Entry(yourEntity)

' All properties:
Dim currentValues As DbPropertyValues = entry.CurrentValues
Dim originalValues As DbPropertyValues = entry.OriginalValues
Dim databaseValues As DbPropertyValues = entry.GetDatabaseValues()

For Each propertyName As String In currentValues.PropertyNames
    Dim current As Object = currentValues(propertyName)
    Dim original As Object = originalValues(propertyName)
    Dim database As Object = databaseValues(propertyName)
Next


' Single property:
Dim prop As DbPropertyEntry = entry.Property("PropertyName")
Dim current As Object = prop.CurrentValue
Dim original As Object = prop.OriginalValue


' Single property (strongly typed):
Dim prop As DbPropertyEntry(Of YourEntityType, PropertyType) = entry.Property(Function(x) x.PropertyName)
Dim current As PropertyType = prop.CurrentValue
Dim original As PropertyType = prop.OriginalValue

.GetValue(obj, Nothing)

Dim entry As DbEntityEntry = yourContext.Entry(obj)

Dim values = obj.GetType.GetProperties.Where(Function(t2) t2.PropertyType.IsValueType).ToDictionary(Function(p) p.Name, Function(p) New With {
    .CurrentValue = entry.CurrentValues(p.Name),
    .OriginalValue = entry.OriginalValues(p.Name)
})