Visual Basic

Re: Entity Framework : Get original Values for each object's property

10-Aug-15 5:54

VB.NET

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)
})

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Eddy Vluggen10-Aug-15 5:51

Eddy Vluggen

10-Aug-15 5:51

Ofc, it is not a classic property; Is the entries' Property property by any chance an indexer than returns a DbPropertyEntry class?

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Re: Entity Framework : Get original Values for each object's property

Richard Deeming10-Aug-15 5:56

Re: Entity Framework : Get original Values for each object's property

10-Aug-15 5:56

Yes, the DbEntityEntry's Property function returns a DbPropertyEntry.

DbEntityEntry.Property Method[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

satc10-Aug-15 6:10

satc

10-Aug-15 6:10

Can this be a solution :

obj=context.entry(obj).OriginalValues.ToObject

Dim values = obj.GetType.GetProperties.Where(Function(t2) t2.PropertyType.IsValueType).Select((Function(t3) New With { _
        .property = t3.Name, _
        .value = t3.GetValue(obj, Nothing) _
    })).ToDictionary(Function(x) x.property, Function(y) y.value)

So I can lave my expression unchanged

Re: Entity Framework : Get original Values for each object's property

Richard Deeming10-Aug-15 6:17

SQL Linq, Sum of multiple columns

10-Aug-15 6:17

Yes, that should work.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

vb coding

Member 118868934-Aug-15 21:48

Member 11886893

4-Aug-15 21:48

i need carshowroom mangement system project

Re: vb coding

Richard MacCutchan4-Aug-15 22:21

Richard MacCutchan

4-Aug-15 22:21

Well you newed to do one of two things:

Write it yourself.
Pay someone else to write it for you.

jkirkerx4-Aug-15 7:23

Re: SQL Linq, Sum of multiple columns

4-Aug-15 7:23

Well in plain TSQL it was pretty simple to calc the total amount of taxable items.

SQL

SELECT 
  SUM((qty * Price) - (qty * InstantSavings))
  FROM ShoppingCart
  WHERE SessionID = @SessionID 
  AND Taxable=1

I've gotten this far, pretty sure I'm on the right track here.
But I don't understand where "totals" come from in my statement. I mean yes I put it there because multiple examples used it, but the examples were just snippets.
I simply don't get it.

Dim pValue As Decimal = 0
Using context As New DBContext()

   Dim totals as what?
   pValue = _
   (
      From sc In context.ShoppingCart
      Where sc.SessionID = p_sessionID _
      And sc.Taxable = True
      Group sc By sc.SessionID Into totals()
      Select
     {
       total = totals.Sum(Function(m) (m.Qty * m.Price) - (m.Qty * m.InstantSavings))
     }
   )

  End Using

jkirkerx4-Aug-15 8:20

sql server 2008 how to pivot Login and logOut

4-Aug-15 8:20

I'll go with this, it doesn't work in Linq Pad, but it looks right so far

Dim pValue As Decimal = 0

        Using context As New hx5Context()

            pValue = _
           (
               From sc In context.ShoppingCart
               Where sc.SessionID = p_sessionID _
               And sc.Taxable = True
               Select (sc.Qty * sc.Price) - (sc.Qty * sc.InstantSavings)
           ).DefaultIfEmpty().Sum()

        End Using

        Return pValue

Member 118832203-Aug-15 14:26

Member 11883220

3-Aug-15 14:26

CSS

pls help !!!
USERID     TIMEINOUT         CHECKTYPE
120    1/2/2015 04:30:45 AM     I
120    1/2/2015 07:50:45 AM     O
120    1/2/2015 09:30:45 AM     I
120    1/2/2015 02:20:45 PM     O
120    1/2/2015 04:10:45 PM     I
120    1/2/2015 05:50:45 PM     O

135    1/2/2015 07:30:45 AM     I
135    1/2/2015 09:40:45 AM     O
135    1/2/2015 12:30:45 PM     I
135    1/2/2015 02:10:45 PM     O


output:
userID   date     timeIn        timeOut
120    1/2/2015  04:30:45      07:50:45
120    1/2/2015  09:30:45      02:20:45
120    1/2/2015  04:10:45      05:50:45
135    1/2/2015  07:30:45      09:40:45
135    1/2/2015  12:30:45      02:10:45

Mycroft Holmes3-Aug-15 14:38

Mycroft Holmes

3-Aug-15 14:38

This article [^]may help...

Never underestimate the power of human stupidity
RAH

Member 118832203-Aug-15 15:05

Member 11883220

3-Aug-15 15:05

that is the reality output in biometrix...
can you help me??

Richard MacCutchan3-Aug-15 21:08

Richard MacCutchan

3-Aug-15 21:08

This is the Visual Basic forum, SQL questions should be posted to http://www.codeproject.com/Forums/1725/Database.aspx[^].

SQL Linq, Bulk Transfer substitute

Eddy Vluggen3-Aug-15 21:29

Eddy Vluggen

3-Aug-15 21:29

Doesn't look like a pivot comes from set 1 to 2 - what am I missing?

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

jkirkerx3-Aug-15 8:02

3-Aug-15 8:02

I wrote this as a substritute for bulk Transfer or Select insert.
It's the same exact table columns, just being copied for archival purposes.

But I get this error, "error updating entity",
really generic. So I think I missed the boat on this one, in terms of how I thought it works.

Using context as new DBContext()
Dim r = _
(
   From pi In context.ProductInfo
   Where pi.ProductID = p_Product_ID
   Select New productBulkTransfer With
  {
    .PartNumber = pi.PartNumber,
    ..... 30 more columns
  }
).SingleOrDefault()

Dim w As New PRODUCTINFO_RECYCLEBIN With
{
    .PartNumber = r.PartNumber,
    ..... 30 more columns
}

context.ProductInfo_RecycleBin.Add(w)
context.SaveChanges()

End Using

I tried Dim r = ... .ToList()
But the w side, write complained about it in teh context.Add(w)

[solved]

jkirkerx3-Aug-15 9:02

Re: syntax insert in to: Repost

3-Aug-15 9:02

It was an error in my DataAccessLayer

I tried to take a shortcut in that model, by inheriting the original model, didn't work
Thought I'd try it, but that was last Monday, and forgot about it.

syntax insert in to

Member 1060310631-Jul-15 22:54

Member 10603106

31-Jul-15 22:54

Dim CMD3 As New OleDb.OleDbCommand
SQL = "insert into reciptdetails" +
      "(Reciptid,Barcode,Itemcount,Itembuyprice,Itemsellprice)" +
      "values" +
      "(:0    ,:1    ,:2    ,:3    ,:4       )"
CMD3.Connection = Myconnection
CMD3.Transaction = Mytransaction
CMD3.CommandText = SQL
CMD3.Parameters.AddWithValue(":0", reciptid)
CMD3.Parameters.AddWithValue(":1", Barcode)
CMD3.Parameters.AddWithValue(":2", Itemcount)
CMD3.Parameters.AddWithValue(":3", BuyPrice)
CMD3.Parameters.AddWithValue(":4", SellPrice)
CMD3.ExecuteNonQuery()
CMD3.Dispose()

Richard MacCutchan31-Jul-15 23:07

Richard MacCutchan

31-Jul-15 23:07

You already posted this at Insert Into Statement Error I Cant Save My Data In To Accesess Db[^]. Please post in one forum only.

Basic math, adding numbers, 2 methods produce different results

jkirkerx30-Jul-15 11:15

Re: Basic math, adding numbers, 2 methods produce different results

30-Jul-15 11:15

So I'm working on a report using RDLC for a Windows App.
In the report, there are product items, basically a margin report.
So the customer told me that the final totals of cost, price and margin are off, but the line items are correct. OK.

the method loops a list(of invoiceProfit) from a database function
And there are positive, negative and 0 values in the List(of invoiceProfit)
I never manually added numbers in VB before, and have always used SQL Server to do this.
On a small report with a couple of items, its correct, but on a large report with 1000 items, it's off.

Question:
I'm missing something here on this, and I'm not sure what to think.
I think the += just adds numbers, even if the value is negative.

FYI:
I need to get back to the progress bar issue later today, perhaps now. I'll get back to that post later today or tomorrow.

//Add up the total cost value = $163,315.23
m_totalCost += i.ExtCost

//Add up the total price value = $433,211.49
m_totalPrice += i.ExtPrice

//Add up the total margin value = $270,496.00
m_totalMargin += m_margin

This method produces these values

//Add up the total cost value = $164.575.65
If (i.ExtCost > 0) Then
  m_totalCost = m_totalCost + i.ExtCost
ElseIf (i.ExtCost < 0) Then
  m_totalCost = m_totalCost - i.ExtCost
End If

//Add up the total price value = $437,101.63
If (i.ExtPrice > 0) Then
  m_totalPrice = m_totalPrice + i.ExtPrice
ElseIf (i.ExtPrice < 0) Then
  m_totalPrice = m_totalPrice - i.ExtPrice
End If

PIEBALDconsult30-Jul-15 11:24

PIEBALDconsult

30-Jul-15 11:24

That second group of statements is likely incorrect. The first looks OK. They will definitely produce different results given the same data (if it contains negative values).

And then publish the bad code here: WeirdAndWonderful[^]

modified 30-Jul-15 17:54pm.

Re: Basic math, adding numbers, 2 methods produce different results

jkirkerx30-Jul-15 12:22

Re: Basic math, adding numbers, 2 methods produce different results

30-Jul-15 12:22

OK Thanks!

Richard Deeming31-Jul-15 0:36

Re: Basic math, adding numbers, 2 methods produce different results

31-Jul-15 0:36

The second code block is definitely wrong - subtracting a negative number has the same effect as adding its absolute value.

math

1 + (-1) = 0
1 - (-1) = 2

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

jkirkerx31-Jul-15 11:36