ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вывод названия столбцов таблицы в диалоговое окно vba
25 сообщений из 27, страница 1 из 2
  1  все
вывод названия столбцов таблицы в диалоговое окно vba
    #37978058
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Как вывести на форму vba названия столбцов в выбранной таблице, вывести например в label 1
...
Рейтинг: 0 / 0
01.10.2012, 11:05
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37978126
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
label1.Caption=названия_столбцов_в_выбранной_таблице



какой вопрос, такой ответ.
Когда будет описана среда, о которой идет речь, что подразумевается под термином "таблица" (база данных, рекордсет, грид, таблица в экселе, таблица в ворде и т.п.) и так далее, ответ будет конкретным
...
Рейтинг: 0 / 0
01.10.2012, 11:34
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37978575
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
у меня есть документ ворд, из него запускаю макрос с помощью которого мне необходимо
1. Через диалоговое окно выбрать базу данных Access(это сделал с помощью FileDialog)
2.теперь надо получить название таблиц в базе Access, для дальнейшего отбора.
3. а потом надо получить названия столбцов которые я выберу.
вроде сейчас более подробно!
...
Рейтинг: 0 / 0
01.10.2012, 14:27
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37978582
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
п.п.1,2 уже реализованы?
...
Рейтинг: 0 / 0
01.10.2012, 14:30
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37978589
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Shocker.Pro,
я сделал вот так
Set omm = ActiveDocument.MailMerge
omm.MainDocumentType = wdFormLetters
omm.OpenDataSource Name:=Label1.Caption, Connection:="TABLE Customers"
vrtSelectedItem = omm.OpenDataSource.SelectedItems
End Sub
вывожу уже названия таблиц. но вот как получить название выбранной таблицы в label
...
Рейтинг: 0 / 0
01.10.2012, 14:32
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37978591
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
а шаг 1 сделал полностью
...
Рейтинг: 0 / 0
01.10.2012, 14:33
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37992030
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
sorvall,

Ребята тема актуально возможно есть у кого то мысли?
...
Рейтинг: 0 / 0
10.10.2012, 16:12
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37992485
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
sorvall,

выбор таблицы-списка имен
выбор по like
...
Рейтинг: 0 / 0
10.10.2012, 20:03
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37993138
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
ПЕНСИОНЕРКА,

спасибо, простите за глупый вопрос, у меня word через диалоговое окно я окрываю базу данных и получаю ее адрес, возможно поможешь как действовать дальше что бы загрузить например в выподающий список перечень таблиц, далее из этого списка выбираю необходимую мне таблицу и в следующем списке получить названия столбцов в этой выбранной таблице!!!!
...
Рейтинг: 0 / 0
11.10.2012, 10:32
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37993656
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Ребята если есть идеи выражайте, можно все обсудить!
...
Рейтинг: 0 / 0
11.10.2012, 13:43
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37994104
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
sorvall,


а почему работа на основе ворда --а не родного аксесса
хотя принцип тот-же
--выбор базы
--проход по tabledefs для выбранной базы
--проход по fields для выбранной таблицы

что надо получить в итоге
...
Рейтинг: 0 / 0
11.10.2012, 16:45
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37994178
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
ПЕНСИОНЕРКА,

потому что другая часть программы реализованна в ворде, в итоге мне необходимо получить в переменную строкового типа, названия таблицы и столбцов которые я выбрал, что бы их (эти переменный) в дальнейшем использовать для запроса!
...
Рейтинг: 0 / 0
11.10.2012, 17:19
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37996021
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Рябята нужна помощь!
...
Рейтинг: 0 / 0
12.10.2012, 16:38
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37997992
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Shocker.Pro,
какие идеи?
...
Рейтинг: 0 / 0
15.10.2012, 09:42
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998076
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
MailMerge принципиально? Я с ним не работал
...
Рейтинг: 0 / 0
15.10.2012, 10:23
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998117
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Shocker.Pro,

нет совершенно нет ничего принципиального?
...
Рейтинг: 0 / 0
15.10.2012, 10:45
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998220
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
получить названия столбцов из задачнной таблицы:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim cn As Object, rs As Object, fld As Object, k As String
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB"
rs.Open "select * from orders where 1=2", cn
For Each fld In rs.Fields
  k = k + "," + fld.Name
Next
k = Mid$(k, 2)
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
MsgBox k
...
Рейтинг: 0 / 0
15.10.2012, 11:46
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998277
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Shocker.Pro,

спсибо большое, здесь мы получаем названия столбцов в выбранной таблице, а вот можно еще вопрос необходимо по такому же принципу получить названия таблиц в бд,
может быть что нибудь с помощью SELECT Name FROM MSysObjects WHERE Type = 1???
...
Рейтинг: 0 / 0
15.10.2012, 12:11
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998325
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Тогда это надо либо через DAO (ищите TableDefs) либо через ADOX
Ищите не только a этой ветке форума, а еще и в Visual Basic
...
Рейтинг: 0 / 0
15.10.2012, 12:32
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998335
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
sorvallможет быть что нибудь с помощью SELECT Name FROM MSysObjects WHERE Type = 1???а что мешает?
...
Рейтинг: 0 / 0
15.10.2012, 12:35
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998340
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Shocker.Pro,

пишет записи не могут быть прочитаны; отсутствует разрешение на чтение данных для MSysObjects
...
Рейтинг: 0 / 0
15.10.2012, 12:36
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998531
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Shocker.Pro,

еще необходимо получать названия столбцов как бы "построчно", есть какие нибудь идеи?
...
Рейтинг: 0 / 0
15.10.2012, 13:40
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998646
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
sorvallеще необходимо получать названия столбцов как бы "построчно", есть какие нибудь идеи?ЕСТЬ ИДЕЯ!!!!! Заменить в моем коде запятую на "конец строки"
...
Рейтинг: 0 / 0
15.10.2012, 14:17
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37998883
sorvall
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sorvall
Гость
Shocker.Pro,

я не правильно написал, названия таблиц необходимо получать построчно!
...
Рейтинг: 0 / 0
15.10.2012, 16:09
| Ответить | Цитировать | Написать  
вывод названия столбцов таблицы в диалоговое окно vba
    #37999219
портер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
портер
Гость
АДОКС:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub GetDataBaseTablesNameList()
Dim cat As New ADOX.Catalog
Dim cn As New ADODB.Connection
Dim tbl As ADOX.Table
'Dim rs As ADODB.Recordset
'Dim SQLString As String

Set cn = New ADODB.Connection
cn.Open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB"  
'MsgBox "CONNECTION OPEN"
Set cat.ActiveConnection = cn

Dim i As Integer
For i = 0 To cat.Tables.Count - 1
Cells(i + 1, 2) = cat.Tables(i).Name
Next i
Set cat.ActiveConnection = Nothing
cn.Close
Set cn = Nothing
End Sub
...
Рейтинг: 0 / 0
15.10.2012, 19:42
| Ответить | Цитировать | Написать  
25 сообщений из 27, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вывод названия столбцов таблицы в диалоговое окно vba
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37978589&tid=2175311]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 14ms
total:  154ms
созд. / загр.: 154ms
x
x
Закрыть


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