Merhabalar,
Kapalı bir dosya var, buradan verileri çekiyorum ama order by tümcesini ekleyince verilerin bir kısmını çekemiyor. kod şöyle:
Const DBpath As String = "C:\Genel 1.3.xls"
Const ShName As String = "[GENEL$]"
Const Rngs As String = "(ArizaNO, Servis, Ariza, GelisTarihi, BitisTarihi, SiraNO, FisNO, KullanilanMalzeme, Teknisyen, Teknisyen2, imza, Notlar, Birim)"
Dim MyDB As DAO.Database
Dim RS As DAO.Recordset
Dim RScount As Long
On Error GoTo ErrHandler:
Set MyDB = OpenDatabase(DBpath, False, False, "Excel 8.0")
Set RS = MyDB.OpenRecordset("select ArizaNO, Servis, Ariza, Gelistarihi, BitisTarihi, Birim from [GENEL$] order by gelistarihi desc")
With RS
.MoveLast
RScount = .RecordCount
.MoveFirst
End With
yeni_satir = RScount + 2
ListBox1.ColumnCount = RS.Fields.Count + 1
ListBox1.Column = RS.GetRows(RScount)
ErrHandler:
If RScount < 1 Then Exit Sub
RS.Close
MyDB.Close
Set RS = Nothing
Set MyDB = Nothing
ListBox1.ColumnWidths = "40;70;400;70;70"
bu koddaki "order by gelistarihi desc" kısmı olursa yaklaşık 150 kayıt geliyor, bu kısmı kaldırınca 600 falan. "order by arizano" yazarsam sıfır kayıt?? çıkamadım işin içinden.
Teşekkürler şimdiden
Kapalı bir dosya var, buradan verileri çekiyorum ama order by tümcesini ekleyince verilerin bir kısmını çekemiyor. kod şöyle:
Const DBpath As String = "C:\Genel 1.3.xls"
Const ShName As String = "[GENEL$]"
Const Rngs As String = "(ArizaNO, Servis, Ariza, GelisTarihi, BitisTarihi, SiraNO, FisNO, KullanilanMalzeme, Teknisyen, Teknisyen2, imza, Notlar, Birim)"
Dim MyDB As DAO.Database
Dim RS As DAO.Recordset
Dim RScount As Long
On Error GoTo ErrHandler:
Set MyDB = OpenDatabase(DBpath, False, False, "Excel 8.0")
Set RS = MyDB.OpenRecordset("select ArizaNO, Servis, Ariza, Gelistarihi, BitisTarihi, Birim from [GENEL$] order by gelistarihi desc")
With RS
.MoveLast
RScount = .RecordCount
.MoveFirst
End With
yeni_satir = RScount + 2
ListBox1.ColumnCount = RS.Fields.Count + 1
ListBox1.Column = RS.GetRows(RScount)
ErrHandler:
If RScount < 1 Then Exit Sub
RS.Close
MyDB.Close
Set RS = Nothing
Set MyDB = Nothing
ListBox1.ColumnWidths = "40;70;400;70;70"
bu koddaki "order by gelistarihi desc" kısmı olursa yaklaşık 150 kayıt geliyor, bu kısmı kaldırınca 600 falan. "order by arizano" yazarsam sıfır kayıt?? çıkamadım işin içinden.
Teşekkürler şimdiden