|
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]
|
|
|
|
|
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.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
