select в VBA / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / select в VBA

22 сообщений из 22, страница 1 из 1

select в VBA

#32879337

james1982

Гость

привет всем

ни как не могу найти путного примера
нужно в VBA написать запрос допустим select company_name from company
и потом в цикле перебрать все записи и закинуть в какую нибудь переменную VBA

киньте пример

...

Рейтинг:

0 / 0

24.01.2005, 10:15:50

| Ответить | Цитировать | Написать

select в VBA

#32879377

Программист-Любитель

Участник

Сообщения: 16 772

Рейтинг: 0 / 0

Не надо в цикле перебирать записи. Используйте одну строку кода - DLookup. Фы1 вам поможет.

...

Рейтинг:

0 / 0

24.01.2005, 10:26:32

| Ответить | Цитировать | Написать

select в VBA

#32879531

S l

Гость

Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select company_name from company;")
rst.MoveFirst

While Not rst.EOF
ИмяПеременной= rst.Fields(0).Value
.MoveNext
Loop

.Close
End With
dbs.Close

...

Рейтинг:

0 / 0

24.01.2005, 11:26:46

| Ответить | Цитировать | Написать

select в VBA

#32879541

S l

Гость

ой-ёй.. предыдущее сообщение не в счет :)

Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select company_name from company;")
rst.MoveFirst
While Not rst.EOF
ИмяПеременной= rst.Fields(0).Value
rst.MoveNext
endwhile
rst.Close
dbs.Close

...

Рейтинг:

0 / 0

24.01.2005, 11:30:02

| Ответить | Цитировать | Написать

select в VBA

#32879551

Программист-Любитель

Участник

Сообщения: 16 772

Рейтинг: 0 / 0

<ИмяПеременной> = Dlookup("company_name","company","company_id=" & Cstr(<ИмяПеременной где лежит код компании>). Все, код кончился.

...

Рейтинг:

0 / 0

24.01.2005, 11:33:52

| Ответить | Цитировать | Написать

select в VBA

#32879558

Программист-Любитель

Участник

Сообщения: 16 772

Рейтинг: 0 / 0

Ыщо одну скобку ")" в конце забыл.

...

Рейтинг:

0 / 0

24.01.2005, 11:35:11

| Ответить | Цитировать | Написать

select в VBA

#32879850

james1982

Гость

S lой-ёй.. предыдущее сообщение не в счет :)

Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select company_name from company;")
rst.MoveFirst
While Not rst.EOF
ИмяПеременной= rst.Fields(0).Value
rst.MoveNext
endwhile
rst.Close
dbs.Close

Set rst = dbs.OpenRecordset("select company_name from company;")
error type missmatch

...

Рейтинг:

0 / 0

24.01.2005, 12:59:41

| Ответить | Цитировать | Написать

select в VBA

#32879852

james1982

Гость

Программист-Любитель<ИмяПеременной> = Dlookup("company_name","company","company_id=" & Cstr(<ИмяПеременной где лежит код компании>). Все, код кончился.

а как получить набор записей?

...

Рейтинг:

0 / 0

24.01.2005, 13:00:16

| Ответить | Цитировать | Написать

select в VBA

#32879859

paparome

Участник

Откуда: Москва

Сообщения: 4 241

Рейтинг: 0 / 0

james1982
Set rst = dbs.OpenRecordset("select company_name from company;")
error type missmatch
А теперь ответь на вопросы:
1. Версия Акса?
2. mdb или adp?

PS: Правила изредка рекомендуется перечитывать!

...

Рейтинг:

0 / 0

24.01.2005, 13:03:12

| Ответить | Цитировать | Написать

select в VBA

#32879874

james1982

Гость

paparome james1982
Set rst = dbs.OpenRecordset("select company_name from company;")
error type missmatch
А теперь ответь на вопросы:
1. Версия Акса?
2. mdb или adp?

PS: Правила изредка рекомендуется перечитывать!

access 2002 (xp) но база в формате 2000
mdb

...

Рейтинг:

0 / 0

24.01.2005, 13:07:40

| Ответить | Цитировать | Написать

select в VBA

#32879880

AndrewNico

Гость

james1982Set rst = dbs.OpenRecordset("select company_name from company;")
error type missmatch

У тебя, скорее всего только ADO'шная библиотека подключена. А код в DAO.

для ADO:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim strSQL As String
    
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    
    strSQL = ""
    
    rst.Open strSQL, cnn
    
    If Not rst.EOF Then
       While Not rst.EOF
           'Что-то делаем с набором записей
           '..............................................
           rst.MoveNext
       Wend
    End If
    
    rst.Close

    Set rst = Nothing
    Set cnn = Nothing

...

Рейтинг:

0 / 0

24.01.2005, 13:08:50

| Ответить | Цитировать | Написать

select в VBA

#32879892

AndrewNico

Гость

Да, забыл, надо:

strSQL = "select company_name from company"

...

Рейтинг:

0 / 0

24.01.2005, 13:12:16

| Ответить | Цитировать | Написать

select в VBA

#32879895

james1982

Гость

большое спасибо
заработало

...

Рейтинг:

0 / 0

24.01.2005, 13:13:19

| Ответить | Цитировать | Написать

select в VBA

#32879933

Программист-Любитель

Участник

Сообщения: 16 772

Рейтинг: 0 / 0

Еще одно преимущество Dlookup помимо объема кода (1 строка против нескольких) - независимость от библиотеки. Использует встроенную ссылку на сам аксесс.

Желаете длинного кода с открытием Recordset'а - вольному воля.

...

Рейтинг:

0 / 0

24.01.2005, 13:28:14

| Ответить | Цитировать | Написать

select в VBA

#32879967

AndrewNico

Гость

Программист-ЛюбительЕще одно преимущество Dlookup помимо объема кода (1 строка против нескольких) - независимость от библиотеки. Использует встроенную ссылку на сам аксесс.

Желаете длинного кода с открытием Recordset'а - вольному воля.

Только один недостаток, возвращает одно конкретное значение.

А человеку, насколько я понял, нужен набор записей. Или я не прав?

...

Рейтинг:

0 / 0

24.01.2005, 13:36:58

| Ответить | Цитировать | Написать

select в VBA

#32879976

Программист-Любитель

Участник

Сообщения: 16 772

Рейтинг: 0 / 0

Он же хотел какое-то конкретное значение перегнать в переменную. Я так понял постановку вопроса.

...

Рейтинг:

0 / 0

24.01.2005, 13:39:56

| Ответить | Цитировать | Написать

select в VBA

#32879994

AndrewNico

Гость

Программист-ЛюбительОн же хотел какое-то конкретное значение перегнать в переменную. Я так понял постановку вопроса.

james1982и потом в цикле перебрать все записи и закинуть в какую нибудь переменную VBA

А мне кажется, вполне может быть:

Код: plaintext

1.
2.
3.
4.
5.
6.

   If Not rst.EOF Then
       While Not rst.EOF
           strBigText = strBigText & ";" & rst!SmallText
           rst.MoveNext
       Wend
    End If

А вообще, если все удовлетворены, какая разница...

...

Рейтинг:

0 / 0

24.01.2005, 13:45:34

| Ответить | Цитировать | Написать

select в VBA

#32880016

Proga

Участник

Откуда: МО

Сообщения: 2 440

Рейтинг: 0 / 0

DlookUP и тонкий клиент несовместимы. Так что он не всегда помогает.
ВОТ.

...

Рейтинг:

0 / 0

24.01.2005, 13:53:47

| Ответить | Цитировать | Написать

select в VBA

#32880111

Программист-Любитель

Участник

Сообщения: 16 772

Рейтинг: 0 / 0

2 Proga: Можно поподробнее ? А то я сам часто такими приемами пользуюсь, да еще другим советую. Насчет подводных граблей не в курсе, был бы рад узнать!

...

Рейтинг:

0 / 0

24.01.2005, 14:18:57

| Ответить | Цитировать | Написать

select в VBA

#32880150

Proga

Участник

Откуда: МО

Сообщения: 2 440

Рейтинг: 0 / 0

Dlookup применим только при доступе юзера к табле, а тонкий клиент запрещает такие действия, а именно, можно юзеру отдать в пользование только исполнять ХП. Чувствуешь разницу. А то найдётся чудо-юзер да и откроет структуру БД, да поламает там всё, из того же ADP, а так он максимум разрешённые ему ХП-шки увидет, так вот.

...

Рейтинг:

0 / 0

24.01.2005, 14:30:05

| Ответить | Цитировать | Написать

select в VBA

#32880160

Proga

Участник

Откуда: МО

Сообщения: 2 440

Рейтинг: 0 / 0

Я например свой собственный DlookUP на серваке написал, и юзаю его как стандартный.

...

Рейтинг:

0 / 0

24.01.2005, 14:32:22

| Ответить | Цитировать | Написать

select в VBA

#32880340

Программист-Любитель

Участник

Сообщения: 16 772

Рейтинг: 0 / 0

Спасибо, буду иметь в виду!

...

Рейтинг:

0 / 0

24.01.2005, 15:25:35

| Ответить | Цитировать | Написать

22 сообщений из 22, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / select в VBA

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32879976&tid=1669098]:	0ms
get settings:	8ms
get forum list:	13ms
check forum access:	2ms
check topic access:	2ms
track hit:	83ms
get topic data:	8ms
get forum data:	2ms
get page messages:	58ms
get tp. blocked users:	1ms
others:	218ms

total:	395ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы