値を挿入した後にコンボボックスを更新する

Question

コンボボックスに直接入る値を挿入した後にコンボボックスを更新したい。おそらく私はクエリを作成する必要があり、私はすでにそれを持っています。それは私が今

Private Sub UpdateComboBox() 
    SQLCon = New SqlConnection 
    SQLCon.ConnectionString = "...." 
    Try 
     SQLCon.Open() 
     Dim Query As String 
     Query = "SELECT Filetype FROM infofile GROUP BY Filetype" 
     SqlCmd = New SqlCommand(Query, SQLCon) 
     SQLDataReader = SqlCmd.ExecuteReader 
     ComboBox1.DataSource = ComboBox1.Items.Add(Query) 
     SQLCon.Close() 
    Catch ex As SqlException 
     MsgBox(ex.Message) 
    Finally 
     SQLCon.Dispose() 
    End Try 
End Sub 

になったコードであり、私は挿入何かの後に、現時点では、このメソッドを追加します。

このコードは、フォーム

SQLCon = New SqlConnection 
     SQLCon.ConnectionString = "......" 
     Try 
      SQLCon.Open() 
      Dim Query As String 
      Query = "SELECT Filetype FROM infofile GROUP BY Filetype" 
      SqlCmd = New SqlCommand(Query, SQLCon) 
      SQLDataReader = SqlCmd.ExecuteReader 
      While SQLDataReader.Read 
       Dim fileType = SQLDataReader.GetString(0) 
       DataGridView1.DataSource = ComboBox1.Items.Add(fileType) 
      End While 
      SQLCon.Close() 
     Catch ex As SqlException 
      MsgBox(ex.Message) 
     Finally 
      SQLCon.Dispose() 
     End Try 

Answer 1

にあるこの試し：

Private Sub UpdateComboBox() 
    SQLCon = New SqlConnection 
    SQLCon.ConnectionString = "....." 
    Try 
     SQLCon.Open() 
     Dim Query As String 
     Query = "SELECT Filetype FROM infofile GROUP BY Filetype" 
     SqlCmd = New SqlCommand(Query, SQLCon) 
     Dim adapter As New SqlDataAdapter(SqlCmd) 
     Dim table As New DataTable 
     adapter.Fill(table) 
     ComboBox1.DataSource = table 
     ComboBox1.DisplayMember = "Filetype" 
     SQLCon.Close() 
     Return table 
    Catch ex As SqlException 
     MsgBox(ex.Message) 
    Finally 
     SQLCon.Dispose() 
    End Try 
End Sub