RS.GetRows bazı verilerin boş gelmesi

[tamer42]

Ekli dosyada sql sorgusuyla Listbox' a verileri alırken;
Bazı alanlarda veriler olmasına karşın Listbox' a boş gelmektedir.
Bunun sebebi ne olabilir?

Sub araclistesi()

Dim RS As New Recordset

RS.Open "select * from [Sayfa1$]", _
baglan, adOpenKeyset, adLockPessimistic

    With UserForm1.ListBox1
            .Clear
            .ColumnCount = 8
            .ColumnWidths = "30;40;50"
            .Column = RS.GetRows
    
    End With

RS.Close

End Sub

teşekkürler, iyi akşamalar.

 

[askm]

Aşağıdaki şekilde deneyin.

Sub araclistesi()

Dim RS As New Recordset
For I = 2 To Range("A65536").End(3).Row
    Cells(I, 1) = Cells(I, 1) * 1
Next I


RS.Open "select * from [Sayfa1$]", _
baglan, adOpenKeyset, adLockPessimistic

    With UserForm1.ListBox1
            .Clear
            .ColumnCount = 8
            .ColumnWidths = "30;40;50"
            .Column = RS.GetRows
    
    End With

RS.Close

For I = 0 To UserForm1.ListBox1.ListCount - 1
       UserForm1.ListBox1.List(I, 6) = Format(DateValue(UserForm1.ListBox1.List(I, 6)), "dd/mm/yyyy")
Next I

End Sub

 

[Erdem Akdemir]

Kod'da hata yok. İlgili alanlar sayı olarak başlamış ama gelmeyen veriler metin olarak görünüyor.

 

[Korhan Ayhan]

Ado'nun kuralları... Dikkat etmek gerekiyor.

 

[tamer42]

Kod'da hata yok. İlgili alanlar sayı olarak başlamış ama gelmeyen veriler metin olarak görünüyor.

Erdem Hocam verilermetin olarak görünüyor demişsinz, Format olarak, Genel ve Tarih

 

[YUSUF44]

Biçim olarak sayı olsalar da içindeki veriler metin olarak girilmiş. Resimde sarı hücreler o hücrelerin ESAYIYSA formülündeki karşılığıdır. Ayrıca sıra no sütunundaki yeşil üçgenlere de dikkatinizi çekerim:

 

[tamer42]

Biçim olarak sayı olsalar da içindeki veriler metin olarak girilmiş. Resimde sarı hücreler o hücrelerin ESAYIYSA formülündeki karşılığıdır. Ayrıca sıra no sütunundaki yeşil üçgenlere de dikkatinizi çekerim:

Ekli dosyayı görüntüle 226722

Yusuf Hocam kayıt girerken bu durumu nasıl çözebiliriz?

Sayfa1.cells(18,1)=45
Sayfa1.cells(19,1)=46

 

[YUSUF44]

Kod bu şekildeyse sıkıntı olmaması gerekir.

 

[tamer42]

Kod bu şekildeyse sıkıntı olmaması gerekir.

Yusuf Hocam şimdi kontrol ettim, kod aşağıdaki şekilde;
textBox' dan yazdırıyoruz.

 sht.Cells(rw, 1) = CLng(Me.TextBox2)

 

[YUSUF44]

CLNG muhtemelen uzun tamsayıya çevirme kodudur. Sayıya çevirdiği için sıkıntı olmaması gerekir.

Eğer dosyanızdaki sıra numaraları satır numarasından bir eksik ise (örnek dosyanızda öyle değil) bu kod yerine

sht.Cells(rw, 1) = rw-1

kullanabilirsiniz.

 

[Korhan Ayhan]

Demek ki bir ara o kısımda sorun olmuş.

O satırları elle sayıya çevirip yeni kayıt yapmayı deneyin. Eğer sorun devam ederse örnek dosya paylaşınız.