Dim conn As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=grade;Integrated Security=True;Pooling=False") Dim cmd As SqlCommand Dim Classes As New List(Of String) Try conn.Open() Dim query As String = "SELECT Class FROM Class" cmd = New SqlCommand(query, conn) Dim rd As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection) While rd.Read() Classes.Add(rd("Class").ToString) End While rd.Close() conn.Close() Me.ComboClass.Items.Clear() Me.ComboClass.Items.AddRange(Classes.ToArray) Catch ex As Exception MessageBox.Show(ex.ToString()) End Try
SELECT DISTINCT Class FROM Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)