Visual Basic

jkirkerx wrote:

So I wrote this, not sure if it's right, because I get 0 back, and there's 4

jkirkerx wrote:

Do you think this is because the database was already existing, and it's related to Code First.

jkirkerx wrote:

On the previous function, I'm not sure if I'm getting data back or not, and not quite sure how to use the returned output.

Quote:

For Each m As Object In movies
Dim m_MovieName_Encoded As String = System.Web.HttpUtility.HtmlEncode(m.MovieName)
Next

jkirkerx wrote:

Count Function that I wrote.

Dave Kreskowiak wrote:

Uhhhh, what does this have to do with a Count or a list of movies?

Dave Kreskowiak wrote:

Do you think this is because the database was already existing, and it's related to Code First.

Dave Kreskowiak wrote:

Uhhhh, what does this have to do with a Count or a list of movies?

{SELECT 
    [Extent1].[MovieID] AS [MovieID], 
    [Extent1].[MovieName] AS [MovieName], 
    [Extent1].[MovieType] AS [MovieType], 
    [Extent1].[MovieDeliveryType] AS [MovieDeliveryType], 
    [Extent1].[MoviePath] AS [MoviePath], 
    [Extent1].[MovieURL] AS [MovieURL], 
    [Extent1].[MoviePostage] AS [MoviePostage], 
    [Extent1].[MovieThumbnail] AS [MovieThumbnail], 
    [Extent1].[MovieLarge] AS [MovieLarge], 
    [Extent1].[MoviePlaceHolder] AS [MoviePlaceHolder], 
    [Extent1].[MovieBitRate] AS [MovieBitRate], 
    [Extent1].[MovieTime] AS [MovieTime], 
    [Extent1].[MovieSize] AS [MovieSize], 
    [Extent1].[MovieDescription] AS [MovieDescription], 
    [Extent1].[MovieCount] AS [MovieCount], 
    [Extent1].[MovieContributor] AS [MovieContributor], 
    [Extent1].[MoviePostDate] AS [MoviePostDate], 
    [Extent1].[MovieIcon] AS [MovieIcon], 
    [Extent1].[movie_Parameters] AS [movie_Parameters]
    FROM [dbo].[MOVIEINFO] AS [Extent1]
    WHERE 1 = [Extent1].[flv]
    ORDER BY [Extent1].[MovieName] ASC}

Public Sub New()
            MyBase.New("Data Source=XXXXXXXX; Initial Catalog=XXXXXXX; User ID=XXXXXXX; Password=XXXXX;")

            Dim connStr As String = ConfigurationManager.ConnectionStrings("DefaultConnection").ConnectionString

            Database.SetInitializer(New CreateDatabaseIfNotExists(Of MoviesContext))
            Entity.Database.SetInitializer(Of MoviesContext)(Nothing)

        End Sub

Public Shared Function load_index_array( _
        ByVal pSortOrder As SortOrder,
        ByVal pType As MovieType,
        ByRef pResults As IEnumerable(Of MovieItem)) As Integer

        Dim context As New MoviesContext()
        pResults =
            (From item In context.Movies
            Select New MovieItem With
            {
                .MovieID = item.MovieID,
                .MovieName = item.MovieName,
                .MovieType = item.MovieType,
                .MovieDeliveryType = item.MovieDeliveryType,
                .MoviePath = item.MoviePath,
                .MovieUrl = item.MovieURL,
                .MoviePostage = item.MoviePostage,
                .MovieThumbnail = item.MovieThumbnail,
                .MovieLarge = item.MovieLarge,
                .MoviePlaceHolder = item.MoviePlaceHolder,
                .MovieTime = item.MovieTime,
                .MovieSize = item.MovieSize,
                .MovieDescription = item.MovieDescription,
                .MovieCount = item.MovieCount,
                .MovieContributor = item.MovieContributor,
                .MoviePostDate = item.MoviePostDate,
                .MovieIcon = item.MovieIcon,
                .MovieParameters = item.movie_Parameters
        }).AsEnumerable

        Return pResults.Count()

    End Function

    public class MyContext : DbContext
    {
        public MyContext()
        {
        }

        public MyContext(string connectionStringName)
            : base(connectionStringName)
        {
        }

        public override int SaveChanges()
        {
            ChangeTracker.DetectChanges();

            // Call IPrepareForSave on entities that support it...

            return base.SaveChanges();
        }

        protected override void OnModelCreating(DbModelBuilder modelBuilder)
        {
            ConfigureModel(modelBuilder);
            base.OnModelCreating(modelBuilder);
        }

        private void ConfigureModel(DbModelBuilder modelBuilder)
        {
            // Explicitly declare some relationships...
            modelBuilder.Configurations.Add(new SomethingConfiguration());
            modelBuilder.Configurations.Add(new SomethingElseConfiguration());
            modelBuilder.Configurations.Add(new SomeOtherTableConfiguration());
            ...
        }

        public DbSet<sometype> SomeTypes { get; set; }
        public DbSet<othertype> OtherTypes { get; set; }
        public DbSet<contact> Contacts { get; set; }
        ...
    }
}
<div class="signature"><a href="http://www.codeproject.com/scrapbook/ForumGuidelines.asp">A guide to posting questions on CodeProject</a><br><br>Click this: <a href="http://weblogs.asp.net/bleroy/asking-questions-is-a-skill">Asking questions is a skill</a>.
Seriously, do it.<br>
<font color="Blue">Dave Kreskowiak</font></div>

jkirkerx wrote:

I used ConfigurationManager.ConnectionStrings("DefaultConnection").ConnectionString
as the conn string in my new in context. But I changed to your version, You must have a good reason for it; I'll learn down the as to why.

jkirkerx wrote:

Is it good practice to create a new context and just pass it along? with using. I think that would get disposed as well.

Public Shared Function load_movie_record( _
        ByVal p_MovieID As Integer,
        ByRef pResults As MovieRecord) As Integer

Dim context As New MoviesContext()
  pResults =
  ( _
  From m In context.Movies
  Join f In context.Movies_flv On m.MovieID Equals f.movieID
  Join h In context.Movies_h264 On m.MovieID Equals h.movieID
  Where m.MovieID = p_MovieID
  Select New MovieRecord With {
     .MovieID = m.MovieID,
     .MovieName = m.MovieName,
     .MovieType = m.MovieType,
     .flvID = f.ID,
     .flvMovieID = f.movieID,
     .flvMovieName = f.flv_movieName,
     .h264ID = f.ID,
     .h264MovieID = h.movieID,
     .h264MovieName = h.h264_movieName,
  }).SingleOrDefault()

Public Function BeforeSendRequest( _
        ByRef request As Message,
        ByVal channel As IClientChannel) As Object Implements IClientMessageInspector.BeforeSendRequest

        Dim buffer As MessageBuffer = request.CreateBufferedCopy(Int32.MaxValue)
        request = buffer.CreateMessage

        Dim msg As Message = buffer.CreateMessage
        Dim encoder As ASCIIEncoding = New ASCIIEncoding

        Dim sb As StringBuilder = New StringBuilder
        Dim xmlSettings As New XmlWriterSettings
        xmlSettings.OmitXmlDeclaration = True

        Dim xmlWriter As XmlWriter = xmlWriter.Create(sb, xmlSettings)
        Dim writer As XmlDictionaryWriter = XmlDictionaryWriter.CreateDictionaryWriter(xmlWriter)

        msg.WriteStartEnvelope(writer)
        msg.WriteStartBody(writer)
        msg.WriteBodyContents(writer)
        xmlWriter.WriteEndElement()
        xmlWriter.WriteEndElement()

        writer.Flush()

        Dim body As String = sb.ToString.Replace(" />", "/>")
        Dim xml_bytes() As Byte = encoder.GetBytes(body)

Public Function BeforeSendRequest( _
        ByRef request As Message,
        ByVal channel As IClientChannel) As Object Implements IClientMessageInspector.BeforeSendRequest

        Dim buffer As MessageBuffer = request.CreateBufferedCopy(Int32.MaxValue)
        request = buffer.CreateMessage

        Dim msg As Message = buffer.CreateMessage
        Dim encoder As ASCIIEncoding = New ASCIIEncoding

        Dim sb As StringBuilder = New StringBuilder
        Dim xmlSettings As New XmlWriterSettings
        xmlSettings.OmitXmlDeclaration = True

        Dim xmlWriter As XmlWriter = xmlWriter.Create(sb, xmlSettings)
        Dim writer As XmlDictionaryWriter = XmlDictionaryWriter.CreateDictionaryWriter(xmlWriter)

        'Just grab the body of the request to generate the HMAC
        msg.WriteStartBody(writer)
        msg.WriteBodyContents(writer)
        xmlWriter.WriteEndElement()
        writer.Flush()

        Dim body As String = sb.ToString.Replace(" />", "/>")
        Dim xml_bytes() As Byte = encoder.GetBytes(body)

        'SHA1 hash on XML string
        Dim sha1_crypto As SHA1CryptoServiceProvider = New SHA1CryptoServiceProvider
        Dim hash As String = BitConverter.ToString(sha1_crypto.ComputeHash(xml_bytes)).Replace("-", "")
        Dim hashed_content As String = hash.ToLower

        'assign values to hashing and header variables
        Dim m_method As String = "POST"
        Dim m_type As String = "text/xml"
        Dim m_time As String = DateTime.UtcNow.ToString("yyyy-MM-ddTHH:mm:ssZ")
        Dim m_hashData As String = m_method & vbLf & m_type & vbLf & hashed_content & vbLf & m_time & vbLf & _endPoint_Uri

        'Compute the HMAC and convert to a base64 hash
        Dim m_hmac_sha1 As HMAC = New HMACSHA1(Encoding.UTF8.GetBytes(_hmac))
        Dim m_hmac_data() As Byte = m_hmac_sha1.ComputeHash(Encoding.UTF8.GetBytes(m_hashData))
        Dim m_base64_hash As String = Convert.ToBase64String(m_hmac_data)

        Dim httpRequestMessage As HttpRequestMessageProperty
        Dim httpRequestMessageObject As Object = Nothing

        'This part must not be working - The header elements just wont add to the message
        If request.Properties.TryGetValue(HttpRequestMessageProperty.Name, httpRequestMessageObject) Then
            'This block never runs, but is here in case the condition is true
            httpRequestMessage = CType(httpRequestMessageObject, HttpRequestMessageProperty)
            httpRequestMessage.Headers("x-gge4-date") = m_time
            httpRequestMessage.Headers("x-gge4-content-sha1") = hashed_content
            httpRequestMessage.Headers("authorization") = "gge4_api " & _keyID & ":" & m_base64_hash

        Else
            'This code block here doesn't seem to add the header elements
            httpRequestMessage = New HttpRequestMessageProperty
            httpRequestMessage.Headers("x-gge4-date") = m_time
            httpRequestMessage.Headers("x-gge4-content-sha1") = hashed_content
            httpRequestMessage.Headers("authorization") = "gge4_api " & _keyID & ":" & m_base64_hash
            request.Properties.Add(HttpRequestMessageProperty.Name, httpRequestMessage)

        End If

        Return Nothing

    End Function

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"><s:Body s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><q1:SendAndCommit xmlns:q1="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/Request"><SendAndCommitSource href="#id1"/></q1:SendAndCommit><q2:Transaction id="id1" xsi:type="q2:Transaction" xmlns:q2="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/encodedTypes"><ExactID xsi:type="xsd:string">AH2824-05</ExactID><Password xsi:type="xsd:string">0g4tu7pj1hb88q5d8xa55dlhvhvwlm3r</Password><Transaction_Type xsi:type="xsd:string">00</Transaction_Type><DollarAmount xsi:type="xsd:string">99.20</DollarAmount><Card_Number xsi:type="xsd:string">4111111111111111</Card_Number><Expiry_Date xsi:type="xsd:string">1215</Expiry_Date><CardHoldersName xsi:type="xsd:string">Jim Kirker</CardHoldersName><CVDCode xsi:type="xsd:string">999</CVDCode><Reference_No xsi:type="xsd:string">CA-Test</Reference_No><Client_IP xsi:type="xsd:string">::1</Client_IP><Client_Email xsi:type="xsd:string">jkirkerx@gmail.com</Client_Email><Currency xsi:type="xsd:string">USD</Currency><Address href="#id2"/></q2:Transaction><q3:Address_Type id="id2" xsi:type="q3:Address_Type" xmlns:q3="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/encodedTypes"><Address1 xsi:type="xsd:string">18751 Park Haven Lane</Address1><Address2 xsi:type="xsd:string"></Address2><City xsi:type="xsd:string">Huntington Beach</City><State xsi:type="xsd:string">CA</State><Zip xsi:type="xsd:string">92648</Zip><CountryCode xsi:type="xsd:string">US</CountryCode></q3:Address_Type></s:Body></s:Envelope>

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"><s:Header><VsDebuggerCausalityData xmlns="http://schemas.microsoft.com/vstudio/diagnostics/servicemodelsink">uIDPo9SVGdFyrSRIggrGNQtX310AAAAAhRk+BZwrlEmerSG7e6xTXgkQ9xZ9IRxJmASnRkw2CLgACQAA</VsDebuggerCausalityData></s:Header><s:Body s:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><q1:SendAndCommit xmlns:q1="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/Request"><SendAndCommitSource href="#id1"/></q1:SendAndCommit><q2:Transaction id="id1" xsi:type="q2:Transaction" xmlns:q2="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/encodedTypes"><ExactID xsi:type="xsd:string">AH2824-05</ExactID><Password xsi:type="xsd:string">0g4tu7pj1hb88q5d8xa55dlhvhvwlm3r</Password><Transaction_Type xsi:type="xsd:string">00</Transaction_Type><DollarAmount xsi:type="xsd:string">99.20</DollarAmount><Card_Number xsi:type="xsd:string">4111111111111111</Card_Number><Expiry_Date xsi:type="xsd:string">1215</Expiry_Date><CardHoldersName xsi:type="xsd:string">Jim Kirker</CardHoldersName><CVDCode xsi:type="xsd:string">999</CVDCode><Reference_No xsi:type="xsd:string">CA-Test</Reference_No><Client_IP xsi:type="xsd:string">::1</Client_IP><Client_Email xsi:type="xsd:string">jkirkerx@gmail.com</Client_Email><Currency xsi:type="xsd:string">USD</Currency><Address href="#id2"/></q2:Transaction><q3:Address_Type id="id2" xsi:type="q3:Address_Type" xmlns:q3="http://secure2.e-xact.com/vplug-in/transaction/rpc-enc/encodedTypes"><Address1 xsi:type="xsd:string">18751 Park Haven Lane</Address1><Address2 xsi:type="xsd:string"/><City xsi:type="xsd:string">Huntington Beach</City><State xsi:type="xsd:string">CA</State><Zip xsi:type="xsd:string">92648</Zip><CountryCode xsi:type="xsd:string">US</CountryCode></q3:Address_Type></s:Body></s:Envelope>

Dim sb As StringBuilder = New StringBuilder
        Dim xmlSettings As New XmlWriterSettings
        xmlSettings.OmitXmlDeclaration = True

        Dim xmlWriter As XmlWriter = xmlWriter.Create(sb, xmlSettings)
        Dim writer As XmlDictionaryWriter = XmlDictionaryWriter.CreateDictionaryWriter(xmlWriter)

        'Just grab the body of the request to generate the HMAC
        msg.WriteStartEnvelope(writer) 'If i remark this out, I get just the body to hash against
        msg.WriteStartBody(writer)
        msg.WriteBodyContents(writer)
        xmlWriter.WriteEndElement()
        xmlWriter.WriteEndElement() 'If i remark this out, I get just the body to hash against
        writer.Flush()

        Dim body As String = sb.ToString.Replace(" />", "/>")
        Dim xml_bytes() As Byte = encoder.GetBytes(body)

sql1="UPDATE MyTable1 SET Name = 'Test2' WHERE Id = 2"
sql2="Delete * from TB2 WHERE Id = 31"
context.Database.ExecuteSqlCommand(sql1)
context.Database.ExecuteSqlCommand(sql2)

context.Database.ExecuteSqlCommand(sql1 & ";" & sql2)