Discussion :

[morifice]

Bonjour à tous.

J'ai (forcément) un problème EXCEL sous VBA

Quand j'utilise ces quelques lignes 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
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim ConnectionString As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
 
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
 
 
    ConnectionString = "Driver={Microsoft Excel Driver (*.xls)}; "
    ConnectionString = ConnectionString + "dbq=" & Application.ActiveWorkbook.FullName & "; "
    ConnectionString = ConnectionString + "ReadOnly=False;"
 
 
    cn.Provider = "MSDASQL"
    cn.ConnectionString = ConnectionString
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open "SELECT '" & Columns(1).Select & "' FROM [Retour UPS$]", cn, adOpenDynamic, adLockOptimistic
 
    MsgBox rs.RecordCount
 
 
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing

Je me retrouve avec un recordset ou il y a le bon nombre d'enregistrement quand je fait rs.recordcount.

Le problème est que quand je regarde les données dans le rs.fields(0).value, je me retrouve avec toutes les données identiques "vrai" au lieu d'avoir une année ("2009" au format texte).

Merci d'avance aux personnes qui se pencheront sur mon problème.

A+

[jfontaine]

Bonjour,

Dans ton code, je ne vois pas de boucle pour passer en revu chaque ligne de données de ton recordset

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
rs.Open "SELECT '" & Columns(1).Select & "' FROM [Retour UPS$]", cn, adOpenDynamic, adLockOptimistic
 
Do while not rs.EOF
 
    msgbox rs.fields(0).value
    rs.movenext
 
Loop
 
 
rs.Close

[morifice]

Bonsoir jfontaine.

Effectivement, je l'ai supprimé lors de la recherche du problème, mais toutes les valeurs dans le recordset son à "vrai".

J'ai testé de faire le recordset sur une colonne vide, est il me dit qu'il est BOF ou EOF, donc bien vide.

Apparemment, il détecte bien qu'il y a des valeurs et le nombre de lignes, mais j'ai l'impression qu'il teste si la valeur est vide ou non (comme pour un type booléen).

Merci de te pencher sur mon cas.

a+

[AlainTech]

Bonjour,

Je ne comprends pas cette syntaxe:

Code :

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

"SELECT '" & Columns(1).Select & "'

Personnellement, si je ne dois pas ramener tous les champs dans le Recordset, j'énumère les entêtes de colonnes dont j'ai besoin.
Example avec un seul champ:

Code :

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

"SELECT [Numéro] FROM [MaFeuille$]"

[Pierre Fauconnier]

Salut.

Est-tu certain(e) de l'indice de la colonne du combobox? Tu pourrais t'en assurer avec

Code :

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

rs.Fields(0).Name

[morifice]

Salut.

AlainTech: si je mets l'indice 1 pour la colonne, il me ressort 1 pour toutes les valeurs, si je mets entre crochés "[1]" j'ai droit a une message 'trop peut de paramètre, 1 attendu"

Pierre Fauconnier: en mettant en .name, j'ai la valeur suivante: Expr1000 pour toutes les valeurs.

Pour infos (au cas ou), je cherche à récupérer toutes les valeurs de la colonne sélectionnée, a savoir aussi que la cellule1 est fusionnée avec d'autres pour l'intitulé de la feuille, et dans la cellule 2 un simple texte pour dénominer la colonne.

Une autre info, si je mets "Select * FROM ...." je récupère bien les valeurs, mais je ne peux pas tout prendre car il y a 10 000 enregistrements sur 8 colonnes dans une feuille que je doit comparer à 6 000 enregistrements sur 10 colonnes d'une autre feuille.

Merci pour l'aide

a+

pour info excel 2003 pro SP2