ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вывод результата запроса в MsgBox
14 сообщений из 14, страница 1 из 1
Вывод результата запроса в MsgBox
    #38308752
vdanilkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdanilkin
Гость
всем привет.
нужна ваша помощь. Возможно ли вывести в MsgBox результат запроса? Хотел бы выводить всего один столбец. Значений в среднем будет 1-3шт. Если нет, то придется использовать всплывающую форму.
...
Рейтинг: 0 / 0
24.06.2013, 21:15
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #38308758
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Да легко. Выгребаешь из рекордсета данные, склеиваешь их в одну строковую переменную, и выводишь. Только старайся не выскочить за лимиты.
...
Рейтинг: 0 / 0
24.06.2013, 21:27
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #38308760
vdanilkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vdanilkin
Гость
Akina,

а каждое значение на новой строке не получится?
...
Рейтинг: 0 / 0
24.06.2013, 21:30
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #38308761
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Получится... добавляй vbNewLine, где нужно.
...
Рейтинг: 0 / 0
24.06.2013, 21:31
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Вывод результата запроса в MsgBox
    #39187813
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Akina,

Доброе утро!
Можно примерчик?
Спасибо!
...
Рейтинг: 0 / 0
09.03.2016, 09:03
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39187845
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Abisma2008Можно примерчик?
Примерчик чего именно? тривиальной до жути операции вывода строки в MsgBox?
...
Рейтинг: 0 / 0
09.03.2016, 09:46
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39188035
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Akina,
Здравствуйте!

У меня есть код, но не работает. В чем моя ошибка посмотрите пожалуйста.
Код: vbnet
1.
2.
3.
4.
5.
Dim s
   Dim b
      s = "SELECT Таблица1.Дата FROM Таблица1 GROUP BY Таблица1.Дата HAVING (((Таблица1.Дата)=[Формы]![Form1]![Поле2]));"
      b = "Кол-во"
      MsgBox b & "=" & CurrentProject.Connection.Execute(s).Fields(0)


Спасибо!
...
Рейтинг: 0 / 0
09.03.2016, 13:00
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39188072
Agapov_stas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Agapov_stas
Участник
Abisma2008У меня есть код, но не работает.
Abisma2008 , не понятно что Вы хотите.
Если вывести количество записей по какой-то дате(указанной на форме, к примеру, как у Вас), тогда:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim s As String
Dim b As String
b = Format(Forms!Form1!Поле2, "\#mm\/dd\/yyyy\#")
s = DCount("*", "Таблица1", "Дата=" & b & "")
MsgBox ("Количество:" & s)
'ну или как у Вас:
's = "Select Count(*) From Таблица1 Where Дата=" & b & ""
'MsgBox ("Количество:" & CurrentProject.Connection.Execute(s).Fields(0))



Если же именно пройтись по отобранным записям, то как уже выше говорил Akina , пройтись по рекордсету и "склеить" в переменную". После чего вывести ее в MsgBox:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim rs As Object
Dim s As String
Dim b As String
s = ""
b = Format(Forms!Form1!Поле2, "\#mm\/dd\/yyyy\#")
Set rs = CurrentProject.Connection.Execute("Select * From Таблица1 Where Дата=" & b & "")
If rs.BOF Then Exit Sub
rs.MoveLast
rs.MoveFirst
Do While Not rs.EOF
    s = s & "Код: " & rs("Код") & ", "
    s = s & "Дата: " & rs("Дата") & vbCrLf
    rs.MoveNext
Loop
MsgBox (s)
...
Рейтинг: 0 / 0
09.03.2016, 13:39
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39188155
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Agapov_stas
Код: vbnet
1.
Do While Not rs.EOF


Забавно... почему не
Код: vbnet
1.
Do Until rs.EOF


? какой великий смысл в лишнем логическом операторе?
...
Рейтинг: 0 / 0
09.03.2016, 14:58
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39188166
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Akina,

-- сколько программистов --столько и привычек

использую только --цикл может не выполнять ни разу
Код: vbnet
1.
2.
3.
4.
5.
rs.movefirst
Do While  rs.EOF=false
''''
rs.movenext
loop
...
Рейтинг: 0 / 0
09.03.2016, 15:04
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39188179
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
ПЕНСИОНЕРКАсколько программистов --столько и привычек
На самом деле это остатки "старого" Барсика, в котором не было Do-Loop, а был только While-Wend. Но ведь уже четверть века прошла, пора бы...
...
Рейтинг: 0 / 0
09.03.2016, 15:13
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39188237
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
Agapov_stas,

Спасибо за ваш труд!
Я выложу мой пример.
Мне нужно при нажатии кнопки показал результат запроса. (То есть дату которые показывает "Запрос1")
...
Рейтинг: 0 / 0
09.03.2016, 15:34
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39188239
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
Abisma2008,

Код: vbnet
1.
2.
3.
With CurrentProject.Connection.Execute("SELECT DISTINCT [Дата] FROM Таблица1 WHERE [Дата]=#" & Format(Nz(Forms("Form1").Поле2, Date()), "mm\/dd\/yyyy") & "#;")
    If Not .EOF Then MsgBox .GetString() Else MsgBox "Пшик!"
End With
...
Рейтинг: 0 / 0
09.03.2016, 15:35
| Ответить | Цитировать | Написать  
Вывод результата запроса в MsgBox
    #39188418
Abisma2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abisma2008
Гость
\\\\Abisma2008,

Код: vbnet
1.
2.
3.
With CurrentProject.Connection.Execute("SELECT DISTINCT [Дата] FROM Таблица1 WHERE [Дата]=#" & Format(Nz(Forms("Form1").Поле2, Date()), "mm\/dd\/yyyy") & "#;")
    If Not .EOF Then MsgBox .GetString() Else MsgBox "Пшик!"
End With


Спасибо!
Очень помогло!
...
Рейтинг: 0 / 0
09.03.2016, 17:16
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вывод результата запроса в MsgBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1613844]:
 0ms
get settings:
 12ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 11ms
get first new msg:
 8ms
get forum data:
 5ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 11ms
total:  170ms
созд. / загр.: 170ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]