Обработка запросов в Аксесе

@MAcK · Регистрация: 27.05.2008

Author24 — интернет-сервис помощи студентам

Нужно скопировать часть одной БД в другую, сделал запрос:

Dim MAcKQuery As QueryDef

MAcKQuery = CurrentDb.CreateQueryDef("Select * from Temp_MasterImport")

как пошагово пройтись по строкам (типа first, next)
и узнать что это последняя запись????

@Михайло · 12.06.2008, 08:28

Visual Basic

Dim table As Recordset
  Set table = CurrentDb.OpenRecordset("Имя_таблицы/запроса или команда_SQL", dbOpenDynaset)
  While Not table.EOf
    MsgBox table!ПолеТаблицы
    table.MoveNext
  Wend

Но, быть может, Вам лучше воспользоваться запросом на добавление записей:

Visual Basic

1	DoCmd.RunSQL "команда_SQL"

@MAcK Комбайнёр 1606 / 704 / 77 Регистрация: 27.05.2008 Сообщений: 2,535
		1
	Обработка запросов в Аксесе 11.06.2008, 12:11. Показов 2235. Ответов 1 Метки нет (Все метки) Нужно скопировать часть одной БД в другую, сделал запрос: Dim MAcKQuery As QueryDef MAcKQuery = CurrentDb.CreateQueryDef("Select * from Temp_MasterImport") как пошагово пройтись по строкам (типа first, next) и узнать что это последняя запись???? 0

	12.06.2008, 08:28

Опции темы