|
I'm writing an update to a software package that takes binary data from an instrument and creates a spreadsheet. There is a column that list a reading mode that in the older version of the software outputted either "TC" or "QM". Now in the updated version I want it to write something more descriptive; that being either "Time Corrected" or "Quick Mode", but I still want to maintain backwards compatibility.
I thought the best way to do this would be to use custom attributes where the new description and old description would be saved and then based on the settings of the software the program could choose the proper description.
First I created a custom attribute class:
<AttributeUsage(AttributeTargets.Field, AllowMultiple:=True, Inherited:=False)>
Public Class OutputDescriptionAttribute
Inherits Attribute
Private _oldDescription As String
Private _newDescription As String
Public Sub New(oldDescription As String, newDescription As String)
Me._oldDescription = oldDescription
Me._newDescription = newDescription
End Sub
End Class
Then I created the enum and applied the attributes:
Public Enum ReadingModeType
<OutputDescription("TC", "TimeCorrected")> TimeCorrected
<OutputDescription("QM", "QuickMode")> QuickMode
End Enum
Lastly I copied a method off of Microsoft's website that is supposed to get the values from custom attributes:
Public Shared Sub GetDescription(t As Type)
Dim MyAttribute As OutputDescriptionAttribute =
CType(Attribute.GetCustomAttribute(t, GetType(OutputDescriptionAttribute)), OutputDescriptionAttribute)
If MyAttribute Is Nothing Then
Console.WriteLine("The attribute was not found.")
Else
End If
End Sub
I got this method from http://msdn.microsoft.com/en-us/library/71s1zwct.aspx[^]. I then called this method like so:
Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
Dim s As ReadingModeType = ReadingModeType.QuickMode
test.GetDescription(s.GetType)
End Sub
However when I step through the code in the GetDescription method, the MyAttribute object returns nothing. This is my first time working with custom attributes so I know I'm probably missing something very simple. Can anyone please advise me how I can retrieve the descriptions for the attribute applied to the specified enum value?
Thanks in advance.
|
|
|
|
|
Module Module1
<AttributeUsage(AttributeTargets.Field, AllowMultiple:=True, Inherited:=False)>
Public Class OutputDescriptionAttribute
Inherits Attribute
Private _oldDescription As String
Private _newDescription As String
Public Sub New(ByVal oldDescription As String, ByVal newDescription As String)
Me._oldDescription = oldDescription
Me._newDescription = newDescription
End Sub
Public ReadOnly Property CurrentDescription As String
Get
Return _newDescription
End Get
End Property
End Class
Public Enum ReadingModeType
<OutputDescription("TC", "TimeCorrected")> TimeCorrected
<OutputDescription("QM", "QuickMode")> QuickMode
End Enum
Sub Main()
Dim TCFieldInfo As Reflection.FieldInfo = GetType(ReadingModeType).GetField("TimeCorrected")
Dim customAttributes As Object() = TCFieldInfo.GetCustomAttributes(inherit:=True)
For Each Attrib As Attribute In customAttributes
If Attrib.GetType() Is GetType(OutputDescriptionAttribute) Then
Dim outputDescriptionAttrib As OutputDescriptionAttribute =
CType(Attrib, OutputDescriptionAttribute)
Console.WriteLine(outputDescriptionAttrib.CurrentDescription)
End If
Next
Console.ReadLine()
End Sub
End Module
|
|
|
|
|
Dear all,
I am currently new into programming in classic asp and require little help in executing the following code:
<%
searchInput = Request.QueryString("searchInput")
Set myRecordSet = Connect.Execute("SELECT * FROM dbo.tt WHERE cusip LIKE '%" & searchInput & "%' OR isin LIKE '%" & searchInput & "%'")
if myRecordSet.EOF then
response.write("You searched for: " & searchInput & "<br>")
response.write("A match was not found.<br>Sorry try again.")
else
response.write("You searched for: " & searchInput & "<br>")
response.write("Records were found!<br>The matches are:<br>")
do until myRecordSet.EOF
response.write(myRecordSet("name") & "<br>")
response.write(myRecordSet("cusip") & "<br>")
response.write(myRecordSet("isin") & "<br>")
myRecordSet.MoveNext
loop
end if
%>
The search function does not perform accurately, as when I type in "123" in the search criteria, it display all the records, instead of specific records. It also display records, when I select submit button with blank search criteria.
Any help to overcome the following problem above. Thank you for your time and help.
|
|
|
|
|
miss786 wrote: I am currently new into programming in classic asp
It's not the ASP code, but the SQL query.
miss786 wrote: It also display records, when I select submit button with blank search criteria.
That's the way the query is set up:
WHERE cusip LIKE '%%' OR isin LIKE '%%' -> that means everything.
Can you give an example-population where it displays a record that you'd like to omit?
|
|
|
|
|
Thank you so much for your response and help. Apology for the late response.
CREATE TABLE tt(
name char(2) NOT NULL,
cusip varchar(30) NULL,
isin varchar(30) NULL)
INSERT INTO tt VALUES
('a1', 'XS123', NULL),
('b1', 'XS234', NULL),
('c1', NULL, 'US345'),
('d1', NULL, '5666'),
('e1', 'US3456', NULL),
('a1', NULL, '123'),
('b1', NULL, NULL),
('a1', NULL, NULL)
Using the above DDL, if enter "xs" in the search criteria, I get the all instances as result output, instead I should only get records "a1" and "b1".
Any help on this issue, I would really appreciate your help.
Thank you
|
|
|
|
|
Thanks for including a nice test-script, makes life a bit easier.
BEGIN TRANSACTION
CREATE TABLE tt(
name char(2) NOT NULL,
cusip varchar(30) NULL,
isin varchar(30) NULL)
INSERT INTO tt VALUES
('a1', 'XS123', NULL),
('b1', 'XS234', NULL),
('c1', NULL, 'US345'),
('d1', NULL, '5666'),
('e1', 'US3456', NULL),
('a1', NULL, '123'),
('b1', NULL, NULL),
('a1', NULL, NULL)
SELECT *
FROM tt
WHERE cusip LIKE '%xs%'
OR isin LIKE '%xs%'
ROLLBACKWell, seems to work. Can you verify that the dataset is empty, "before" you execute the query? And log/print/inspect the resulting query that's being built?
|
|
|
|
|
Thank you so much for your help.
I am not sure what you mean by "Can you verify that the dataset is empty, "before" you execute the query"?
This query would always give the output of records a1 and b1 but how can i build a search criteria for the client side, if the user enters "us" in the search criteria, it would show record "e1" or the id the user enters "00", it would show an error saying to "try again, no record found", or if the user searches "3" in the criteria, it would show records "a1, b1 and c1" and so on.
I really appreciate your time and help.
Thank you for your time and guidance.
|
|
|
|
|
miss786 wrote: I am not sure what you mean by "Can you verify that the dataset is empty, "before" you execute the query"?
The result of the query is loaded into a dataset; that's an object that gets created somewhere, and it might already contain data - since the query looks correct, I'm wondering where these other records came from, and it might be that they were there before the query executed.
I doubt that this is the problem, as the object "should" be replaced with a new one on the line where the query executes;
Set myRecordSet = ...
miss786 wrote: This query would always give the output of records a1 and b1 but how can i build a search criteria for the client side, if the user enters "us" in the search criteria, it would show record "e1" or the id the user enters "00", it would show an error saying to "try again, no record found", or if the user searches "3" in the criteria, it would show records "a1, b1 and c1" and so on.
We verified the query yesterday, and it is correct. The ASP-code looks correct too, meaning that it places the user-input in the right spot.
The code below should print the query that's being built in the output-window of the VS-IDE. You might want to check whether the generated query looks as expected (I see no reason why not) and whether it runs when you execute it directly on the server.
Dim myQuery As String = "SELECT * FROM dbo.tt WHERE cusip LIKE '%" & searchInput & "%' OR isin LIKE '%" & searchInput & "%'"
Debug.Print(myQuery)
Set myRecordSet = Connect.Execute(myQuery)
If all else fails, I'll debug it in the weekend. Already got the query and the relevant piece of ASP, so I could try and build it.
|
|
|
|
|
I only needed to include a connection in the code;
<%
searchInput = "xs"
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open "Driver={SQL Server};Server=.\MSSQL;Database=master;Trusted_Connection=yes;"
Dim sQuery
sQuery = "SELECT * FROM dbo.tt WHERE cusip LIKE '%" & searchInput & "%' OR isin LIKE '%" & searchInput & "%'"
Response.Write("sQuery=" & sQuery)
Set myRecordSet = oConnection.Execute(sQuery)
if myRecordSet.EOF then
response.write("You searched for: " & searchInput & "<br>")
response.write("A match was not found.<br>Sorry try again.")
else
response.write("You searched for: " & searchInput & "<br>")
response.write("Records were found!<br>The matches are:<br>")
do until myRecordSet.EOF
response.write(myRecordSet("name") & "<br>")
response.write(myRecordSet("cusip") & "<br>")
response.write(myRecordSet("isin") & "<br>")
myRecordSet.MoveNext
loop
end if
oConnection.Close
Set oConnection = Nothing
%>
I got these results in the browser;
<br />
sQuery=SELECT * FROM dbo.tt WHERE cusip LIKE '%xs%' OR isin LIKE '%xs%'You searched for: xs<br />
Records were found!<br />
The matches are:<br />
a1<br />
XS123<br />
<br />
b1<br />
XS234
Did you "Dim" the myRecordset in code that was not in your post? Reusing a previous variable?
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
So, I'm making a webbrowser with tabs, and so I'm using the
Dim browser As New Webbrowser function. I had the dock property on fill, so that it would fill the tabcontrol. However, I had a statusstrip docked at the bottom of the tabcontrol. When the webbrowser was docked to fill the tabcontrol, it covered up the statusstrip. How do I make it not do this?
NSoft Developer
|
|
|
|
|
Use the Anchor property rather than Dock.
|
|
|
|
|
Click either the browser or the stip, and select "Bring to Front" or "Send to Back".
|
|
|
|
|
Send to back would put the status strip over the top of the bottom of the browser window. He really needs to not use Dock and just Anchor it instead.
|
|
|
|
|
Try it. I do not anchor, but dock. It doesn't change the Z-index.
|
|
|
|
|
Wish I could, but time is limited in the middle of training class right now. 
|
|
|
|
|
Then try it later; docking "works".
|
|
|
|
|
|
Hi...
You can have a panel in tab control and keep status strip out side the Panel but in the Tab control and then add your web browser in panel and set property dockable.. May be this will solve your proble..
|
|
|
|
|
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]
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
