03/03/2013, 20:48
Aşağıdaki kod ile kapalı dosyadaki NO alanında bulunan A-1 ile A-30 arasındaki A-1....A-2 gibi sayıları listeliyorum.A-1 ile A-30 arasındaki NO sütununda olmayan sayıları listelemek için kodda nasıl değişiklik yapmam gerekir.
Kod:
rs.Open "Select * from [LİSTE] ORDER BY [NO] ASC ;", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
x = x + 1
ListView1.ListItems.Add , , rs(0).Value
For k = 1 To 1
If Not IsNull(rs(k).Value) Then
ListView1.ListItems(x).SubItems(k) = rs(k).Value
End If
Next k
rs.MoveNext
Loop