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



какой вопрос, такой ответ.
Когда будет описана среда, о которой идет речь, что подразумевается под термином "таблица" (база данных, рекордсет, грид, таблица в экселе, таблица в ворде и т.п.) и так далее, ответ будет конкретным
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2012, 14:27
    #37978575
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вывод названия столбцов таблицы в диалоговое окно vba
у меня есть документ ворд, из него запускаю макрос с помощью которого мне необходимо
1. Через диалоговое окно выбрать базу данных Access(это сделал с помощью FileDialog)
2.теперь надо получить название таблиц в базе Access, для дальнейшего отбора.
3. а потом надо получить названия столбцов которые я выберу.
вроде сейчас более подробно!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2012, 14:30
    #37978582
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вывод названия столбцов таблицы в диалоговое окно vba
п.п.1,2 уже реализованы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2012, 14:32
    #37978589
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вывод названия столбцов таблицы в диалоговое окно vba
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:33
    #37978591
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вывод названия столбцов таблицы в диалоговое окно vba
а шаг 1 сделал полностью
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2012, 16:12
    #37992030
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вывод названия столбцов таблицы в диалоговое окно vba
sorvall,

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

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

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


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

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

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

нет совершенно нет ничего принципиального?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2012, 11:46
    #37998220
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вывод названия столбцов таблицы в диалоговое окно vba
получить названия столбцов из задачнной таблицы:
Код: 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, 12:11
    #37998277
sorvall
sorvall
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вывод названия столбцов таблицы в диалоговое окно vba
Shocker.Pro,

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

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

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

я не правильно написал, названия таблиц необходимо получать построчно!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2012, 19:42
    #37999219
портер
портер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вывод названия столбцов таблицы в диалоговое окно vba
АДОКС:
Код: 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
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / вывод названия столбцов таблицы в диалоговое окно vba / 25 сообщений из 27, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 475ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2175311]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 343ms
total:  475ms
x
x
Закрыть


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