Ce pilote ODCB ne prend pas en charge les propriétés demandés

[carlos]

Bonjour

J'ai ce message d'erreur sur ce qui suit en derniere ligne!

Set Cn = New ADODB.Connection
Cn.Open _
"Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & Chemin & "; ReadOnly=False;"
Cible = "SELECT DISTINCT DIV. FROM " & laBase & ";"

Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic

Merci

 

[carlos]

Re : Ce pilote ODCB ne prend pas en charge les propriétés demandés

Re

j'aimerai au travers d'un combobox qui reprend l'en tete de 3 champs : SEXE , NELE , DIV
pouvoir moduler cettte requete :

Cible = "SELECT DISTINCT NOM, PRENOM , DIV FROM [BaseEleve$] WHERE DIV = " & valrecherche & ";"

en

Cible = "SELECT DISTINCT NOM, PRENOM , " & ComboBox3.Value & " FROM [BaseEleve$] WHERE DIV = " & valrecherche & ";"

mais

" & ComboBox3.Value & "

n'est pas bon

Carlos

 

[Guest]

Re : Ce pilote ODCB ne prend pas en charge les propriétés demandés

Carlos,

Met comboBox3.Text (ou value) dans une variable string

Et fais un test pour voir si elle n'est pas vide et ou s'il n' a pas d'espace inoportunt ou autre avant de concatener dans la requête.

A bientôt

 

[carlos]

Re : Ce pilote ODCB ne prend pas en charge les propriétés demandés

Bravo Hasco


Ca marche tres bien.Cette partie de mon projet est aboutie

Dim Champsup As String
Champsup = USFAppelClasse.ComboBox3.Text
Cible = "SELECT DISTINCT NOM, PRENOM , " & Champsup & " FROM [BaseEleve$] WHERE DIV = " & valrecherche & ";"

Ce soir , c'est une soirée ensoleillée.

Merci à Hasco et MichelXld pour vos aides précieuses

Carlos