Мониторинг количества строк в таблице

@chanke · Регистрация: 02.12.2013

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

Добрый день, форумчане. В програмировании не так силён, прошу помощи. Допустим есть запрос в accsess - выбирает некую таблицу ( к примеру на 24 строки). Необходимо зделать цикл проверки строк в запросе с условием что если строк в определенный момент окажется не 24 а к примеру больше то на компе выскочит меседж.... в идеале на мобильный телефон. Но это пока мечты...пока обычный MsgBox. Помогите построить цикл с каунтом?

@Alex77755 · 02.12.2013, 12:56

зделать цикл проверки строк в запросе

А чем не устраивает RecordCount?
Правда сначала надо сделать MoveLast и MoveFirst

@chanke · 02.12.2013, 13:00 **[ТС]**

Так вот именно им и пробую типо select count (balblabal) as RowCount from blablabla но вот как это должно выглядеть на языке ВБА я его почти не знаю...ни функций ни операторов...само условие и виденье того как это должно работать есть...не хватает знаний инструмента ВБА

@Alex77755 · 02.12.2013, 13:05

Visual Basic

sSQL = "SELECT * FROM [Моя библиотека];"
Set rs = db.OpenRecordset(sSQL)
rs.MoveLast
rs.MoveFirst
MsgBox rs.RecordCount

И проверяй себе...

Добавлено через 1 минуту
Если запрос с условиеим дальше в запросе будет условия отбора

@chanke · 02.12.2013, 13:05 **[ТС]**

Дальше уже if then лепить?

@Alex77755 · 02.12.2013, 13:09

Ну да

@chanke · 02.12.2013, 13:10 **[ТС]**

А как это всё еще в цикл запилить? Да еще чтоб шаги цикла хотяб раз в 5-10 минут происходили?

@Alex77755 · 02.12.2013, 13:14

Вот пример формирования условий отбора по двум параметрам:
Обор данных из таблицы запросом по двум(или одному) условиям

Visual Basic

Dim S_S 'строка условий отбора
Dim D, L 'значения диаметра и длины
 
'считывание данных с комбобоксов
Диаметры.SetFocus: D = Диаметры.Text
Длинны.SetFocus: L = Длинны.Text
'назначение текущей базы
Set dbs = CurrentDb
 
'если установлен флаг диаметры
If Флажок0.Value = -1 And D <> "" Then
'пишем в строку запроса условие
S_S = " WHERE Метизы.Diameter ='" & D & "'"
End If
'если установлен флаг длина
If Флажок2.Value = -1 And L <> "" Then
'в зависимости от содержания строки запроса пишем или дописываем условия
    S_S = IIf(S_S = "", " WHERE Метизы.Length ='" & L & "'", S_S & " And  Метизы.Length ='" & L & "'")
End If
 
'назначаем списку рекордсет запроса к таблице Метизы с условиием(условиями) отбора
Set Me.Результат_фильтра.Recordset = dbs.OpenRecordset("SELECT Метизы.Name,Метизы.Stall from Метизы " & S_S)

Добавлено через 49 секунд
Откуда выполняется запрос?

Добавлено через 2 минуты
Не стоит грузить бесконечными циклами.
Проще по таймеру запускать

@chanke · 02.12.2013, 13:15 **[ТС]**

Из связанной с базой таблици....в таблице всего 4 столбца... надо так поставить счетчик что когда таблица пополнится чтоб я об этом грубо говоря узнал.... таблица наз. dbo.dsp_main запрос наз. "1"

@Alex77755 · 02.12.2013, 13:18

Ну или по Application.OnTime

Добавлено через 2 минуты
В каком приложении это всё?

@chanke · 02.12.2013, 13:23 **[ТС]**

Выборки делаю в Аксесе... просто сейчас стал вопрос или я целыми днями кликаю на запрос в ручную и смотрю выбраную таблицу либо автоматизирую с помошью ВБА и зделаю цикл...

Добавлено через 3 минуты
А по таймеру это как? Есть функция? или оператор просто ?

@Alex77755 · 02.12.2013, 13:23

Вот пример таймера для аксесса

@chanke · 02.12.2013, 14:33 **[ТС]**

Visual Basic

Option Compare Database
Sub Кнопка3_Click()
Dim i As Integer
i = 1
 
Do Until i > 999
sSQL = "select * from 1;"
Set rs = db.OpenRecordset(sSQL)
rs.MoveLast
rs.MoveFirts
MsgBox rs.RecordCount
i = i + 1
 Loop
 MsgBox rs.RecordCount
 
End Sub

Вот такое натворил....выдает ошибку 424 Runtime error

Добавлено через 13 минут
Как должна выглядеть сама строка подсчета строк в таблице которая в запросе?

Добавлено через 43 минуты
Окей здача еще проще! ДАйте скрипт плиз чтоб некая ячейка из таблицы которая выбирается из запроса в аксес сравнивалась с константой( к примеру 24) в определенный момент времени. И типо если совпали то ничего если не равны то Месдж. Плз помогите а....

@Alex77755 · 02.12.2013, 15:55

Visual Basic

1	db.OpenRecordset

А db где-то назначена?
А то я не вижу ни объявления, ни назначения
Должно быть что-то типа

Visual Basic

1 2	Dim db Set db = CurrentDb

@chanke · 02.12.2013, 15:59 **[ТС]**

Я ж данные не из базы получаю а всего лишь оцениваю записи уже в самом запросе...квери...как это блин прописать.... Тут еще даже проще стало! Есть таблица в ней некая ячейка =13. Как сделать сравнение что когда она станет не 13 выпрыгнет меседж?

@Alex77755 · 02.12.2013, 16:10

Visual Basic

1	всего лишь оцениваю записи уже в самом запросе

Если хочешь получить данные из запроса, то нужно обращаться к запросу.
Если из таблицы - к таблице.
Если контролировать количество записей - к таблице
Но по любому надо запускать какую-то процедуру для проверки.
А вот процедуру должен запустить таймер.
Организовать форму с таймером.
При открытии назначить счётчику нужное количество секунд, например.
Таймер каждую секунду должен отнимать 1с.
При достижении 0 запустить процедуру и снова установить счётчик на нужный интервал

@chanke · 02.12.2013, 16:40 **[ТС]**

Можно скрипт на функцию таймера( пускай каждые 5 минут) на функцию выборки ( сравнить ячейку из таблицы с константой) если да то ничего если нет то меседж. И еще как правильно прописать путь к базе если я конектился эксесом через ODBC

@chanke 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 9
	02.12.2013, 13:23 [ТС]	11
	Выборки делаю в Аксесе... просто сейчас стал вопрос или я целыми днями кликаю на запрос в ручную и смотрю выбраную таблицу либо автоматизирую с помошью ВБА и зделаю цикл... Добавлено через 3 минуты А по таймеру это как? Есть функция? или оператор просто ? 0

@chanke 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 9
	02.12.2013, 16:40 [ТС]	17
	Можно скрипт на функцию таймера( пускай каждые 5 минут) на функцию выборки ( сравнить ячейку из таблицы с константой) если да то ничего если нет то меседж. И еще как правильно прописать путь к базе если я конектился эксесом через ODBC 0

@chanke 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 9
		1
	Мониторинг количества строк в таблице 02.12.2013, 12:17. Показов 1434. Ответов 16 Метки нет (Все метки) Добрый день, форумчане. В програмировании не так силён, прошу помощи. Допустим есть запрос в accsess - выбирает некую таблицу ( к примеру на 24 строки). Необходимо зделать цикл проверки строк в запросе с условием что если строк в определенный момент окажется не 24 а к примеру больше то на компе выскочит меседж.... в идеале на мобильный телефон. Но это пока мечты...пока обычный MsgBox. Помогите построить цикл с каунтом? 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,222
	02.12.2013, 12:56	2
	зделать цикл проверки строк в запросе А чем не устраивает RecordCount? Правда сначала надо сделать MoveLast и MoveFirst 0

@chanke 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 9
	02.12.2013, 13:00 [ТС]	3
	Так вот именно им и пробую типо select count (balblabal) as RowCount from blablabla но вот как это должно выглядеть на языке ВБА я его почти не знаю...ни функций ни операторов...само условие и виденье того как это должно работать есть...не хватает знаний инструмента ВБА 0

@chanke 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 9
	02.12.2013, 13:05 [ТС]	5
	Дальше уже if then лепить? 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,222
	02.12.2013, 13:09	6
	Ну да 0

@chanke 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 9
	02.12.2013, 13:10 [ТС]	7
	А как это всё еще в цикл запилить? Да еще чтоб шаги цикла хотяб раз в 5-10 минут происходили? 0

@chanke 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 9
	02.12.2013, 13:15 [ТС]	9
	Из связанной с базой таблици....в таблице всего 4 столбца... надо так поставить счетчик что когда таблица пополнится чтоб я об этом грубо говоря узнал.... таблица наз. dbo.dsp_main запрос наз. "1" 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,222
	02.12.2013, 13:18	10
	Ну или по Application.OnTime Добавлено через 2 минуты В каком приложении это всё? 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,222
	02.12.2013, 13:23	12
	Вот пример таймера для аксесса 0

@chanke 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 9
	02.12.2013, 15:59 [ТС]	15
	Я ж данные не из базы получаю а всего лишь оцениваю записи уже в самом запросе...квери...как это блин прописать.... Тут еще даже проще стало! Есть таблица в ней некая ячейка =13. Как сделать сравнение что когда она станет не 13 выпрыгнет меседж? 0