问验证.NET项目中的数据库数据

EN

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Dim dt = GetFullData("85")
    DataGridView1.DataSource = dt
End Sub

Private Function GetFullData(SearchString As String) As DataTable
    Dim dt As New DataTable
    Dim sql = "Select * FROM FullData where SYNO Like @SearchString;"
    Using cn As New SqlConnection(ConStr),
            cmd As New SqlCommand(sql, cn)
        cmd.Parameters.Add("@SearchString", SqlDbType.VarChar).Value = $"%{SearchString}%"
        cn.Open()
        Using reader = cmd.ExecuteReader
            dt.Load(reader)
        End Using
        Return dt
    End Using
End Function