PRB: Kompletování sekvence error opening ADODB Recordset první čas před Excel XLS

Překlady článku Překlady článku
ID článku: 246167 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Příznaky

Otevření tabulku Microsoft Excel z v rámci jazyka Visual Studio 6.0 Service Pack 3 (nebo novější) integrované vývojové prostředí (IDE) s ovladačem Excel, ODBC a ISAM generuje následující chyba spuštění:
Spustit chyba čas '-2147467259 (80004005)': [Microsoft] [ODBC Excel Driver] vybraný operační systém nepodporuje pořadí řazení
K tomuto problému dochází při každém spuštění kódu v rámci jazyka IDE.

Poznámka Tato chyba nenastane, pokud všechna pole jsou vybrány například v příkazu SQL:
SELECT * FROM ...
				
také, se tento problém nenastává v rámci kompilované EXE.

Příčina

Toto je problém v rámci jazyka IDE počínaje aktualizací service pack 3.

Další informace

Kroky pro reprodukci chování

  1. Vytvoření tabulky v aplikaci Microsoft Excel 97 nebo Microsoft Excel 2000 a umístěte následující hodnoty v polích prescribe:
    • A1 = F1
    • B1 = F2
    • C1 = F3

  2. Uložit tabulku a vytvořit DSN směřující k němu.
  3. Spustit Visual Basic 6.0 z Visual Studio 6.0 Service Pack 3 nebo novější.
  4. Vytvořit nové standardní EXE a nastavte odkaz Microsoft Active Data Objects. Do formuláře vložte následující kód:
    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. Proveďte potřebné změny vlastnosti ConnectionString.
  6. Spuštění formuláře.
  7. Při prvním spuštění formuláře se zobrazí chyba; v následných spustí nezobrazí.

Vlastnosti

ID článku: 246167 - Poslední aktualizace: 24. června 2004 - Revize: 3.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Enterprise Edition 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
Klíčová slova: 
kbmt kbdatabase kbiisam kbprb KB246167 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:246167

Dejte nám zpětnou vazbu

 

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