Работа с временными таблицами в VB6.0 + MS Access 20*
Формулировка задачи:
Добрый день, формучане.
Во время реализации проекта по разработке базы данных склада на Visual Basic 6.0 + MS Access, возникла ситуация, когда было бы эффективным применение способа использования временной таблицы.
Из БД Аксесс, из таблицы MIGO считываются строки и полученные строки нужно записать в временную таблицу, например, LT_MIGO. Потом в этой таблице происходит модификация данных (изменение значений в полях, удаление строк, добавление новых строк...). Потом, как итоговая временная таблица LT_MIGO готова, её нужно записать в физическую таблицу MIGO в MS Access.
Суть в том, чтобы программа не обращалась каждый раз к физической таблице в БД. Вся работа с данными происходит вне Access. Из Access лишь считываются строки и записывается конечный результат.
Уважаемые, кто нибудь сталкивался с такой проблемой? Подскажите, пожалуйста, как её решать. Как работать с временными таблицами в Visual Basic 6.0.
Поиск в интернете к желаемому результату не привёл, к сожалению.
Спасибо.
С уважением.
Решение задачи: «Работа с временными таблицами в VB6.0 + MS Access 20*»
textual
Листинг программы
Private Sub Комманда1_Click() ' Всё. показать весь список Dim c With FG ' выбрать таблицу .Rows = 1 ' назначить в таблице одну строку RS.MoveLast ' две строчки для подсчёта количества записей в таблице RS.MoveFirst ' .TextMatrix(0, 0) = RS.Fields(0).Name ' заполнить значениями For c = 0 To .Cols - 1 .TextMatrix(0, c) = RS.Fields(c).Name Next c For J = 1 To RS.RecordCount ' с начала до конца таблицы .Rows = .Rows + 1 ' прибавить строчку в таблице For c = 0 To .Cols - 1 .TextMatrix(J, c) = RS.Fields(c) ' заполнить значениями Next c RS.MoveNext ' следующая строка в таблице базы Next J 'следующая строка End With ' конец выбрать End Sub 'конец процедуры
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д