pikamo | salut
j'eesaye ce code mais il ne marche pas , je pense eurreur dans le syntaxe de "select" car meme code marche mais avec une seul condition (sans le and )
Code :
- Set rs.ActiveConnection = con
- rs.Open " Select * from acteur where ((nom ='" & boxnom.Value & "') and (prenom ='" & boxprenom.Value & "')) "
- 'Traitement
- If rs.EOF Then '(si pas d'enregistrements)
- 'insertion
- sql = " insert into acteur (nom , prenom,salaire ) Values ('" & boxnom.Value & "','" & boxprenom.Value & "','" & boxprenom.Value & "')"
- con.Execute sql
- Else '(au moins un enregistrement)
- sql2 = " UPDATE acteur SET salaire ='" & boxsalaire.Value & "' where ((nom ='" & boxnom.Value & "') and (prenom ='" & boxprenom.Value & "')) "
- con.Execute sql2
- End If
- rs.Close
- Set rs = Nothing
- con.Close
- Set con = Nothing
|
merci d'avance |