Modification d'un Recordset

**Tintou** · 10/05/2007, 17h18

Bonjour,

J'aurais voulu savoir si on pouvait modifier un recordset, voici un exemple de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If i = 2 Then
subres = "SELECT a, b, c FROM Table1"
Set rs = db.OpenRecordset(subres, DB_OPEN_SNAPSHOT)
Else
If i = 5
subres = "SELECT a ,b, c, d, e, f FROM Table2"
Set rs = db.OpenRecordset(subres, DB_OPEN_SNAPSHOT)
Else
...
End If
...
End If

Quand j'écris quelque chose comme cela, j'ai une erreur m'indiquant que j'ai
trop peu de paramètres en me surlignant, ce qui est souligné.

Merci d'avance.

**helas** · 10/05/2007, 17h22

les 6 champs sont-ils presents dans table2 ?

**Tintou** · 10/05/2007, 17h23

Non ce sont des tables complétement différentes avec aucune donnée commune

**random** · 10/05/2007, 17h24

voir ;

**Tintou** · 10/05/2007, 17h25

Qu'entends tu par voir ; ?

**Tintou** · 10/05/2007, 17h32

J'avais oublié de dire que j'ai aussi essayé de rajouté ce qui est en rouge, mais ça me fait la même erreur.

Envoyé par Tintou

Bonjour,

J'aurais voulu savoir si on pouvait modifier un recordset, voici un exemple de 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
If i = 2 Then
subres = "SELECT a, b, c FROM Table1"
Set rs = db.OpenRecordset(subres, DB_OPEN_SNAPSHOT)
Else
If i = 5
subres.close
Set subres = Nothingsubres = "SELECT a ,b, c, d, e, f FROM Table2"
Set rs = db.OpenRecordset(subres, DB_OPEN_SNAPSHOT)
Else
...
End If
...
End If

Quand j'écris quelque chose comme cela, j'ai une erreur m'indiquant que j'ai
trop peu de paramètres en me surlignant, ce qui est souligné.

Merci d'avance.

J'ai l'impression qu'il faut redéfinir un nouveau nom pour chaque recordset non ?

**helas** · 10/05/2007, 17h46

et en créant une requête de code SQL "SELECT a ,b, c, d, e, f FROM Table2" que donne

Code :

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

1
2
 
Set rs = db.OpenRecordset(NomRequete)

**random** · 10/05/2007, 17h51

j'entends qu'un sql valide se termine par ;

**pc75** · 11/05/2007, 08h00

Bonjour,

Pourquoi n'organises-tu pas ton code comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
If i = 2 Then
subres = "SELECT a, b, c FROM Table1"
Else
If i = 5
subres = "SELECT a ,b, c, d, e, f FROM Table2"
Else
...
End If
...
End If
 
Set rs = db.OpenRecordset(subres, DB_OPEN_SNAPSHOT)

**Tintou** · 11/05/2007, 08h09

Parce que les "if" sont inclus dans une boucle, en fait je fais défiler des questions d'indices i, et pour certaines je dois récupérer des valeurs pour les publiposter.