04 March 2008, 13:27 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Basit bir login web servisi
Basit bir login web servisi Kod:
Imports System.Web.Services Imports System.Data.SqlClient <System.Web.Services.WebService(Namespace:="http://localhost/EOS/slogin")> _ Public Class slogin Inherits System.Web.Services.WebService #Region " Web Services Designer Generated Code " Public Sub New() MyBase.New() 'This call is required by the Web Services Designer. InitializeComponent() 'Add your own initialization code after the InitializeComponent() call End Sub 'Required by the Web Services Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Web Services Designer 'It can be modified using the Web Services Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() components = New System.ComponentModel.Container End Sub Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 'CODEGEN: This procedure is required by the Web Services Designer 'Do not modify it using the code editor. If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub #End Region <WebMethod()> _ Public Function sql(ByVal a As String, ByVal b As String) As String Dim DBConn As SqlConnection Dim DBCommand As SqlDataAdapter Dim DSPageData As New DataSet DBConn = New SqlConnection(server=(local);database=deneme;trusted_connection=true) DBCommand = New SqlDataAdapter _ ("Select * From tablom Where " _ & "a = '" & a & "' " _ & "And b = '" & b & "'" _ , DBConn) DBCommand.Fill(DSPageData, _ "tablom") If DSPageData.Tables("tablom").Rows.Count = 0 Then Return ("hata var") Else Return ("giris tamam") End If End Function End Class |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
ADİ SERVİ (İtalya Servisi) | umut | Bitkiler ve Özellikleri | 0 | 18 September 2011 15:18 |
Asp.net basit bir takvim | agasarlinuris | asp.net | 0 | 21 January 2009 21:12 |
Ado.net ile login page olusturma-1 | tamerr89 | ADO.NET-ADO | 0 | 08 February 2008 16:31 |
Basit Yaşamalisin | Mekansiz | Yakılacak Mektuplarınız | 0 | 07 April 2006 15:45 |
Beleşe Yıkama Yağlama Servisi Welcome... | Papatyam | Animasyonlar ve Gifler | 0 | 17 March 2006 16:55 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |