SORUN: Sequence hata açılıyor ADODB Recordset'i ilk kez bir Excel XLS karşı Collating...

Makale çevirileri Makale çevirileri
Makale numarası: 246167 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Belirtiler

Excel'in/ODBC/ıSAM sürücüsü bir Microsoft Excel elektronik tablolarından Visual Basic, Visual Studio 6.0 Service Pack 3 (veya üstü) tümleşik geliştirme ortamı (IDE) içinde açılıyor, aşağıdaki çalışma zamanı hatası üretir:
Zamanı hatası '(80004005)-2147467259' çalıştırın: [Microsoft] [ODBC Excel sürücüsü] seçili harmanlama sırasını işletim sistemi tarafından desteklenmiyor.
Bu sorun, Visual Basic IDE içinde kod çalışan her zaman oluşur.

Not Tüm alanları SQL deyimini, örneğin seçilmişse, bu hata oluşmaz:
SELECT * FROM ...
				
derlenmiş bir EXE içinde Ayrıca, bu sorun oluşmaz.

Neden

Bu hizmet paketi 3'ile başlayan Visual Basic ıDE'NIN içinden bir sorundur.

Daha fazla bilgi

Davranışı yeniden oluşturma adımları

  1. Microsoft Excel 97 veya Microsoft Excel 2000 elektronik tablo oluşturun ve aşağıdaki değerleri prescribe alanları yerleştirin:
    • A1 F1 =
    • B1 F2 =
    • C1 F3 =

  2. Elektronik tabloyu kaydedin ve işaret bir DSN oluşturma.
  3. Visual Basic 6. 0'a Visual Studio 6.0 Service Pack 3 veya sonraki sürümü) başlatın.
  4. Yeni bir standart exe DOSYASı oluşturun ve Microsoft Active Data Objects için bir başvuru oluşturun. Aşağıdaki kodu formun yapıştırın:
    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. Gerekli değişiklikleri için ConnectionString yapın.
  6. Formu çalıştırın.
  7. Formu ilk çalıştırdığında, hata görünür; izleyen metinler görünmez.

Özellikler

Makale numarası: 246167 - Last Review: 24 Haziran 2004 Perşembe - Gözden geçirme: 3.1
Bu makaledeki bilginin uygulandığı durum:
  • 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
Anahtar Kelimeler: 
kbmt kbdatabase kbiisam kbprb KB246167 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:246167

Geri Bildirim Ver

 

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