if (condition ) then " update" else " insert "

salut

je cherche à faire " update or insert " selon une condition.
cette condition est si le champs "nom" de la base de données acces est
par exemple "developpez". c'est simple et ce code marche bien.

mais en réalité , cette condition dépend de contenu de champs :c' est à dire on parcourcu le colonne si cette valeur existe déjà donc on fais seulement "update " si cette valeur n’existe pas dans le colonne c' é a dire un nouveau user on fais un "insert into "

est ce que je fais select avant la condition ? et comment mettre le résultat dans l’instruction (if )

voila le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim con As New ADODB.Connection con.ConnectionString = "Dbq= C:\Documents and Settings\Bureau\aplication_2011\essaye\base.accdb;" & "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" con.Open   If (TextBox1.Value = "developpez" ) Then con.Execute ("update user set prenom ='" & TextBox2.Text & "' where nom = '" & TextBox1.Text & "' " ) Else: con.Execute ("insert into user (nom, prenom ) values ( '" & TextBox1.Text & "','" & TextBox2.Text & "') " ) con.Close Set con = Nothing End If End Sub

---

merci d'avance

Bonjour,
essayer

Code:

---

1 2	"INSERT INTO user ( nom, prenom) SELECT """ & TextBox1.Text & """ , """ & TextBox1.Text & """;"

---

préférer des double guillemets pour l'apostrophe car sinon D'Alembert ne passe pas

salut
merci helas

j'ai trouvé une solution en gros

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

'Vérif si enregistrement existant Set rs.ActiveConnection = con rs.Open " Select * from table where champ = valeur ;"   'Traitement If rs.EOF Then '(si pas d'enregistrements)   'insertion   sql = " insert into table ....... con.Execute sql   Else '(au moins un enregistrement)   sql2 = " UPDATE table SET ........ con.Execute sql2   End If   rs.Close Set rs = Nothing con.Close Set con = Nothing

---