Bonjour,

J'ai un petit soucis sur l'insertion de données dans mon DatagridView. J'ai trouvé un exemple en C# sur internet mais je ne sais pas vraiment comment l'interpréter en VB, le voici:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
private void grid_view()
{
   string s=ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
   string sel = "select * from TableName";
   SqlConnection con = new SqlConnection(s);
   SqlCommand cmd = new SqlCommand(sel, con);
   SqlDataAdapter sda = new SqlDataAdapter(cmd);
   DataSet ds = new DataSet();
   sda.Fill(ds);
   GridView1.DataSource = ds;
   GridView1.DataBind();
}
Et voici où j'en suis dans mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub dgvMainHiver_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvMainHiver.CellContentClick
        Dim strConnex As String
        Dim Rqt As String
        strConnex = GetConnexionString()
        Try
            Me.objConnexion = New OracleConnection(strConnex)
            Me.objConnexion.Open()
            ' Requête paramétrée    
            Rqt = "SELECT TO_CHAR(DTE_EVENT,'DD/MM/YYY'),TO_CHAR(DTE_EVENT,'HH24:MI:SS'), EVENEMENT.LIBELLE, DECISION.LIBELLE, OPERATEUR.LIBELLE FROM EVENEMENT, DECISION, OPERATEUR WHERE EVENEMENT.ID_DECISION = DECISION.ID_DECISION AND EVENEMENT.ID_OPERATEUR = OPERATEUR.ID_OPERATEUR ORDER BY TO_CHAR(DTE_EVENT,'DD/MM/YYY') ASC"
 
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
Merci de m'aider