Работа с временными таблицами в 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 'конец процедуры

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5