Insertion de données dans un DGV
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:
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:
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 :)
