mysql - Visual Basic 数据库登录 - 代码不起作用

Question

我已经在数据库中拥有用户的用户名和密码，我想从两个文本框创建登录以连接到数据库，这是我到目前为止所拥有的，但它不起作用

Partial Class Pages_Login


Inherits System.Web.UI.Page
Protected Sub btnlogin_Click(sender As Object, e As EventArgs) Handles   btnlogin.Click

Dim patientNo As String
Dim password As String
Dim bAuthethicated As Boolean
patientNo = txtuser.Text
password = txtpassword.Text
bAuthethicated = CheckUser(patientNo, password)

If bAuthethicated Then
    lblresult.Text() = "Student Number and Password are correct"

Else
    lblresult.Text() = "Incorrect Student Number and/or Password"


End If

End Sub

Dim cmdstring As String = "SELECT COUNT(*) FROM Patient  Where      Username=@STUDNO AND Password =@PASSWORD"

   conn As New SqlConnection("Data Source=.\SQLEXPRESS;
   AttachDbFilename=|DataDirectory|\surgery.mdf;IntegratedSecurity=True; UserInstance=True")

cmd= New SqlCommand(cmdstring, conn)
cmd.Parameters.Add("@PATIENTNO", SqlDbType.nchar).Value = patientNo
cmd.Parameters.Add("@PASSWORD", SqlDbType.nchar).Value = password
conn.Open()

found = CInt(cmd.ExecuteScalar)

End Using
Return (found > 0)
End Function

出现了一些构建错误

谁能帮忙

亲切的问候

Answer 1

Imports System.Data.SqlClient
Imports System.Data

Partial Class Pages_Login
    Inherits System.Web.UI.Page


    Protected Sub btnlogin_Click(sender As Object, e As EventArgs) Handles btnlogin.Click

        Dim patientNo As String
        Dim password As String
        Dim bAuthethicated As Boolean
        patientNo = txtuser.Text
        password = txtpassword.Text
        bAuthethicated = CheckUser(patientNo, password)

        If bAuthethicated Then
            lblresult.Text() = "Student Number and Password are correct"

        Else
            lblresult.Text() = "Incorrect Student Number and/or Password"


        End If

    End Sub

    Public Function CheckUser(patientNo As String, password As String) As Integer
        Dim cmdstring As String = "SELECT COUNT(*) FROM Patient  Where Username=@STUDNO AND Password =@PASSWORD"
        Dim found = 0
        Using conn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\surgery.mdf;IntegratedSecurity=True;UserInstance=True")

            Dim cmd = New SqlCommand(cmdstring, conn)
            cmd.Parameters.Add("@PATIENTNO", SqlDbType.NChar).Value = patientNo
            cmd.Parameters.Add("@PASSWORD", SqlDbType.NChar).Value = password
            conn.Open()

            found = CInt(cmd.ExecuteScalar)

        End Using
        Return (found > 0)
    End Function
End Class