Вопрос № 161771: Ув. экстперты, как сделать чтобы 2х-мерный массив в структуре access упорядочивался по возростанию и убіванию с помощью программы, написанной в vba excel и отображался там на форме в ListBox при нажатии созданніх для єтого кнопок!?...
Вопрос № 161.771
Ув. экстперты, как сделать чтобы 2х-мерный массив в структуре access упорядочивался по возростанию и убіванию с помощью программы, написанной в vba excel и отображался там на форме в ListBox при нажатии созданніх для єтого кнопок!?
Отвечает: HookEst
Здравствуйте, Natasha Nikiforova! Если нужно просто отобразить содержимое какого-либо столбца из таблицы MS Acces в ListBox формы MS Excel...
Например, данные лежат в "D: est.mdb" , в таблице "tbl" , выводить нужно столбец "Поле1" из этой таблицы... есть форма, на ней ListBox с именем "ListBox1" и две кнопки "CommandButton1" и "CommandButton2" в модуле формы код:
Код:
Option Explicit
'здесь нужно указать строку подключения к Вашему файла данных Const CONNECTION_STRING = "DSN=MS Access Database;DBQ=D: est.mdb"
'здесь имя Вашей таблицы Const TABLE_NAME = "tbl"
'здесь имя выводимого поля Const FIELD_NAME = "Поле1
"
'выводит в порядке возрастания Private Sub CommandButton1_Click() Fill "ASC" End Sub
'выводит в порядке убывания Private Sub CommandButton2_Click() Fill "DESC" End Sub
'заполняет ListBox1 значениями из поля FIELD_NAME Private Sub Fill(ByVal Sort As String) Dim RS ListBox1.Clear
'для простоты использовал позднее связывание Set RS = CreateObject("ADODB.Recordset")
RS.Open "SELECT * FROM [" & TABLE_NAME & "] ORDER BY [" & FIELD_NAME & "] " & Sort, CONNECTION_STRING, 3
While Not RS.EOF ListBox1.AddItem RS.Fields(FIELD_NAME).Value RS.MoveNext Wend
RS.Close Set RS = Nothing End Sub
все... Успехов.
Ответ отправил: HookEst (статус: Специалист)
Ответ отправлен: 03.03.2009, 03:52
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 244906 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
