如何顯示消息，如果沒有記錄，發現

Question

這是我的代碼過濾數據轉換成文本框/標籤

Dim reader As MySqlDataReader 
    Try 
     If conn.State = ConnectionState.Closed Then 
      conn.Open() 
     End If 

     Dim query As String 
     query = "SELECT * FROM member WHERE (memor = '" & memor.Text & "')" 

     sqlcom = New MySqlCommand(query, conn) 
     reader = sqlcom.ExecuteReader 
     While reader.Read() 
      Me.lblname.Text = reader("membname").ToString 
      Me.txtmembtype.Text = reader("membtype").ToString 
      Me.lblmembdate.Text = reader("membdate").ToString 
     End While 

     conn.Close() 
    Catch ex As Exception 
     MessageBox.Show(ex.Message) 
    Finally 
     conn.Dispose() 
    End Try 

現在我想有提示，有沒有在我的MySQL數據庫中找到數據的消息框？任何想法？

Answer 1

您可以簡單地使用reader.HasRows()檢查記錄

reader = sqlcom.ExecuteReader 
if Reader.HasRows() Then 
    While reader.Read() 
     Me.lblname.Text = reader("membname").ToString 
     Me.txtmembtype.Text = reader("membtype").ToString 
     Me.lblmembdate.Text = reader("membdate").ToString 
    End While 
Else 
    MessageBox.Show("No records found") 
End If 

Answer 2

毆打，但仍發佈了強制性SQL parameterization警告。

修改後的代碼：

Try 
    If conn.State = ConnectionState.Closed Then 
     conn.Open() 
    End If 


    Dim query As String 
    query = "SELECT * FROM member WHERE (memor = @memor)" 

    sqlcom = New MySqlCommand(query, conn) 
    sqlcom.Parameters.AddWithValue("@memor", memor.Text) 
    reader = sqlcom.ExecuteReader 
    If reader.HasRows Then 
     While reader.Read() 
      Me.lblname.Text = reader("membname").ToString 
      Me.txtmembtype.Text = reader("membtype").ToString 
      Me.lblmembdate.Text = reader("membdate").ToString 
     End While 
    Else 
     MsgBox("No data found.") 
    End If 

    conn.Close() 
Catch ex As Exception 
    MessageBox.Show(ex.Message) 
Finally 
    conn.Dispose() 

End Try