Discussion :

[pikamo]

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

[helas]

Bonjour,
essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pikamo]

salut
merci helas

j'ai trouvé une solution en gros

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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