|
Hi All,
Can't figure this out . . . .
I am trying to run a .Compute against a dataTable but am getting an 'EvaluateExecption was unhandled' error: Cannot perform '<' operation on System.String and System.Double.
Here is my code:
Dim salesTable as DataTable
salesTable = New DataTable
With salesTable
.Columns.Add("invNo")
.Columns.Add("custId")
.Columns.Add("custName")
.Columns.Add("shipToId")
.Columns.Add("shipToName")
.Columns.Add("shipToCity")
.Columns.Add("shipToState")
.Columns.Add("invDate")
.Columns.Add("category")
.Columns.Add("itemId")
.Columns.Add("desc")
.Columns.Add("shipQty")
.Columns.Add("extPrice")
End With
Public Sub getYrSales(ByVal stn As String)
Dim yrSales = salesTable
Dim x0 As Object = yrSales.Compute("SUM(extPrice)", "shipToName = '" & stn & "'" & "AND invDate >" & begDate & "AND invDate <" & endDate)
End Sub
Thanks,
MB
|
|
|
|
|
Read the error message again.
In your Compute, you've got "AND invDate < endDate". Apparently, your invDate column datatype is either String or Double and the endDate variable you're passing in contains data of the other type. Compute will NOT do automatic type conversion to coerce the compare to work, so YOU have to make sure you're storing data appropriately, like NOT storing dates in the database as strings or non-date types.
It's impossible to say for sure because you haven't shown the column definition for invDate nor do we know what type and the contents of the endDate variable.
|
|
|
|
|
Thanks for the feedback - I have made the following changes:
Dim salesTable As DataTable
salesTable = New DataTable
Dim col_invNo As DataColumn = New DataColumn("invNo")
col_invNo.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_invNo)
Dim col_custId As DataColumn = New DataColumn("custId")
col_custId.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_custId)
Dim col_custName As DataColumn = New DataColumn("custName")
col_custName.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_custName)
Dim col_shipToId As DataColumn = New DataColumn("shipToId")
col_shipToId.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_shipToId)
Dim col_shipToName As DataColumn = New DataColumn("shipToName")
col_shipToName.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_shipToName)
Dim col_shipToCity As DataColumn = New DataColumn("shipToCity")
col_shipToCity.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_shipToCity)
Dim col_shipToState As DataColumn = New DataColumn("shipToState")
col_shipToState.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_shipToState)
Dim col_invDate As DataColumn = New DataColumn("invDate")
col_invDate.DataType = System.Type.GetType("System.DateTime")
salesTable.Columns.Add(col_invDate)
Dim col_category As DataColumn = New DataColumn("category")
col_category.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_category)
Dim col_itemId As DataColumn = New DataColumn("itemId")
col_itemId.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_itemId)
Dim col_desc As DataColumn = New DataColumn("desc")
col_desc.DataType = System.Type.GetType("System.String")
salesTable.Columns.Add(col_desc)
Dim col_shipQty As DataColumn = New DataColumn("shipQty")
col_shipQty.DataType = System.Type.GetType("System.Int32")
salesTable.Columns.Add(col_shipQty)
Dim col_extPrice As DataColumn = New DataColumn("extPrice")
col_extPrice.DataType = System.Type.GetType("System.Decimal")
salesTable.Columns.Add(col_extPrice)
Public getYrSales(ByVal stn as String)
Dim begDate as Date
Dim endDate as Date
Dim yrSales = salesTable
Dim x0 As Object
begDate = "01/01/2009"
endDate = "12/31/2009"
x0 = yrSales.Compute("SUM(extPrice)", "shipToName = '" & stn & "'" & "AND invDate >" & begDate & "AND invDate <" & endDate)
End Sub
Unforturnately - I'm still getting the error / what am I missing?
Thanks,
MB
|
|
|
|
|
You don't need to specify System. The System namespace is automatically imported in VB.NET. You also don't need to specify System.Type.GetType... GetType alone is sufficient.
Dim col_invDate As DataColumn = New DataColumn("invDate")
col_invDate.DataType = System.Type.GetType("System.DateTime")
salesTable.Columns.Add(col_invDate)
should become this:
Dim col_invDate As DataColumn = New DataColumn("invDate")
col_invDate.DataType = GetType(DateTime)
salesTable.Columns.Add(col_invDate)
Next, according to the documentation on DataTable.Compute and DataColumn.Expression, a DateTime value should be enclosed in single quotes or the # sign, depending on the underlying data provider.
...and to make things MUCH easier to read, don't use string concatentation:
x0 = yrSales.Compute("SUM(extPrice)", String.Format("shipToName = '{0}' AND invDate > #{1}# AND invDate < #{2}#", stn, begDate, endDate))
BTW: x0 is a terrible variable name. By looking at the variable name alone, what does it contain?? There is no way to tell.
|
|
|
|
|
When a program running in administrator mode in windows 7, it can'nt communicate with normal mode application using automation or cominterop (crateobject()). Why?
|
|
|
|
|
solankinkdpr wrote: When a program running in administrator mode in windows 7, it can'nt communicate with normal mode application using automation or cominterop (crateobject()). Why?
Different users; running under complete different credentials with different access-rights.
Now, to get a decent answer, you'd also explain "how" you'd communicate. Did you try TCP/IP?
|
|
|
|
|
i'm using createobject() to communicate.
[CODE]
dim appref as object
appref=createobject("Photoshop.Application")
appref.documents.add(1)
[/CODE]
|
|
|
|
|
That's not exactly a communication-protocol, but a way to instantiate a COM-control. This means that you cannot accomplish something similar by using another way to 'communicate'.
If your app requires Photoshop, and Photoshop needs run as an admin, then your app should launch using the same credentials. (Put in a message that it needs be run as admin)
|
|
|
|
|
is there any way or work around that my app works in administrator mode and instantiate and call lower credential application functions.
as my application is running in administrator mode and photoshop is running in normal mode and still i can create successful COM connection.
|
|
|
|
|
Not possible, for the reasons already mentioned.
Keep in mind that Windows does not know whether it's 'lower' or 'higher' credentials; it only knows that they differ.
|
|
|
|
|
This is by design, for security reasons. They won't work because you'll be giving the "Normal" process access to code running under an account that has elevated permissions. If there was some exploit in the elevated code, it could then be taken advantage of and potentially harmfully to the system, i.e.: virus.
|
|
|
|
|
how can i add the serial number function to my project
and that serial could acces for one time like any professional software
|
|
|
|
|
olivertechy wrote: how can i add the serial number function to my project
and that serial could acces for one time like any professional software
Generating a serial number isn't enough; one needs to be able to validate it. That means that you'd need a number that contains a hash, a number that can be calculated, or a number (or sequence of letters) that can be tracked (say, using a database).
If you're unsure what to do, google for "Licensing example C#".
|
|
|
|
|
Hi,
I'm new to VB.net and totally new to XML. I am building a program that receives a response to a XML inquiry from hwresponse.GetResponseStream. So far I have been able to submit the request and receive a response. I now need take that response (in the form of a string) and convert it to a format which will allow me to make decisions based on it. Perhaps by creating dataset/datatable and passing to variables.
I've spent days Googling an can't find anything in VB.net that fits. I know this is down to my lack of knowledge and a tiny brain. I would be eternally grateful to anyone who could help.
Example of response string:
<ew:quote_a2 xmlns:ew="http://www.reifen.net"><documentid>Stock Equiry<variant>5<errorhead><errorcode>915<buyerparty><partyid>4564564<agencycode>91<orderline><lineid>10<orderedarticle><articleidentification><eanuccarticleid>EAN<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>20<orderedarticle><articleidentification><eanuccarticleid>3188642010025<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>30<orderedarticle><articleidentification><eanuccarticleid>3188642037114<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>40<orderedarticle><articleidentification><eanuccarticleid>3188642146762<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>50<orderedarticle><articleidentification><eanuccarticleid>3188642256645<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>60<orderedarticle><articleidentification><eanuccarticleid>3188642258182<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>70<orderedarticle><articleidentification><eanuccarticleid>3188642258199<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>80<orderedarticle><articleidentification><eanuccarticleid>3188642276841<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>90<orderedarticle><articleidentification><eanuccarticleid>3188642315786<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0<orderline><lineid>100<orderedarticle><articleidentification><eanuccarticleid>3188642323231<articledescription><articledescriptiontext><availability>0<requestedquantity><quantityvalue>200<error><errorcode>0<scheduledetails><deliverydate>9999-12-31<availablequantity><quantityvalue>0"
|
|
|
|
|
What does that data represent and what do you want to extract from it? From the repetition pattern it looks as if the query has returned 9 items but you haven't given us much of a clue.
Stock Equiry591545645649110EAN
020009999-12-31 02 03188642010025
020009999-12-31 03 03188642037114
020009999-12-31 04 03188642146762
020009999-12-31 05 03188642256645
020009999-12-31 06 03188642258182
020009999-12-31 07 03188642258199
020009999-12-31 08 03188642276841
020009999-12-31 09 03188642315786
020009999-12-31 010 03188642323231
020009999-12-31 0
|
|
|
|
|
Firstly. Thank you for taking the time to reply.
I receive the response back in a continious string. It's a response to a stock enquiry but in XML format it reads.
The XMl post reads:
Firstly. Thank you for taking the time to reply.
I receive the response back in a continious string. It's a response to a stock enquiry but in XML format it reads.
The XMl post reads:
<pre lang="xml"><?xml version="1.0" encoding="UTF-8"?>
<ew:inquiry_A2 xmlns:ew="http://www.reifen.net">
<DocumentID>A2</DocumentID>
<Variant>5</Variant>
<BuyerParty>
<PartyID>300000</PartyID>
<AgencyCode>91</AgencyCode>
</BuyerParty>
<OrderLine>
<LineID>10</LineID>
<OrderedArticle>
<ArticleIdentification>
<EANUCCArticleID>5452000877154</EANUCCArticleID>
</ArticleIdentification>
<RequestedQuantity>
<QuantityValue>200</QuantityValue>
</RequestedQuantity>
</OrderedArticle>
</OrderLine>
<OrderLine>
<LineID>10</LineID>
<OrderedArticle>
<ArticleIdentification>
<EANUCCArticleID>5452001082922</EANUCCArticleID>
</ArticleIdentification>
<RequestedQuantity>
<QuantityValue>200</QuantityValue>
</RequestedQuantity>
</OrderedArticle>
</OrderLine>
</ew:inquiry_A2></pre>
An example reply would be:
<pre lang="xml"><?xml version="1.0" encoding="UTF-8" ?>
<ew:quote_A2 xmlns:ew="http://www.reifen.net">
<DocumentID>A2</DocumentID>
<Variant>5</Variant>
<ErrorHead>
<ErrorCode>0</ErrorCode>
</ErrorHead>
<BuyerParty>
<PartyID>305026</PartyID>
<AgencyCode>91</AgencyCode>
</BuyerParty>
<OrderLine>
<LineID>10</LineID>
<OrderedArticle>
<ArticleIdentification>
<ManufacturersArticleID>520654</ManufacturersArticleID>
<EANUCCArticleID>5452000877154</EANUCCArticleID>
</ArticleIdentification>
<ArticleDescription>
<ArticleDescriptionText>205/55R16 91H OPTIGRIP FP</ArticleDescriptionText>
</ArticleDescription>
<Availability>3</Availability>
<RequestedQuantity>
<QuantityValue>200</QuantityValue>
</RequestedQuantity>
<Error>
<ErrorCode>0</ErrorCode>
</Error>
<ScheduleDetails>
<DeliveryDate>9999-12-31</DeliveryDate>
<AvailableQuantity>
<QuantityValue>200</QuantityValue>
</AvailableQuantity>
</ScheduleDetails>
</OrderedArticle>
</OrderLine>
<OrderLine>
<LineID>10</LineID>
<OrderedArticle>
<ArticleIdentification>
<ManufacturersArticleID>522794</ManufacturersArticleID>
<EANUCCArticleID>5452001082922</EANUCCArticleID>
</ArticleIdentification>
<ArticleDescription>
<ArticleDescriptionText>205/55R16 91H UG 8 MS FP</ArticleDescriptionText>
</ArticleDescription>
<Availability>2</Availability>
<RequestedQuantity>
<QuantityValue>200</QuantityValue>
</RequestedQuantity>
<Error>
<ErrorCode>0</ErrorCode>
</Error>
<ScheduleDetails>
<DeliveryDate>2013-02-04</DeliveryDate>
<AvailableQuantity>
<QuantityValue>5</QuantityValue>
</AvailableQuantity>
</ScheduleDetails>
<ScheduleDetails>
<DeliveryDate>9999-12-31</DeliveryDate>
<AvailableQuantity>
<QuantityValue>195</QuantityValue>
</AvailableQuantity>
</ScheduleDetails>
</OrderedArticle>
</OrderLine>
</ew:quote_A2></pre>
|
|
|
|
|
Hallo All,
I am having issues with Viewing report that I added to my project and I need your help please.
I am using Access DB, VB 2010, .NET4.5 and As you can tell I am in learning process, so I am new to VB.
Any help given is highly appreciated.
HERE are the Two error I am getting:
1 st one. I want to view Total Profits for all times.
Error "A data source instance has not been supplied for the date source 'AllTimeReportDataset'
I named this on the wizard when I was creating the report wizard but how do I add the data source.
2nd Error: Happens when I want to view Total profits between two Date:
HERE is the Error: The Report definition for the report 'TBS.TotalProfitsBetweenTwoDates.rdlc' has not been specified.
Here is my code:
Private Sub ShowReportBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowReportBtn.Click
If ReportComboBox.Text = "Total Profits for all Times" Then
'Fill the information for the report Selected.
Dim TA As New TBSDSTableAdapters.TotalProfitForALLTimeTableAdapter
Dim SelectedDS As New TBSDS
TA.Fill(SelectedDS.TotalProfitForALLTime)
'Clear previous report run (Data Source) and Display the new report selected
ReportViewer.LocalReport.DataSources.Clear()
'Create a new Data Source now ---selected report from Combo box ---In this case Total report for all time
'Dim RDS As New Microsoft.Reporting.WinForms.ReportDataSource("TBS_TotalProfitForAllTime", SelectedDS.TotalProfitForALLTime)
Dim rds As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource
rds.Name = "TBSDS_TotalProfitForAllTime"
rds.Value = SelectedDS.TotalProfitForALLTime
'tell the report control to use the data source
'also use the report template created (rds)
ReportViewer.LocalReport.DataSources.Add(rds)
ReportViewer.LocalReport.ReportEmbeddedResource = "TBS.TotalProfitForAllTime.rdlc"
ReportViewer.RefreshReport()
ElseIf ReportComboBox.Text = "Total Profits between two Date" Then
Dim TA As New TBS_RestDSTableAdapters.TotalProfitForALLTimeTableAdapter
Dim SelectedDS As New TBSDS
TA.FillByFilteringBetweenTwoDates(SelectedDS.TotalProfitForALLTime, DateTimePicker1.Value, DateTimePicker2.Value)
'Clear previous report run (Data Source) and Display the new report selected
ReportViewer.LocalReport.DataSources.Clear()
'Create a new Data Source now ---selected report from Combo box ---In this case Total report for all time
''''Dim RDS As New Microsoft.Reporting.WinForms.ReportDataSource("TBS_TotalProfitForAllTime", SelectedDS.TotalProfitForALLTime)
Dim rds As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource
rds.Name = "TBS_TotalProfitForAllTime"
rds.Value = SelectedDS.TotalProfitForALLTime
'tell the report control to use the data source
'also use the report template created (rds)
ReportViewer.LocalReport.DataSources.Add(rds)
ReportViewer.LocalReport.ReportEmbeddedResource = "TBS.TotalProfitsBetweenTwoDates.rdlc"
ReportViewer.RefreshReport()
End If
End Sub
Again, Any help given is highly appreciated.
Thank you in advance.
|
|
|
|
|
Can Anyone help me here please.
Thanks for your efforts in advance.
|
|
|
|
|
Hello
I want to make my VB 2011 program detect the connected mobile device name via USB. or get the serial number.
Thanks
sorry for my bad english 
|
|
|
|
|
sir actually my main aim is to call the notepad .exe in the system using parallel port. for that i thought i will arrange an ir interrupt to the parallel port and the parallel port which is connected to the system. In the system using the vb script and interfacing the parallel port with it can help me in calling the notepad.exe file Now i am not knowing how to write the program in the vb script...plz plz plz help me..
|
|
|
|
|
|
can i develop a software that splits ,joins,compress and decompress using visual basic 8.0?
|
|
|
|
|
Yes, if you have some programming skills. Google or MSDN will help you to find the documentation for each feature.
|
|
|
|
|
Since we know absolutely nothing ablut you and your skill set, it's impossible to answer this question.
Can any one of us do it?? Sure!
Can you?? We have no idea.
|
|
|
|
|
insert multiple values in single column from diff text boxes in dtabase using vb.net
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
