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 

數生成錯誤已經出現

可以canyone請幫助

親切的問候

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 

Answer 2

有一兩件事情錯在那裏。我想這應該讓你的代碼編譯沒有任何錯誤

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) 
    Dim found As Boolean 

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

    Dim 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) 


    Return (found > 0) 
End Function 

End Class