Expand|Select|Wrap|Line Numbers
- Imports System
- Imports System.IO
- Imports System.Web
- Imports System.Web.Services
- Imports System.Web.Services.Protocols
- Imports System.Collections
- Imports System.Collections.Generic
- Imports System.Threading
- Imports System.Xml.Serialization
- Imports System.Data.Common
- Imports System.Data ' VB.NET
- Imports Oracle.DataAccess.Client
- <WebService(Namespace:="http://tempuri.org/")> _
- <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
- <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
- <System.Web.Script.Services.ScriptService()> _
- Public Class AutoCompleteDAL
- Inherits System.Web.Services.WebService
- Public Shared autoCompleteWordList As String()
- <WebMethod()> _
- Public Function GetCompletionList(ByVal prefixText As String, ByVal count As Integer) As String()
- Dim Sql As String = "SELECT NAME from NAMELIST WHERE NAME LIKE '" & prefixText & "' || '%' ORDER BY NAME ;"
- Dim Conn As New _
- OracleClient.OracleConnection(ConfigurationManager.ConnectionStrings( _
- "OrdConnectionString").ConnectionString)
- ' Dim Conn As OracleConnection = New OracleConnection("Data Source=dbHazard;User ID=HazUser;Password=password")
- ' Dim cmd As New OracleCommand(Sql, Conn)
- Dim cmd As New OracleClient.OracleCommand(Sql, Conn)
- Dim items As New List(Of String)
- Dim dr As OracleClient.OracleDataReader = cmd.ExecuteReader() ' VB.NET
- While dr.Read() ' VB.NET
- items.Add(dr.Item("NAME"))
- End While
- 'items.Add(dr.Item("NAME"))
- Return items.ToArray
- End Function
- End Class