Как обратиться к списку ListBox, чтобы каждая запись в нем была как отдельный элемент? - VB
Формулировка задачи:
Подскажите пожалуйста как обратиться к списку ListBox,
чтобы каждая запись в нем была ка отдельнычй элемент.
Например В спискок заносятся фамилии по которым будет осуществляться выборка из б.д. и как это организовать?
Решение задачи: «Как обратиться к списку ListBox, чтобы каждая запись в нем была как отдельный элемент?»
textual
Листинг программы
Private myRst As ADODB.Recordset, myConn As ADODB.Connection ' Private Sub Form_Load() Dim stSQL As String Dim i As Integer, cnt As Integer List1.Clear List1.AddItem 'Иванов' List1.AddItem 'Петров' List1.AddItem 'Сидоров' stSQL = 'SELECT * From SOTRUDNIKI Where ' For i = 0 To List1.ListCount - 1 stSQL = stSQL + '[Фамилия] = '' + List1.List(i) + '' Or ' Next stSQL = Left$(stSQL, Len(stSQL) - 4) ' Debug.Print stSQL Set myConn = New ADODB.Connection myConn.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sample.mdb;' myConn.Open Set myRst = New ADODB.Recordset With myRst Set .ActiveConnection = myConn .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockReadOnly .Open stSQL Debug.Print 'Выборка с фамилиями, указанными в листбоксе:' cnt = 1 While Not .EOF Debug.Print vbCrLf & 'Запись ' & cnt & ':' Debug.Print '==========' For i = 0 To .Fields.Count - 1 Debug.Print .Fields(i).Name & ' = ' & .Fields(i).Value Next .MoveNext cnt = cnt + 1 Wend End With End Sub ' Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If myRst.State = adStateOpen Then myRst.Close Set myRst = Nothing If myConn.State = adStateOpen Then myConn.Close Set myConn = Nothing Set Form1 = Nothing End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д