กรณีจะเช็คว่า ผู้ใช้กับรหัสผ่านตรงกันจะทำหน้าล็อกอินครับ ให้ผู้ใช้เป็น txt_username รหัสผ่านเป็น txt_password ในฐานข้อมูลแบบData Connection ชื่อว่า aspdbConnectionString ที่ตาราง Member มี id , username , password ครับ
#รบกวนช่วยด้วยนะครับ หรือ มีวิธีอื่นไหม
Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.Security
Imports System.Web.Configuration
Partial Class Register
Inherits System.Web.UI.Page
Dim com As Object
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'ตรวจสอบ
Dim username As String
username = txt_username.Text
Dim Conn As New SqlConnection(ConfigurationManager.ConnectionStrings("aspdbConnectionString").ConnectionString)
Conn.Open()
Dim SqlUserName As String
SqlUserName = "SELECT username FROM Member WHERE (username ='" & username & "')"
Dim Com As New SqlCommand(SqlUserName, Conn)
Dim CurrentName As String
CurrentName = CStr(Com.ExecuteScalar)
If CurrentName <> "" Then
Label7.Text = "ผ่าน"
Else
Label7.Text = "ไม่ผ่าน"
End If
End Sub
End Class
รบกวนช่วย แก้โค้ด asp.net ภาษา visus ให้หน่อยครับ
#รบกวนช่วยด้วยนะครับ หรือ มีวิธีอื่นไหม
Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.Security
Imports System.Web.Configuration
Partial Class Register
Inherits System.Web.UI.Page
Dim com As Object
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'ตรวจสอบ
Dim username As String
username = txt_username.Text
Dim Conn As New SqlConnection(ConfigurationManager.ConnectionStrings("aspdbConnectionString").ConnectionString)
Conn.Open()
Dim SqlUserName As String
SqlUserName = "SELECT username FROM Member WHERE (username ='" & username & "')"
Dim Com As New SqlCommand(SqlUserName, Conn)
Dim CurrentName As String
CurrentName = CStr(Com.ExecuteScalar)
If CurrentName <> "" Then
Label7.Text = "ผ่าน"
Else
Label7.Text = "ไม่ผ่าน"
End If
End Sub
End Class