Visual Basic

A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: SQL Network Interfaces, error: 26 – Error Locating Server/Instance Specified) " 

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)