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 : 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
merci d'avance