Imports System.Data
Imports System.Data.SqlClient
public Class index
Inherits System.Web.UI.Page
Dim conn As SqlConnection
Dim cmd As SqlCommand
Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If TextBox1.Text = "" Then
Response.Write("กรุณาLogin")
ElseIf TextBox2.Text = "" Then
Response.Write("คุณยังไม่ได้กรอก password")
End If
End Sub
Public Sub login_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles login.Click
Dim con As String = "server=TAK\SQLEXPRESS; uid=sa; pwd=1234; database=web;"
conn = New SqlConnection(con)
conn.Open()
Dim sql As String = "SELECT * FROM member where username = @username "
cmd = New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("username", TextBox1.Text)
Dim reader As SqlDataReader
reader = cmd.ExecuteReader
conn = New SqlConnection(con)
'conn.Open()
Dim sql As String = "SELECT COUNT(*) FROM member where username = @username"
cmd = New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@username", TextBox1.Text)
conn.Open()
Dim HaveUser As Integer = CInt(cmd.ExecuteScalar())
conn.Close()
If HaveUser > 0Then
Response.Write("Oh Yes!!")
Else
Response.Write("Oh Noooooo!!")
End If
Dim con As String = "SELECT COUNT(*) FROM member where username = @username"
Dim conn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(con)
conn.Open()
Dim sql As String = "SELECT * FROM member where username = @username "
Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@username", TextBox1.Text)
Dim reader As System.Data.SqlClient.SqlDataReader
reader = cmd.ExecuteReader
If reader.Read() Then
MessageBox.Show(reader("username").ToString() & " Oh Yesh!!!")
Else If
MessageBox.Show("Oh Nooo!!!")
End If
Load balance : Server 05
