ListView()

@Cael · Регистрация: 17.01.2017

Author24 — интернет-сервис помощи студентам

Добрый день извиняюсь за глупый вопрос, читать тонну материала не хочется, так как задача разовая и больше не прибегну к VB 6.0.
Вот код:

Visual Basic

Private Sub Form_Load()
    Call UpdateConnect
End Sub
 
 
Sub UpdateConnect()
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    sql = " SELECT VL,UPVL FROM SPR "
    rs.Open sql, CN, adOpenForwardOnly, adLockReadOnly
    Set DataGrid1.DataSource = rs
End Sub

Вот в этой строке если поменять на ListView, вывод мне нужен именно в ListView он выдаст ошибку "Method or data member not found"

Visual Basic

1	Set DataGrid1.DataSource = rs

Собственно что посоветуете, как вы поняли в языке я не силен, работаю в другой сфере, так что как можно понятней)

@Alex77755 · 18.01.2017, 11:52

DataSource нет у ListView
Я заполнял перебирая в цикле записи в rs

@Cael · 18.01.2017, 17:31 **[ТС]**

Ну что нету я уже догадался, сказал же не бум бум в этом) Хотелось бы пример что дописать хотябы для одной строчки)

@Alex77755 · 18.01.2017, 18:31

под рукой нет из рекордсета. В принципе какая разница

Visual Basic

With ListView1
     .ListItems.Clear
    Open "d:\test.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, line
        vs = Split(line, vbTab)
        If UBound(vs) = 2 Then
            With .ListItems.Add(, , vs(0))
                .SubItems(1) = vs(1)
                .SubItems(2) = vs(2)
            End With
        End If
    Loop
    Close #1
End With

вместо цикла по записям из файла сделайте что-то подобное:

Visual Basic

rs.movelast
rs.movefirst
for r=1 to rs.recordcount
'''тут заполнение листвиев из примера
rs.movenext
next

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	18.01.2017, 11:52	2
	DataSource нет у ListView Я заполнял перебирая в цикле записи в rs 0

@Cael 0 / 0 / 0 Регистрация: 17.01.2017 Сообщений: 10
	18.01.2017, 17:31 [ТС]	3
	Ну что нету я уже догадался, сказал же не бум бум в этом) Хотелось бы пример что дописать хотябы для одной строчки) 0

	18.01.2017, 18:31