Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как составить строку с именами таблиц / 5 сообщений из 5, страница 1 из 1
21.06.2004, 17:00:26
    #32570162
MPoil
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как составить строку с именами таблиц
Здравствуйте,мне необходима ваша помощь
есть строчка string1 необходимо в неё записать все имеющиеся таблицы с названием(*_w).
как это можно сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2004, 17:02:19
    #32570171
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как составить строку с именами таблиц
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:56
    #32570174
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как составить строку с именами таблиц
В цикле пробежаться по CurrentDB.TableDefs, и в строку записать только те таблы, которые удовлетворяют условтю

?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2004, 17:06:48
    #32570187
MPoil
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как составить строку с именами таблиц
ага
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.06.2004, 18:27:30
    #32570385
АлексейК
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как составить строку с именами таблиц
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как составить строку с именами таблиц / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 458ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1673689]:
 0ms
get settings:
 7ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 179ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 201ms
total:  458ms
x
x
Закрыть


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