Problème de variable vide avec requete Insert
Bonjour,
Je fais une requete insert avec des variables à ajouter a ma table, mais le problème est qu'une de mes variables peut être vide. Comment faire ???
Voici mon code :
Code:
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
37
38
39
40
| 'requete sql (le order by, tu 'nes pas obligé, c'est juste pr trier..au cas ou..
reqSel = "SELECT * FROM " & table1 & " ORDER BY id "
'tu definis ton recordset qui va contenir le resultat de la requete
Set myrst = db.OpenRecordset(reqSel)
'si le recordset n'est pas vide
If Not myrst.EOF Then
' tant qu'il n'est pas vide
Do While Not myrst.EOF
'recuperation des valeurs pour tes 3 champs
vId = myrst.Fields("id").Value
vImage = myrst.Fields("image").Value
vParent = myrst.Fields("pk_fk_parent").Value
vSort = myrst.Fields("sort_order").Value
vDate = myrst.Fields("date_ajout").Value
vLast = myrst.Fields("dern_modif").Value
For a = 0 To i
a = a + 1
If (vParent = vPk(a)) Then
vParent = vPk(a)
End If
Next
'requete d'insertion (j'en ecris une bidon, elle ne correspond pas forcement a ce que tu veux faire)
reqIns = "INSERT INTO " & table2 & " (id,image,parent_id,sort_order,date_ajout,last_modif) VALUES (" & vId & " , '0' ," & vParent & " , 0 , 0 , 0)"
MsgBox (reqIns)
'tu envoies l'execution de la requete insert
db.Execute reqIns, dbFailOnError
'tu passes a l'enregistrement suivant
myrst.MoveNext
Loop
End If |
C'est vParent, et ça me donne la requete suivante :
Code:
Insert into table (id,toto,titi,etc) values (1,'0',,0,0,0)
et cela me fait une erreur. Comment faire ??
Merci de votre aide
