Merhaba,
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
kaynak = ThisWorkbook.Path & "\MT DATA SISTEM.xlsb"
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & kaynak & ";extended properties=""excel 12.0;hdr=yes"""
sorgu = "Select * FROM [DATA$]"
rs.Open sorgu, conn, 3, 1
rs.movefirst
lstEkran1.Column = rs.getrows(rs.RecordCount)
lstEkran1.ColumnCount = 7
lstEkran1.ColumnWidths = "50;40;200;300;0;0;0"
rs.Close
Yukarıdaki kodlar ile DATA sayfasındaki bilgileri listboxa aktarıyorum. Buraya kadar sorun yok. Ama listboxa girdiğimde 5 satır boş olarak aktif olarak gözüküyor. Çıft tıklama yaptığımda bu boş satırlar sorun olur. SQl ile ver çekerken boş satırları nasıl atlatabilirim?
Yardımlarınız için şimdiden teşekkür ederim.
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
kaynak = ThisWorkbook.Path & "\MT DATA SISTEM.xlsb"
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & kaynak & ";extended properties=""excel 12.0;hdr=yes"""
sorgu = "Select * FROM [DATA$]"
rs.Open sorgu, conn, 3, 1
rs.movefirst
lstEkran1.Column = rs.getrows(rs.RecordCount)
lstEkran1.ColumnCount = 7
lstEkran1.ColumnWidths = "50;40;200;300;0;0;0"
rs.Close
Yukarıdaki kodlar ile DATA sayfasındaki bilgileri listboxa aktarıyorum. Buraya kadar sorun yok. Ama listboxa girdiğimde 5 satır boş olarak aktif olarak gözüküyor. Çıft tıklama yaptığımda bu boş satırlar sorun olur. SQl ile ver çekerken boş satırları nasıl atlatabilirim?
Yardımlarınız için şimdiden teşekkür ederim.