Bonjour,

Globale.Initialiser()

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 'CREATION DE LA REQUETTE 3
        Dim SQLAjouterOEU As String
        SQLAjouterOEU = "INSERT INTO oeuvre (oeu_nom,oeu_date,oeu_type,oeu_support,oeu_nature,oeu_photo) VALUES ('" & TxtBoxNomOeu.Text & "','" & TxtDateOeuvre.Text & "','" & CboBoxTYpe.Text & "','" & CboBoxSupport.Text & "','" & CboBoxNature.Text & "','" & PBoxOeuvre1.ImageLocation & "')"
 
        'LA COMMANDE
 
        Dim maCommande2 As OleDbCommand
        maCommande2 = New OleDbCommand()
        maCommande2.Connection = Globale.connexion
        maCommande2.CommandType = CommandType.Text
        maCommande2.CommandText = SQLAjouterOEU
 
        'EXECUTION
        maCommande2.ExecuteNonQuery()
Merci de votre aide