Чтение из IBM i (iSeries / AS400) для присвоения значения переменной - PullRequest
0 голосов
/ 22 мая 2018

Я новичок в Бейсике и пытаюсь написать макрос в Visual Basic для своей работы.Макрос войдет в нашу базу данных iSeries, найдет номера позиций для наших продуктов и назначит для них новые цены.Я застрял при попытке прочитать число из программного обеспечения AS400.

Процесс идет примерно так: пользователь вводит номера товаров и их новые цены.Затем макрос попадает в базу данных, и я создал циклы, которые позволяют макросу просматривать базу данных в поисках номера элемента, который выглядит следующим образом:

Sub UpdatePrice(ItemNum,Price)

'Here, I need to read the item number in AS400 and assign it to the variable, Int

If Int = ItemNum Then  

'Change the price

Else Int != ItemNum Then

'Go to the next line and read the ItemNum

End If  Int = [blank]

'End macro because ItemNum was not found in AS400

Я не уверен, возможно ли это вообщепотому что мы используем Excel для создания кода, который мы вставляем в текстовый файл, который читает программа.Единственный другой макрос, который мы используем, не читает из программного обеспечения, только очень быстро нажимает клавиши.

...