ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вывести рекордсет?
25 сообщений из 42, страница 1 из 2
  1  все
Как вывести рекордсет?
    #33615255
Molasar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Molasar
Участник
Через VBA формирую рекордсет:

Dim rs_Purchases As String
Set db = CurrentDb

Set rs_Purchases = db.OpenRecordset("Select * From Table1" )

Как вывести его на экран самым простым способом, лучше в отдельном окне как таблицу?
...
Рейтинг: 0 / 0
21.03.2006, 18:04
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33615303
Nakesha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nakesha
Гость
Как вариант MS DataGrid.

(не по теме) может Dim rs_Purchases as Recordset, а не String в твоем примере?
...
Рейтинг: 0 / 0
21.03.2006, 18:22
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33615308
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Создать мастером форму и не ломать голову с рекордсетом.

Потому что

Dim rs_Purchases As String должно быть DAO.Recordset или ADODB.Recordset но не как не String!!!

Еще проще

docmd.OpenTable "Table1"
...
Рейтинг: 0 / 0
21.03.2006, 18:24
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33615311
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
DoCmd.OpenQuery имяЗапроса [, режим] [, режимДанных]
...
Рейтинг: 0 / 0
21.03.2006, 18:25
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33616716
Molasar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Molasar
Участник
А как можно вывести на экран сформированный на VBA запрос?
Например:

rs = ''Select * From Table1"
DoCmd.OpenQuery "rs", , acReadOnly

Но почему то не прокатывает...
...
Рейтинг: 0 / 0
22.03.2006, 12:06
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33616741
Ort84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ort84
Участник
MolasarА как можно вывести на экран сформированный на VBA запрос?
Например:

rs = ''Select * From Table1"
DoCmd.OpenQuery "rs", , acReadOnly

Но почему то не прокатывает...
Потому что не "rs", а rs...
...
Рейтинг: 0 / 0
22.03.2006, 12:09
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33616747
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
MolasarА как можно вывести на экран сформированный на VBA запрос?
Например:

rs = ''Select * From Table1"
DoCmd.OpenQuery "rs", , acReadOnly

Но почему то не прокатывает...
rs это имя запроса
dim qdf as dao.querydef
set qdf = currentdb.querydefs("rs")
qdf.sql = ''Select * From Table1"
DoCmd.OpenQuery "rs", , acReadOnly

(могут быть синтаксические ошибки, запрос c именем RS нужно создать заранее)
...
Рейтинг: 0 / 0
22.03.2006, 12:10
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33616875
Molasar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Molasar
Участник
Не получается!!!!
Приведите, пожалуйста, полный пример.
...
Рейтинг: 0 / 0
22.03.2006, 12:32
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33616957
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
MolasarНе получается!!!!
Приведите, пожалуйста, полный пример.

Что не получается?
Наступи на свою таблу мышкой, найди в тулбаре мастера построителя, выбери авто форм кликни и получи форму. Не забудь ее спасти
...
Рейтинг: 0 / 0
22.03.2006, 12:47
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33616967
Molasar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Molasar
Участник
Запрос формируется на VBA и выводится должен из VBA!!!!
...
Рейтинг: 0 / 0
22.03.2006, 12:49
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33616997
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
MolasarЗапрос формируется на VBA и выводится должен из VBA!!!!

Чушь! Запросы формируются на языке SQL и только на языке SQL!
Опиши в конце концов задачу полностью!
...
Рейтинг: 0 / 0
22.03.2006, 12:55
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33617022
Molasar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Molasar
Участник
Есть форма. Есть кнопка. Нажимаю кнопку. Начинает выполнятся сложный код на VBA.
Помере выполнения кода нужно выводить на экран данные из сформированных запросов.
При этом нельзя сохранять или использовать сохраненные запросы! Все динамически!!!!

Dim rs As String
...
rs = "Select * Table1"
...

И вот этот вот rs нужно вывести на экран.
...
Рейтинг: 0 / 0
22.03.2006, 12:59
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33617037
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
На 6 VB мли на .NET это реализуется очень быстро и просто.

В аксесе - сложнее и длиньше.

Сделать пустую форму, перебрать в цикле поля запроса и навтыкать в форму контролов. CreateControl. Форму открывать в режиме дизайна, в невидимом виде.
...
Рейтинг: 0 / 0
22.03.2006, 13:02
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33617088
a_ _k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
a_ _k
Гость
Программист-ЛюбительВ аксесе - сложнее и длиньше.


а что в аксессе гриды отменили?
...
Рейтинг: 0 / 0
22.03.2006, 13:12
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33617108
ё
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ё
Гость
это что - вопросы вероисповедания?

авторПри этом нельзя сохранять или использовать сохраненные запросы! Все динамически!!!!

если можно динамически - почему нельзя использовать сохраненные запросы?
--

"верую ибо нелепо" - хорошо тогда, когда это символ знания, а не символ нелепости.
...
Рейтинг: 0 / 0
22.03.2006, 13:17
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33617205
Фотография barrabas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
barrabas
Участник
MolasarНе получается!!!!
Приведите, пожалуйста, полный пример.

Создаешь запрос с именем Test c любым текстом (мы его менять будем)
меняем его содержание
currentdb.QueryDefs("Test").SQL = "select * from TableName"
открываем и смотрим результат
docmd.OpenQuery "Test",,acReadOnly
...
Рейтинг: 0 / 0
22.03.2006, 13:43
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #33617258
Molasar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Molasar
Участник
barrabas MolasarНе получается!!!!
Приведите, пожалуйста, полный пример.

Создаешь запрос с именем Test c любым текстом (мы его менять будем)
меняем его содержание
currentdb.QueryDefs("Test").SQL = "select * from TableName"
открываем и смотрим результат
docmd.OpenQuery "Test",,acReadOnly

Спасибо тебе, barrabas.
...
Рейтинг: 0 / 0
22.03.2006, 13:54
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как вывести рекордсет?
    #35722295
Yak-man-Yak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yak-man-Yak
Гость
А я делаю по-другому. Вывожу данные в любую таблицу с помощью SELCT INTO, а потом поднимаю ее на просмотр или экспортирую в Excel.
...
Рейтинг: 0 / 0
18.12.2008, 13:51
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #35722302
Yak-man-Yak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yak-man-Yak
Гость
А я делаю по-другому. Вывожу данные в любую таблицу с помощью SELCT INTO, а потом поднимаю ее на просмотр или экспортирую в Excel.
...
Рейтинг: 0 / 0
18.12.2008, 13:53
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #35723983
Yak-man-Yak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Yak-man-Yak
Гость
barrabas,
Полезно, спасибо.
...
Рейтинг: 0 / 0
19.12.2008, 10:41
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #35726275
YURIY_Z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YURIY_Z
Гость
Dim dbs As Database, qdf As QueryDef, strSQL As String, sss As String
Set dbs = CurrentDb
dbs.QueryDefs.Refresh
dbs.QueryDefs.Delete ("Z") - если нужно конечно
strSQL = "SELECT..................................;"
Set qdf = dbs.CreateQueryDef("Z", strSQL)
DoCmd.OpenQuery qdf.NAME
qdf.OpenRecordset
вот и все дела.........):
...
Рейтинг: 0 / 0
21.12.2008, 00:10
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #36114963
КириллН
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КириллН
Гость
Если я правильно понял, конструкция вроде

Код: plaintext
1.
2.
3.
4.
Dim strSQL As String

strSQL = "SELECT * FROM Table"
CurrentDb.OpenRecordSet (strSQL)

не может быть модифицирована так, чтобы результаты запроса были выведены таблицей, как если бы я этот запрос наваял конструктором запросов и нажал вверху, на панели инструментов, кнопочку Выполнить. Верно? Тогда что это:

Код: plaintext
OpenRecordset (source, type, options, lockedits)

Access F1
...
options
Optional. A combination of constants that specify characteristics of the new Recordset, as listed in Settings .
...
Settings

You can use one of the following constants for the type argument.

dbOpenTable
Opens a table-type Recordset object (Microsoft Jet workspaces only).
dbOpenDynamic
Opens a dynamic-type Recordset object, which is similar to an ODBC dynamic cursor. (ODBCDirect workspaces only)
dbOpenDynaset
Opens a dynaset-type Recordset object, which is similar to an ODBC keyset cursor.
dbOpenSnapshot
Opens a snapshot-type Recordset object, which is similar to an ODBC static cursor.
dbOpenForwardOnly
Opens a forward-only-type Recordset object.

Note If you open a Recordset in a Microsoft Jet workspace and you don't specify a type, OpenRecordset creates a table-type Recordset, if possible. If you specify a linked table or query, OpenRecordset creates a dynaset-type Recordset. In an ODBCDirect workspace, the default setting is dbOpenForwardOnly.


Как эти параметры использовать?
...
Рейтинг: 0 / 0
29.07.2009, 10:58
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #36114995
отакота
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отакота
Гость
КириллНЕсли я правильно понял, конструкция вроде

Код: plaintext
1.
2.
3.
4.
Dim strSQL As String

strSQL = "SELECT * FROM Table"
CurrentDb.OpenRecordSet (strSQL)

не может быть модифицирована так, чтобы результаты запроса были выведены таблицей, как если бы я этот запрос наваял конструктором запросов и нажал вверху, на панели инструментов, кнопочку Выполнить. Верно?верно

КириллНТогда что это:

Код: plaintext
OpenRecordset (source, type, options, lockedits)

[quot Access F1]
...
options
Как эти параметры использовать?вот как сказано в справке, так и использовать. Например, хотите индексы использовать - открывать над с опцией dbOpenTable, хотите просто читать данные (не меняя их) - dbOpenSnapshot, хотите редактировать данные - dbOpenDynaset. Там же все написано.
...
Рейтинг: 0 / 0
29.07.2009, 11:08
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #36115017
КириллН
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КириллН
Гость
отакота,

А как, например, должен выглядеть синтаксис?

Код: plaintext
1.
CurrentDb.OpenRecordset (strSQL, dbOpenSnapshot)

Так верно? При этом на экран будет что-нибудь выведено?
...
Рейтинг: 0 / 0
29.07.2009, 11:14
| Ответить | Цитировать | Написать  
Как вывести рекордсет?
    #36115024
КириллН
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
КириллН
Гость
отакота,

В таком виде выдает ошибку "Expected: ="
...
Рейтинг: 0 / 0
29.07.2009, 11:15
| Ответить | Цитировать | Написать  
25 сообщений из 42, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вывести рекордсет?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&tid=1636053]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 58ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 64ms
get tp. blocked users:
 1ms
others: 311ms
total:  481ms
созд. / загр.: 481ms
x
x
Закрыть


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