MODÈLE : classement séquence erreur ouverture ADODB Recordset la première fois avec un fichier XLS Excel

Traductions disponibles Traductions disponibles
Numéro d'article: 246167 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Symptômes

L'ouverture d'une feuille de calcul Microsoft Excel à partir de Visual Basic dans Visual Studio 6.0 Service Pack 3 (ou version ultérieure) environnement de développement intégré (IDE) avec le pilote Excel/ODBC/ISAM génère l'erreur d'exécution suivante :
Erreur d'exécution '2147467259 (80004005)': [Microsoft] [Pilote ODBC Excel] sélectionné interclassement ordre non pris en charge par le système d'exploitation
Ce problème se produit chaque fois que vous exécutez le code dans l'IDE de Visual Basic.

Remarque Cette erreur ne se produit pas si tous les champs sont sélectionnés dans l'instruction SQL, par exemple :
SELECT * FROM ...
				
aussi, ce problème ne se produit pas dans un EXE compilé.

Cause

C'est un problème dans l'IDE de Visual Basic commençant par le service pack 3.

Plus d'informations

Procédure pour reproduire le problème

  1. Créez une feuille de calcul dans Microsoft Excel 97 ou Microsoft Excel 2000 et placez les valeurs suivantes dans les champs prescribe :
    • A1 = F1
    • B1 = F2
    • C1 = F3

  2. Enregistrez la feuille de calcul et créer un DSN pointant vers lui.
  3. Démarrez Visual Basic 6.0 à partir de Visual Studio 6.0 Service Pack 3 ou version ultérieure.
  4. Créer un nouveau EXE standard et définir une référence à Microsoft Active Data Objects. Collez le code suivant dans le formulaire :
    Public Sub Form_Load()
    
        Dim constring As String
        Dim Connection As New ADODB.Connection
        Dim cmd As New ADODB.Command
        Dim rs As New ADODB.Recordset
    
    '   define a DSN IMPORT-XLS, using the Excel ODBC driver, and point it to the xls file
         constring = "Provider=MSDASQL;DSN=IMPORT-XLS"
         
         Connection.Open constring
         Set cmd.ActiveConnection = Connection
         cmd.CommandType = adCmdText
         
    '   The following .CommandText causes the error, but only the first time it is run within the ide.
       cmd.CommandText = "Select F1, F2 from ""Sheet1$"""
    '   The following .CommandText will not cause the error.
    '    cmd.CommandText = "Select * from ""Sheet1$"""
    
         rs.CursorLocation = adUseClient
         rs.CursorType = adOpenStatic
         rs.LockType = adLockReadOnly
         rs.Open cmd
         While Not rs.EOF
            MsgBox rs.Fields(0)
            rs.MoveNext
         Wend
    
    End Sub
    					
  5. Apportez les modifications nécessaires à la ConnectionString.
  6. Exécutez le formulaire.
  7. La première exécution du formulaire, le message d'erreur s'affiche ; il ne pas apparaît dans les exécutions suivantes.

Propriétés

Numéro d'article: 246167 - Dernière mise à jour: jeudi 24 juin 2004 - Version: 3.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual Basic 6.0 Édition initiation
  • Microsoft Visual Basic 6.0 Édition professionnelle
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Édition Entreprise Service Pack 3
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 4
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 5
  • Microsoft ActiveX Data Objects 2.1 Service Pack 2
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft ActiveX Data Objects 2.6
  • Microsoft ActiveX Data Objects 2.7
Mots-clés : 
kbmt kbdatabase kbiisam kbprb KB246167 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 246167
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com