Discussion :

[strawberrry]

Bonjour tout le monde!

Je me demande comment on pourrait sauvegarder la valeur entrée par l'utilisateur dans un textbox dans la cellule correspondante de ma base de données.

Voici 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Imports System
Imports System.Data.OleDb
Imports System.IO
 
 
Public Class Form2
    Dim choix As Integer
    Dim numdossier As String
 
    Private Sub btn_fin_Click(sender As Object, e As EventArgs) Handles btn_fin.Click
        Dim myConnection As OleDbConnection
        Dim myCommand As OleDbCommand
        Dim mySQLString As String
 
        myConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\user\Documents\processus_anomalies.accdb")
        myConnection.Open()
        MsgBox(myConnection.State)
        mySQLString = "INSERT INTO processus_anomalies(workfile_realise,numero_dossier) VALUES (M,numdossier)"
        myCommand = New OleDbCommand(mySQLString, myConnection)
        myCommand.ExecuteNonQuery()
    End Sub
 
    Private Sub TB_numdossier_TextChanged(sender As Object, e As EventArgs) Handles TB_numdossier.TextChanged
        numdossier = TB_numdossier.Text
 
    End Sub
 
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        choix = 0
    End Sub
 
 
 
 
    Private Sub RB1_1_Click(sender As Object, e As EventArgs) Handles RB1_1.Click
        choix = 1
    End Sub
 
 
    Private Sub RB1_2_CheckedChanged(sender As Object, e As EventArgs) Handles RB1_2.CheckedChanged
        choix = 2
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Btn_1.Click
        Select Case choix
            Case 1
                Dim M As String = InputBox("Date fin de tâche", "Timing")
                TB1.Text = M
                TB1.TextAlign = HorizontalAlignment.Center
                TB1.BackColor = Color.Green
            Case 2
                Dim N As String = MsgBox("Bon courage!", vbInformation + vbOKOnly, "Rappel")
        End Select
    End Sub
 
 
End Class

C'est au niveau de : mySQLString = "INSERT INTO processus_anomalies(workfile_realise,numero_dossier) VALUES (M,numdossier)"
Quand j'y mets des valeurs précises: Values('05/03/2014', '345') ça fonctionne, mais quand j'y mets les variables M, vu que par la suite j'appellerais une boucle qui reprendra d'autres valeurs et devra les noter dans la base, ça fonctionne plus!


Merci d'avance pour votre aide.
Bonne journée !

[_Ez3kiel]

Dans un premier temps, ça ne marche pas car M et NumDossier sont interprétés comme du texte, la requête n'affichera pas la valeur de la requête. Il faut concatener avec l'opérateur &.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mySQLString = "INSERT INTO processus_anomalies(workfile_realise,numero_dossier) VALUES (" & M & "," & numdossier & ")"

Et dans un second temps, je te conseille d'utiliser les requêtes paramétrées, ça évite des erreurs de typage et ça apporte plus de sécurité. (En revanche dans une requête paramétrées, les paramètres peuvent apparaitre comme du texte à l'oeil, mais par la suite la requête sera interprétée et les paramètres seront remplacés par leurs valeurs respectives)
Selon le type de base de données, le caractère qui précède le paramètre (@ dans l'exemple) peut différer, pour Access je ne sais plus si c'est @ ou : à toi de voir lequel fonctionne ... ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
            Dim myConnection As OleDbConnection
            Dim myCommand As OleDbCommand
            Dim mySQLString As String
 
            myConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\user\Documents\processus_anomalies.accdb")
            myConnection.Open()
            mySQLString = "INSERT INTO processus_anomalies(workfile_realise,numero_dossier) VALUES (@M, @numdossier)"
            '
            'Ou
            '
            mySQLString = "INSERT INTO processus_anomalies(workfile_realise,numero_dossier) VALUES (:M, :numdossier)"
 
            myCommand = New OleDbCommand(mySQLString, myConnection)
 
            With myCommand.Parameters
                .AddWithValue("@M", M)
                .AddWithValue("@numdossier", numdossier)
                '
                'Ou
                '
                .AddWithValue(":M", M)
                .AddWithValue(":numdossier", numdossier)
            End With
 
            myCommand.ExecuteNonQuery()
            myConnection.Close()

Je te conseille de regarder ce tuto et la FAQ sur les requêtes paramétrées.

Bon code


EDIT: Merci rv26t, apparement le caractère sous Access n'est ni @ ni : mais ? ^^

[rv26t]

Bonjour,

Il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.
Cela prendra mieux en compte le format date.
Pour acces le caractère est ? les paramètres doivent être ajoutés dans l'ordre d'apparition dans la requête.
[Edit] Grillé par _Ez3kiel. (Je laisse puisqu'il y a un petit complément d'info)

[_Ez3kiel]

Bonjour,

Il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.
Cela prendra mieux en compte le format date.
Pour acces le caractère est ? les paramètres doivent être ajoutés dans l'ordre d'apparition dans la requête.
[Edit] Grillé par _Ez3kiel. (Je laisse puisqu'il y a un petit complément d'info)

Merci pour la précision sur le fait que les paramètres doivent être ajoutés dans l'ordre d'apparition dans la requête, j'avais zoublié.

[Kropernic]

Merci pour la précision sur le fait que les paramètres doivent être ajoutés dans l'ordre d'apparition dans la requête, j'avais zoublié.

C'est sérieux ça ? Y a pas une correspondance qui se fait entre le nom du paramètre dans la requête et le nom du paramètre dans l'objet command ?

Encore un point en moins pour access si c'est bien le cas...

[rv26t]

C'est sérieux ça ?

bien sur,

Y a pas une correspondance qui se fait entre le nom du paramètre dans la requête et le nom du paramètre dans l'objet command ?

Non, c'est uniquement la position qui compte.
La requête doit s'écrire ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mySQLString = "INSERT INTO processus_anomalies (workfile_realise,numero_dossier) VALUES (?, ?)"

Ensuite on renseigne les paramètres.
Après tu peux mettre ?workfile et ?dossier pour que ce soit plus parlant, mais cela n'intervient pas, seul le ? compte.

[Kropernic]

Ce le fait donc un gros point négatif à ajouter à ma liste des raisons de ne pas utiliser access (et plus généralement ms office) pour développer des applications .NET.

Liste que je ressors régulièrement à mon chef ^^.