Как подходить к сортировке и извлечению данных путем группировки из диапазона значений ячеек? - PullRequest
Новая
       25

Как подходить к сортировке и извлечению данных путем группировки из диапазона значений ячеек?

0 голосов
/ 22 июня 2019

Я пытаюсь использовать MS Access для проекта базы данных.

Я просто хочу получить информацию из приглашения типа:

Пожалуйста, номер на случай непредвиденных обстоятельств:

И передо мной появится информация со всей конкретной информацией, связанной с этой записью.

Пример ниже: 

Contingency
CONTINGENCY 'XX:1_XX'
DISCONNECT BUS 1
DISCONNECT BUS 2
DISCONNECT BUS 3
DISCONNECT BUS 4
DISCONNECT BUS 5
DISCONNECT BUS 6
DISCONNECT BUS 7
END

Так что, если я наберу в командной строке: Contingency 'XX:1-XX', вся эта информация сверху появится передо мной. Это цель. Я использую только один столбец, потому что он взят из файла .txt. Я не думаю, что мне нужны дополнительные столбцы для целей идентификации.

Я пытался использовать Access, но я не знаю, как отфильтровать данные, чтобы показать только выходные данные строки, а не выходные данные столбца.

У меня нет кода, я не разбираюсь в SQL или чем-то в этом роде.

Результаты: после выполнения запроса появится только "CONTINGENCY 'XX:1_XX'".

1 Ответ

0 голосов
/ 24 июня 2019

Может быть, когда-нибудь это будет полезно, к лучшему или к худшему?: D

Я предлагаю импортировать ваш текстовый файл в таблицу доступа с именем [Условные обозначения], по крайней мере, с двумя текстовыми полями: 1) contingencyNumber 2) contingencyMessage, а затем добавить событие click для кнопки в дизайне формы, которая создастстрока для msgbox, основанная на всех полях contingencyMessage для введенного contingencyNumber. 

'define some variables
dim rstContingency as dao.recordset
dim txtInput, txtOutput, sql as string
txtInput = inputbox("Enter Contingency Number","Enter Contingency Number","NA")

'build a sql string
sql = "SELECT * FROM [Contingencies] WHERE contingencyNumber = '" & txtInput  & "'"

'assign recordset
set rstContingency = currentdb.openrecordset(sql, dbopensnapshot, dbreadonly, dbreadonly)

'loop through records until EOF (end of file)
'each time adding the message to the output string
while not rstContingency.eof
  txtOutput = txtOutput & vbcrlf
  rstContingency.movenext
wend 

'display original input and the accumulated messages for output
msgbox "Contingency: " & txtInput & vbcrlf & txtOutput
...