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
Insertion des données
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
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()
Partager