42 lines
1.9 KiB
VB.net
42 lines
1.9 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports System.Web
|
|
Imports System.Web.Services
|
|
Imports System.Web.Services.Protocols
|
|
|
|
' Wenn der Aufruf dieses Webdiensts aus einem Skript zulässig sein soll, heben Sie mithilfe von ASP.NET AJAX die Kommentarmarkierung für die folgende Zeile auf.
|
|
' <System.Web.Script.Services.ScriptService()> _
|
|
<WebService(Namespace:="http://tempuri.org/")> _
|
|
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
|
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
|
Public Class WebService
|
|
Inherits System.Web.Services.WebService
|
|
|
|
<WebMethod()>
|
|
Public Function ShowLKWs(ByVal sLookUP As String) As List(Of String)
|
|
Dim lstCountries As New List(Of String)()
|
|
Dim Connectionstring As String = String.Empty
|
|
|
|
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
|
'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
|
|
Connectionstring = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
|
|
Else
|
|
Connectionstring = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;"
|
|
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
|
|
End If
|
|
|
|
Dim myConn As New SqlConnection(Connectionstring)
|
|
Dim objComm As New SqlCommand("SELECT LKW Kennzeichen FROM FROM [VERAG_HOMEPAGE].[dbo].[Rechnungsausgang] " &
|
|
"WHERE Kennzeichen LIKE '%'+@LookUP+'%' ORDER BY Kennzeichen", myConn)
|
|
myConn.Open()
|
|
|
|
objComm.Parameters.AddWithValue("@LookUP", sLookUP)
|
|
Dim reader As SqlDataReader = objComm.ExecuteReader()
|
|
|
|
While reader.Read()
|
|
lstCountries.Add(reader("Kennzeichen").ToString())
|
|
End While
|
|
|
|
myConn.Close() : Return lstCountries
|
|
End Function
|
|
|
|
End Class |