Discussion :

[pikamo]

salut
je travail sur un base de données acces.
le table contient deux champs de dates , un se fait par une simple insert into ( ca marche bien ) l'autre se fait par un update.
ce dernière ne marche pas.
une condition ( la valeur de la cobox 5 oui or non ) :
si oui je test s'il ya un enregstrmant avant ou non et je fais l'update
si non donc un simple insert into ( marche tres bien )
voila 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
25
26
27
28
29
30
31
32
33
34
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim sql2 As String
 
 
nom = ComboBox1.Value
prenom = ComboBox2.Value
sal = ComboBox3.Value
gar = ComboBox4.Value
.....
 
'conection  a la bse de données 
If ComboBox5.Value = "Oui" Then
 
'Vérif si enregistrement existant
Set rs.ActiveConnection = con
rs.Open " Select * from acteurcorr where  Nom ='" & nom & "' and  Prenom ='" & prenom & "'and datebut = '" & date1 & "'" ' c'est dtpicker
 
'Traitement
If rs.EOF Then '(si pas d'enregistrements)
 
'insertion
sql = " insert into acteurcorr (Nom,Prenom,Salaire,grade,datedebut,datefinale)  Values ('" & nom & "' ,'" & prenom & "','" & sal & "', '" & gar & "','" & datede & "','" & azer & "' )"
con.Execute sql
 
Else '(au moins un enregistrement)
 
sql2 = " update  acteurcorr set   datefinale  =  '" & datede & "', grade = '" & gar & "'  where Nom ='" & nom & "' and  Prenom ='" & prenom & "' and  datefinale Is Null  "
 
con.Execute sql2
rs.Close
Set rs = Nothing
End If

message erreur est :

type de type de données incompatible dans l'expression du critère

merci d'avance

[jfontaine]

Bonjour

Quel est la valeur de sql2 quand ca plante.

[SfJ5Rpw8]

Bonsoir,

ce test :

Code :

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

...and  datefinale Is Null

est censé retourner quoi ?

[pikamo]

salut
merci a tous

mon but a faire :
exemple :
j'ai ces données a mettre dans le base de données ( a travers l'userform)
nom :Simon
prenom : Rosalie
salaire :100
date de début : 05/07.2011
apres je récupéré l’enregistrement pour le terminer ( c'est à dire select fromwhere et upate)

si j'ai saisie Simon et Rosalie et Le date début 05/07/2011 alors automatique le programme sache c'est un enregistrement ancien donc update
et je contienu a saise les autres champs de réquette upate ..

le problème ici select form where date de début = date saisie !!!!!

[pikamo]

j'ai essaye de trouve une solution, j'ai autre problème dans un autre ligne
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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim sql2 As String
 
 
nom = ComboBox1.Value
prenom = ComboBox2.Value
sal = ComboBox3.Value
gar = ComboBox4.Value
.....
 
'conection  a la bse de données 
If ComboBox5.Value = "Oui" Then
 
'Vérif si enregistrement existant
Set rs.ActiveConnection = con
rs.Open " Select * from acteurcorr where  Nom ='" & nom & "' and  Prenom ='" & prenom & "'and datebut = # " & date1 & "# " ' c'est dtpicker c'est bon cette linge marche bien
' mais if ne marche plus la 1ére instruction s' exécute  je met le bloc instrion 'en commentaire l'update marche si j’enlève le commentaire l'insert marche et 'l'update non 
 
'Traitement
If rs.EOF Then '(si pas d'enregistrements)
 
'insertion
sql = " insert into acteurcorr (Nom,Prenom,Salaire,grade,datedebut,datefinale)  Values ('" & nom & "' ,'" & prenom & "','" & sal & "', '" & gar & "','" & datede & "','" & azer & "' )"
con.Execute sql
 
Else '(au moins un enregistrement)
 
sql2 = " update  acteurcorr set   datefinale  =  '" & datede & "', grade = '" & gar & "'  where Nom ='" & nom & "' and  Prenom ='" & prenom & "' and  datefinale Is Null  "
 
con.Execute sql2
rs.Close
Set rs = Nothing
End If

[jfontaine]

j'ai essaye de trouve une solution, j'ai autre problème dans un autre ligne

c'est quoi le problème ?