Visual Basic

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

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

miss786 wrote:

I am currently new into programming in classic asp

miss786 wrote:

It also display records, when I select submit button with blank search criteria.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

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)

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%'

ROLLBACK

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

miss786 wrote:

I am not sure what you mean by "Can you verify that the dataset is empty, "before" you execute the query"?

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.

'check for a match
Dim myQuery As String = "SELECT * FROM dbo.tt WHERE cusip LIKE '%" & searchInput & "%' OR isin LIKE '%" & searchInput & "%'"
Debug.Print(myQuery)
Set myRecordSet = Connect.Execute(myQuery)

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

<%
'collect the form input
searchInput = "xs" 'Request.QueryString("searchInput")
 
Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open "Driver={SQL Server};Server=.\MSSQL;Database=master;Trusted_Connection=yes;"
'check for a match
Dim sQuery 
sQuery = "SELECT * FROM dbo.tt WHERE cusip LIKE '%" & searchInput & "%' OR isin LIKE '%" & searchInput & "%'"
Response.Write("sQuery=" & sQuery)
Set myRecordSet = oConnection.Execute(sQuery) 

'display the results
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
%>

<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

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

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)

Dim col_invDate As DataColumn = New DataColumn("invDate")
col_invDate.DataType = System.Type.GetType("System.DateTime")
salesTable.Columns.Add(col_invDate)

Dim col_invDate As DataColumn = New DataColumn("invDate")
col_invDate.DataType = GetType(DateTime)
salesTable.Columns.Add(col_invDate)

x0 = yrSales.Compute("SUM(extPrice)", String.Format("shipToName = '{0}' AND invDate > #{1}# AND invDate < #{2}#", stn, begDate, endDate))

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?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]