Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
J__La
0 / 0 / 0
Регистрация: 10.01.2011
Сообщений: 50
1

Как заполнить массив данными листбокса?

17.01.2011, 14:53. Просмотров 847. Ответов 4
Метки нет (Все метки)

Как заполнить массив данными листбокса, а затем
сделать выборку из базы данных где элементы массива
являются условиями отбора. Я уже 5 суток сижу над этим....
больше нет сил.... помогите
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2011, 14:53
Ответы с готовыми решениями:

Как заполнить comboх данными для выбора
Помогите, что-то сижу и туплю никак не могу понять, как заполнить comboх...

Заполнить Combobox данными из столбца БД
Добрый день :curtsy:! Я новичок в VB 6.0. Подскажите, как в VB 6.0 реализовать...

Как заполнить массив заданными числами?
За данными числам n и m заполнить двумерный массив размером n × m числами от 1...

Как заполнить массив из файла в Visual Basic 6.0
В текстовом файле есть строка из чисел 500 1000 1500 2000 2500 3000 3500 4000...

Массив: Как заполнить нерандомно, а програмно каждую клеточку самому прописать
ребят выручайте , у меня есть матрица 25 на 25 как мне заполнить? не рандомно...

4
Alexey Spirin
1 / 1 / 1
Регистрация: 18.10.2007
Сообщений: 1,750
17.01.2011, 22:52 2
Visual Basic
1
2
3
4
Redim a(list1.listcount-1) as string
for cnt = 0 to list1.listcount-1
   a(cnt)=list1.list(cnt)
next
ну и далее уже открывай рекордсет с нужными тебе элементами
0
J__La
0 / 0 / 0
Регистрация: 10.01.2011
Сообщений: 50
18.01.2011, 06:58  [ТС] 3
Спасиб... А вот еще такой вопрос:
Как мне организовать SQL строку что бы она вывела записи по всем элементам массива а не по последнему.
У меня сейчас так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
ReDim a(List2.ListCount - 1) As String
For cnt = 0 To List2.ListCount - 1
   a(cnt) = List2.List(cnt)
Next
Set r1 = New ADODB.Recordset
r1.CursorType = adOpenDynamic
r1.LockType = adLockOptimistic
r1.CursorLocation = adUseClient
r1.Open ('spr'), cnn
 
r1.MoveFirst
For i = 1 To r1.RecordCount
For cnt = 0 To List2.ListCount - 1
 
If a(cnt) = r1(1) Then
Set cmd = New ADODB.Command
cmd.CommandText = ' SELECT spr.naim, spr.data,spr.kol_mes_isp, spr.summ From spr WHERE (((spr.inv)='' & a(cnt) & ''))'
 
Set cmd.ActiveConnection = cnn
Set r1 = cmd.Execute('spr', a(cnt))
 
Call FillGrid(r1, grd) //выводит в флекс_грид запись по 
                       //последнему   элементу массива
 Exit Sub
   End If
    r1.MoveNext
    Next cnt
Next i
0
Alexey Spirin
1 / 1 / 1
Регистрация: 18.10.2007
Сообщений: 1,750
18.01.2011, 09:49 4
ничего не понял.... зачем все это нужно то?
изначальная задача какая?
0
J__La
0 / 0 / 0
Регистрация: 10.01.2011
Сообщений: 50
18.01.2011, 11:21  [ТС] 5
Задача такая:
Надо сделать выборку из базы данных. Сложность в том что например надо выбрать из справочника фамилии. Пользователь может ввести любое кол-во фамилий по которым и будет формироваться отчет в Exelе.
Вообще хоть какие-нибудь советы . Буду благодарна.
Не знаю понятно или нет.... я уже скоро плакать буду......
0
18.01.2011, 11:21
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2011, 11:21

Ребят, разъясните, пожалуйста, как сделать код, позволяющий заполнить одномерный массив
Ребят, разъясните, пожалуйста, как сделать код, позволяющий заполнить...

Как заполнить массив числами в заданном диапазоне и посчитать сумму его элементов
Заполнить одномерный массив из 19 элементов в интервале от -19 до 43. Посчитать...

Заполнять массив данными с сохранением файла
Дан произвольный числовой двумерный массив. Разработать проект позволяющий: а)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru