Requete update sous access avec vb.net
Fermé
imaniste
Messages postés
1
Date d'inscription
jeudi 7 août 2008
Statut
Membre
Dernière intervention
7 août 2008
-
7 août 2008 à 23:46
imaniste - 8 août 2008 à 15:41
imaniste - 8 août 2008 à 15:41
A voir également:
- Requete update sous access avec vb.net
- Windows update bloqué - Guide
- Access denied - Forum Bbox Bouygues
- Requete http - Guide
- Asus live update ✓ - Forum Logiciels
- Hp bios update bloqué ✓ - Forum BIOS
2 réponses
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
8 août 2008 à 09:12
8 août 2008 à 09:12
Bonjour,
peux tu noux montrer ton code pour qu'on t'apporte de l'aide.
Parce que là comment veux tu qu'on trouve l'erreur?
peux tu noux montrer ton code pour qu'on t'apporte de l'aide.
Parce que là comment veux tu qu'on trouve l'erreur?
voila une partie du code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
MsgBox(" vous devez remplir tous les champs", MsgBoxStyle.Critical)
Else
Try
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from article "
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
cmd.CommandText = "INSERT INTO sortie VALUES ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "')"
dr.Close()
MsgBox("ajout réussi", MsgBoxStyle.Information)
dr = cmd.ExecuteReader
dr.Read()
cmd.CommandText = "update stock set derniere_sortie=('" + TextBox2.Text + "') where numpiece=('" + TextBox1.Text + "')"
dr.Close()
cmd.ExecuteNonQuery()
MsgBox("ajout réussi", MsgBoxStyle.Information)
la mise a jour ne s'effectue pa et il affiche le msg d'erreur que j'ai deja signaler dans le premier msg
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
MsgBox(" vous devez remplir tous les champs", MsgBoxStyle.Critical)
Else
Try
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from article "
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
cmd.CommandText = "INSERT INTO sortie VALUES ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "')"
dr.Close()
MsgBox("ajout réussi", MsgBoxStyle.Information)
dr = cmd.ExecuteReader
dr.Read()
cmd.CommandText = "update stock set derniere_sortie=('" + TextBox2.Text + "') where numpiece=('" + TextBox1.Text + "')"
dr.Close()
cmd.ExecuteNonQuery()
MsgBox("ajout réussi", MsgBoxStyle.Information)
la mise a jour ne s'effectue pa et il affiche le msg d'erreur que j'ai deja signaler dans le premier msg