我正在使用datagridview来显示员工的详细信息,当没有找到记录时,会有一个消息框,这里没有找到记录,这是我的代码。
Dim search As String = String.Empty
search &= "select * from record "
search &= "where identification=@identification;"
Using conn As New SqlConnection("server=KENJOY_FMCD;database=humanresource;user=ayala747;password=4525422;")
Using cmd As New SqlCommand()
With cmd
.Connection = conn
.CommandType = CommandType.Text
.CommandText = search
.Parameters.AddWithValue("@identification", vsearch.Text)
End With
Try
conn.Open()
cmd.ExecuteNonQuery()
Dim da As New SqlDataAdapter(cmd)
Dim ds As New DataSet
da.Fill(ds)
If ds.Tables.Count >= 0 Then
DataGridView1.DataSource = ds.Tables(0)
End If
If (ds Is Nothing) Then
MsgBox("No record found!")
End If
conn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Using
End Using
End Sub
End Class