LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 07 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Как распе...
 Тема: Как распечатать конструктор таблицы?
 
 15.06.2007 21:04:08
Валерий3
43 сообщения


Тема: Как распечатать конструктор таблицы?
Мне необходимо распечатать конструктор таблицы типа
Имя поля тип данных описание
Сразу оговорюсь - записей огромная куча - принтскрин не поможет, то что такая большая таблица - я не виноват - переделываю старый и нужно быстрее. Очень нужно именно описание.
Есть архивариус - но там к сожалению нет возможности вывести описание. Очень жаль.
Заранее всем спасибо.


P.S. Общие вопросы по базе данных
Автор: Валерий от 03.06.2003 8:42:57 Источник ...
 15.06.2007 21:04:08
All
4316 сообщения
1-ый


RE: Как распечатать конструктор таблицы?
Используйте метод OpenSchema (connection)


P.S. Общие вопросы по базе данных
Автор: Николай от 0:00:00 Источник ...
 15.06.2007 21:04:08
Валерий3
43 сообщения


RE: Как распечатать конструктор таблицы?
А для чайника - пороще объяснить можно?


P.S. Общие вопросы по базе данных
Автор: Валера от 03.06.2003 13:07:21 Источник ...
 15.06.2007 21:04:08
All
4316 сообщения
1-ый


RE: Как распечатать конструктор таблицы?
Function PrintSchema(TableName As String)
Dim rst As Object
Dim i As Long
Dim vParam(3) As Variant
Dim strTemp As String

vParam(2) = TableName
Set rst = CurrentProject.Connection.OpenSchema(4, vParam)
'первая строка - имена столбцов
For i = 0 To rst.Fields.Count - 1
strTemp = strTemp & rst.Fields(i).Name & ";"
Next i
strTemp = strTemp & Chr(13) & Chr(10)
'разделители столбцов и строк - по желанию
strTemp = strTemp & rst.GetString(, , ";", Chr(13) & Chr(10), "NULL")
'пишем в текстовый файл
i = FreeFile
Open CurrentProject.Path & "\" & TableName & ".txt" For Binary As #i
Put #i, , strTemp
Close #i
'здесь - открывается блокнот, но лучше сделать импорт в Excel (Excel->Данные->Импорт текстового файла
Shell "notepad.exe " & CurrentProject.Path & "\" & TableName & ".txt", vbNormalFocus
End Function



P.S. Общие вопросы по базе данных
Автор: Николай от 0:00:00 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Как распе...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke