Bonjour,
j'ai un petit soucis sur la mise a jour d'une base de données via un formulaire.
J'affiche mes données dans mon formulaire, et je fait un UPDATE lors de l'evenement clic sur le bouton vaider.
J'affiche ma requete dans une MsgBox et je voi que les champs reste tel qu'il étaient avant la modification.
Je peut mettre n'importe quel valeurs dans mes champs, la valeur prise en compte lors de ma requete sera celle écrite lors du chargement de la page donc du remplissage du formulaire

mon code :
Rempli le formulaire
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
Dim nomChoix As String
        Dim Connect As OleDbConnection = New OleDbConnection()
        ' Ecriture de la chaîne de connexion
        Dim requete As String = "Select * From [index] where index_id = " & Request.QueryString("numbio")
        Dim ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\192.168.0.100\sites\Academie\App_Data\Index_biographique.mdb"
        Connect.ConnectionString = ConnectString
        ' Ouverture de la connexion
        Connect.Open()
        Dim DAChoix As New OleDbDataAdapter(requete, Connect)
        Dim oDataSet As New DataSet("rsBiographie")
        DAChoix.Fill(oDataSet, "rsBiographie")
        ' Traitement des opérations à effectuer sur la BDD
        Nomchoix = oDataSet.Tables("rsBiographie").Rows(0)(0).ToString
        With oDataSet.Tables("rsBiographie")
            Nom.Text = .Rows(0)("Nom").ToString
            Prenom.Text = .Rows(0)("prenom").ToString
Insertion des données
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim ReqUpdate As String
        ReqUpdate = "UPDATE([index]) SET Nom = '" & Nom.Text & "', Prenom = '" & Prenom.Text & "' WHERE index_id=" & Request.QueryString("numbio")
Code : Sélectionner tout - Visualiser dans une fenêtre à part
cmd.ExecuteNonQuery()