как составить строку с именами таблиц / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

как составить строку с именами таблиц

#32570162

MPoil

Участник

Сообщения: 272

Рейтинг: 0 / 0

Здравствуйте,мне необходима ваша помощь
есть строчка string1 необходимо в неё записать все имеющиеся таблицы с названием(*_w).
как это можно сделать?

...

Рейтинг:

0 / 0

21.06.2004, 17:00:26

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

как составить строку с именами таблиц

#32570171

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

dim t as dao.tabledef

with currentdb
for each t in .tabledefs
if t.name like "*_w" then ...

...

Рейтинг:

0 / 0

21.06.2004, 17:02:19

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

как составить строку с именами таблиц

#32570174

paparome

Участник

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

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

Рейтинг: 0 / 0

В цикле пробежаться по CurrentDB.TableDefs, и в строку записать только те таблы, которые удовлетворяют условтю

?

...

Рейтинг:

0 / 0

21.06.2004, 17:02:56

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

как составить строку с именами таблиц

#32570187

MPoil

Участник

Сообщения: 272

Рейтинг: 0 / 0

ага

...

Рейтинг:

0 / 0

21.06.2004, 17:06:48

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

как составить строку с именами таблиц

#32570385

АлексейК

Участник

Откуда: http://www.msdatabase.ru , Moscow

Сообщения: 7 569

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Public Sub testtable()
Dim rs As New ADODB.Recordset
Dim string1

rs.Open "select [name] from MSysObjects where type = 1 and [name] like '%_w' ", CurrentProject.Connection, adOpenStatic, adLockReadOnly
 'По умолчанию через Vbcr
 
string1 = rs.GetString
 'Если надо через запятую
 
string1 = Replace(string1, vbCr, ",", , , vbTextCompare)

Debug.Print string1
End Sub

...

Рейтинг:

0 / 0

21.06.2004, 18:27:30

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

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

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

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

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

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

start [/forum/topic.php?fid=45&msg=32570187&tid=1673689]:	0ms
get settings:	4ms
get forum list:	13ms
check forum access:	2ms
check topic access:	2ms
track hit:	164ms
get topic data:	6ms
get forum data:	2ms
get page messages:	24ms
get tp. blocked users:	1ms
others:	197ms

total:	415ms

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