Basit bir login web servisi - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Web Master > asp.net

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 04 March 2008, 13:27   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart 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
Alıntı ile Cevapla
Cevapla

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

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.