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

[jfontaine]

Peut etre qu'en nommant ton champ avec un alias

Code :

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

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

[morifice]

Salut jfontaine

Je viens de tester, mais ca me retourne toujours "vrai".

suis maudit

a+..............;snif

[oOVaveOo]

Bonjour,

Sans garantie, tu peux essayer de convertir ton champ en date ou en string :

Code :

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

rs.Open "SELECT CDATE('" & Columns(1).Select & "') FROM [Retour UPS$]", cn, adOpenDynamic, adLockOptimistic

CSTR(tonchamp) pour conversion en string

@+

[mercatog]

Code :

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

rs.Open "SELECT '" & Columns(1).Select & "' FROM [Retour UPS$]", cn, adOpenDynamic, adLockOptimistic

Que veux tu Select From Retour UPS$??? ton Columns(1).Select!!!!!???
c'est à dire?
Columns(1).Select est une valeur ou une action?

si tu veux simplement Select TacelluleSelectionnéeDeLaColonne"A" From....
tu vois?

[oOVaveOo]

@ Mercatog,

Je pensais à un problème de conversion.

le select cdate(toto) converti un champ en date.
Je n'y crois pas vraiment

Le problème vient peut-être du pilote odbc ???
Il me semble avoir eu le même problème de format entre une base postgres et access

[mercatog]

à moi je crois que

Code :

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

Columns(1).Select

est l'action de sélectionner la première colonne
alors que dans la requête, j'attends

Code :

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

rs.Open "SELECT '" & LaValeurCherchée & "' FROM [Retour UPS$]"

[morifice]

Bonsoir à tous (et aussi à toutes peut être)

"SELECT * FROM [Retour UPS$]" me ressort bien toutes les valeurs du tableau avec le bon nombre d'enregistrements ainsi que les bonnes valeurs.

Le problème est que je cherche à récupérer uniquement les valeurs dans la colonne choisi.

Prenons le SQL simple: "SELECT [nom de la colone] FROM [la table]" pour n'avoir que les données de la colonne (plus la condition WHERE pour affiner la recherche).

J'ai tenté cette requête pour tester: ""SELECT * FROM [Retour UPS$] WHERE '" & Columns(1).Select & "' = true" résultat il me prend tout, alors que si je mets false à la place, il me spécifie que l'enregistrement est BOF ou EOF, donc bien vide.

Ma conclusion est que cette méthode teste si les cellules de la colonne sont vide ou non.

Pour ce qui est de convertir les données, cela ne change rien, ça reste toujours sur "vrai" (j'avais déjà tenté)

Bienvenu à Saint Mystère

[morifice]

Code :

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

rs.Open "SELECT '" & Columns(1).Select & "' FROM [Retour UPS$]", cn, adOpenDynamic, adLockOptimistic

Que veux tu Select From Retour UPS$??? ton Columns(1).Select!!!!!???
c'est à dire?
Columns(1).Select est une valeur ou une action?

si tu veux simplement Select TacelluleSelectionnéeDeLaColonne"A" From....
tu vois?

pour répondre à ta question, je veux toutes les valeurs de la colonne choisi (après je verrai pour la condition).

[Pierre Fauconnier]

Select attend un champ ou une liste de champs.

Code :

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

Columns(1).select

n'est pas une instruction de champ valide...
Si tu veux extraire dans un recordset UNE SEULE colonne de ta source de données, tu dois la nommer.

Par exemple, si tu veux récupérer toutes les valeurs du champ Nom d'une table Contacts, tu auras

Code :

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

select nom from contacts

(Laissons la clause where de côté pour le moment)

Si tu veux choisir la colonne, tu dois recomposer une chaine de caractères pour constituer ta requête sql

Code :

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

1
2
3
4
5
6
dim sql as string
dim NomChamp as string
 
nomchamp = "Nom"
sql= "select " & nomchamp & " from contacts"
rs.open sql

Essaie de nous donner le contexte dans lequel tu travailles, car je pense que ton problème est hyper simple, mais tu le rends très compliqué à cause d'informations parcellaires et confuses

[morifice]

STOPPPPPPPPP!!

Arrêtez de chercher, j'ai trouvé.

Comme précisé dans un des posts précédents, j'ai les premières cellules fusionnées pour l'intitulé de la feuille et c'est ca qui emmerde le monde.

Je l'ai supprimé et j'ai fait de la manière suivant "SELECT [intitulé de colonne] FROM [nom de la feuille]" et ca passe impec

Merci pour l'aide à tous les participants ce fut court mais bon

A++

NB: le Columns(1).select ne fonctionne pas, je vois pas pourquoi j'ai vu ça dans le post d'un autre site...