SORUN: DAO OpenRecordset kullanarak BOþ olarak döndürülüyor Excel deðerleri

1. Excel'deki verileri metin olarak girdiðinizden emin olun. Yalnýzca Excel sütun metne biçimlendirme bunu deðil. Excel sütun biçimlendirmeden sonra varolan deðerleri yeniden girmeniz gerekir. Excel'de, F5, seçili hücredeki varolan deðerleri yeniden girmek için kullanabilirsiniz.
2. Seçenek IMEX ekleyebileceðiniz = 1; Excel için OpenDatabase yöntemine dizede baðlanma. Örneðin:

         Set Db = OpenDatabase("C:\Temp\Book1.xls", _
               False, True, "Excel 8.0; HDR=NO; IMEX=1;")
   
   						

   Not: ayar IMEX = 1 alma modunu kullanmak için sürücü bildirir. Bu durumda, kayýt defterinin ýmportmixedtypes ayarlama = metin fark. Bu, metne dönüþtürülecek, karýþýk veri zorlar. Bunun güvenilir bir çözüm için ayrýca TypeGuessRows, kayýt defteri ayarýný deðiþtirmeniz gerekebilir = 8. ISAM sürücüsü varsayýlan olarak ilk sekiz satýrlarý arar ve bu örnekleme gelen veri türü belirler. Bu sekiz satýr örnekleme IMEX ayarlama sonra tüm sayýsal ise = 1 varsayýlan veri türü metne dönüþtürecek olan deðil; sayýsal kalýr.
   
   Dikkatli olmanýz gerekir, IMEX = 1 indiscriminately kullanýlmayacak. Bu Al, böylece sonuçlarý yapmak çalýþýrsanýz, öngörülmeyen modu, ekler veya bu modda verileri güncelleþtirir.
   
   Olasý IMEX ayarlarý:

           0 is Export mode
           1 is Import mode
           2 is Linked mode (full update capabilities)
   
   						

   kayýt defteri anahtarýnýn yukarýda açýklanan ayarlar bulunur:
   
   HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\Excel
   
   Metni sütun baþlýklarý sayýsal verileri içeren Excel elektronik tablosu varsa, bilgi için bu makalenin <a1>Baþvurular</a1> bölümüne bakýn.

Üste

Davranýþý yeniden oluþturma adýmlarý

1. Microsoft DAO 3.5 nesne kitaplýðýna bir baþvuru yapýn. Visual Basic 6.0 içinde bu Microsoft DAO 3.51 Object Library olacaktýr.
2. Bir KomutDüðmesi, yeni forma ekleyin.
3. Aþaðýdaki kodu formun genel Declarations bölümünde yerleþtirin:

         Dim Db As Database
         Dim Rs As Recordset
   
         Private Sub Command1_Click()
             Set Rs = Db.OpenRecordset("Sheet1$")
             'This will print the spreadsheet Text values as Nulls.
   
             Do While Not Rs.EOF
                 Debug.Print Rs(0)
                 Rs.MoveNext
             Loop
   
         End Sub
   
         Private Sub Form_Load()
             'HDR refers to the Excel header row.
         Set Db = OpenDatabase("C:\Temp\Book1.xls", _
                  False, True, "Excel 8.0; HDR=NO;")
   
         End Sub
   
         Private Sub Form_Unload(Cancel As Integer)
             Db.Close
             Set Db = Nothing
   
         End Sub
   
   						

   F5 tuþuna basarak projeyi çalýþtýrýn ve hata ayýklama penceresinde metin deðerleri boþ yazdýrýlýr unutmayýn. Excel elektronik tablodaki deðerlerin büyük metin varsa, daha sonra yukarýdaki kod sonuç geri alýnmasý. Diðer bir deyiþle, sayýsal deðerler olarak Boþlara döndürülmesini.

Üste