[Résolu] " update or insert " selon une condition

Marsh Posté le 18-06-2011 à 21:47:39

salut,

je cherche à faire " update or insert " selon une condition.
cette condition si le champs nom de la base de données est par exemple "hardware". c'est simple et ce code marche bien.
mais en réalité , cette condition dépend de contenu de champs c ' est à dire si une valeur est déjà existe dans le colonne nom ( on connait pas cette valeur ) donc on fais un seulement "update "si cette valeur n’existe pas dans le colonne on fais un "insert into "

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

Code :

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 = "hardware" ) 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

Message édité par pikamo le 19-06-2011 à 12:51:42

Marsh Posté le 18-06-2011 à 21:47:39

Marsh Posté le 19-06-2011 à 12:51:05

salut

problème résolu

en gors :

Code :

'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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *