Visual Basic

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

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

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.

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

Richard Deeming

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

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

jkirkerx31-Jul-15 11:36

VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

31-Jul-15 11:36

I didn't think of it that way.

QuickBooksDev30-Jul-15 8:12

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

30-Jul-15 8:12

Hi,

We have a VB.2010 32 bit Windows Desktop program that has been running for years. It uses an Excel (2010 in this case) database which is accessed through a connectionless OLEDB connection string as
Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE='L:\accnt\CustomerFiles\DATABASE 2015.xlsm'; Extended Properties="Excel 12.0 Xml;HDR=YES"

Normally it works fine but on some systems we get a
3706 Provider cannot be found.

It has failed and worked on different W2012R2 systems. It also has failed on Windows 8.1 (64b).

On W8.1 have tried installing AccessDataEngine_x64 but it did not help (32 bit version would not install).

Can anyone help?

PIEBALDconsult30-Jul-15 8:43

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

30-Jul-15 8:43

Did you turn it off and turn it back on again?

QuickBooksDev30-Jul-15 9:59

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

30-Jul-15 9:59

Turn what off and on again? AccessDatabaseEngine_64 was installed, rebooted, test failed, uninstalled AccessDatabaseEngine_64, rebooted still fails.

Wendelius30-Jul-15 8:44

Wendelius

30-Jul-15 8:44

The problem is that your application is 32 bit so it requires a 32 bit driver. In order to get the current application working you should install 32 bit version. Try downloading it from https://www.microsoft.com/en-us/download/details.aspx?id=13255[^].

Another option is to compile the application as 64 bit and use the 64 bit driver.

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

QuickBooksDev30-Jul-15 9:58

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

30-Jul-15 9:58

As I said below that will not install. Error message=You cannot install the 32 bit version of Microsoft Access Database Engine 2010 because you current have 64-but Office products installed. If you want to install 32-bit installation of Microsoft Access Database Engine 2010, you will first need to remove the 64-bit installation of Office products. After uninstalling the following product(s), return setup in order to install 32-but version of Microsoft Access Database Engine 2010:
Microsoft Office Standard 2010.
I really do not want to uninstall Office. I do not know if my customers have the 32 bit versions or would be using them. Seems like the 64-bit version is pre-installed on some machines.

Wendelius30-Jul-15 10:01

Wendelius

30-Jul-15 10:01

Then it sounds that you should try the 64 bit compile.

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

QuickBooksDev30-Jul-15 10:03

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

30-Jul-15 10:03

Can't an interface that the program uses for QuickBooks requires 32bit.

PIEBALDconsult30-Jul-15 10:01

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

30-Jul-15 10:01

QuickBooksDev wrote:
I really do not want to uninstall Office

You don't need to install ACE on a system that already has Office.

QuickBooksDev30-Jul-15 10:05

Re: VB.net 2010,Windows Desktop Excel ADODB Provider cannot be found

30-Jul-15 10:05

Ok, then what should I do to make it work. I was just following other postings on the web and some said that ACE was needed. If not great but it still does not work.

PIEBALDconsult30-Jul-15 10:08