[VB.NET] UPDATE sur un formulaire
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:
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:
1
2
| Dim ReqUpdate As String
ReqUpdate = "UPDATE([index]) SET Nom = '" & Nom.Text & "', Prenom = '" & Prenom.Text & "' WHERE index_id=" & Request.QueryString("numbio") |
Code:
cmd.ExecuteNonQuery()
