Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Dim row As Integer Dim col As Integer = (DataGridView1.CurrentCell.ColumnIndex) ComboBox1.Items.Clear() For row = 0 To DataGridView1.Rows.Count - 1 ComboBox1.Items.Add(DataGridView1.Item(col, row).Value) Next End Sub
SELECT macolonne FROM matable WHERE (valeurcherchée LIKE @marecherche + N'%')
Try Dim connex As New SqlCeConnection(ConnectString()) If connex.State = ConnectionState.Closed Then connex.Open() End If ' Créer un adaptateur de données Dim da As New SqlCeDataAdapter("select " & lblcol_1.Text & ", " & lblcol_2.Text & ", " & lblcol_3.Text & ", " & lblcol_4.Text & ", " & lblcol_5.Text & ", " & lblcol_6.Text & " from " & cmbtable.Text & " where " & cmbcol.Text & "='" & Me.txtfiltre.Text & "'", connex) ' Créer un DataSet, le remplir et de visualiser les données de la grille Dim ds As New DataSet da.Fill(ds, cmbtable.Text) DataGridView1.DataSource = ds.Tables(0).DefaultView lblcount.Text = CStr(DataGridView1.Rows.Count - 1) & " ligne" & If(DataGridView1.Rows.Count > 1, "s", "") 'nbre de lignes Catch MsgBox(Err.Description) Finally End Try