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
merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager