Описатель таблиц баз SQL сервера

[Antonariy]

Небольшая утилитка, экономящая время при составлении документации на базу данных. Создает документ Word с оглавлением и описанием таблиц и их полей (название, тип). Исходники прилагаются.

[alibek]

Э...
Не хотел бы тебя расстраивать, но видел ли ты в Access утилиту (меню Tools) "Архивариус"?

[Antonariy]

Посмотрел и не расстроился
Архивариус выдает слишком много инфы из-за чего страшно тормозит. Кроме того работает только с аксессом.
Утилитка делалась для смыслового описания, а не технического, детали всегда можно узнать заглянув в саму базу. Имеет смысл добавить разве что null/не null, ключи и индексы.

[Konst_One]

названия таблиц с символом подчеркивание (_) неправильно прописываются в оглавлении

[Konst_One]

и еще, не запоминается имя сервера при повторном открытии программы

[Konst_One]

описания не вытаскивает из MS_Description

[Antonariy]

Теперь прописывает, запоминает, вытаскивает.

[Konst_One]

вот, отлично просто
за новые кнопочки - особый респект
теперь неплохо было бы сюда добавить вывод свойства "Allow Nulls"

[Konst_One]

в заголовок документа надо добавить имя базы
и после каждой таблицы ее комментарий из MS_Description (если есть таковой)

[Ramzes]

Думаю, сначала нужно сформировать документ, а затем все разом в него вставить, так быстрее получится (во всяком случае мне так кажется)Ы а то у меня БД очень, очень большая....думаю делать будет минут 30 не меньше

[Antonariy]

Думаю, сначала нужно сформировать документ, а затем все разом в него вставить

Ты предлагаешь сформировать в буфере обмена вордовскую структуру? Ну-ну. Примерчик дай, а я подумаю.

[Antonariy]

Имя базы добавляет, nulls отображает, описание таблиц вытаскивает.
А так же выводит референсы, ключи, индексы (в т. ч. составные), их свойства.
Ну и еще: после первой проверки соединения вытаскивает (если возможно) список баз в комбобокс, исключая системные.

[Konst_One]

имя базы какое-то странное:

Описание базы данных cbDB

на счет индексов не понял как работает, у меня ничего не показывает

[Konst_One]

а понял, индексы в описание выводит только если нет описателя MS_Description. наверное их стоит всегда выводить, а уж потом и описание ,если есть.

[Twister]

Полезная тулза. По крайней мере она мне пригодилась - сам хотел писать что-то подобное.
Совет по теме - можно добавить такую фичу, как стандартный диалог настройки соединения с базой.
Вопрос по теме - как он вызывается?

[Konst_One]

Код: Выделить всё

Private Sub cmdConnect_Click()
On Error GoTo err_debug
Dim dl As MSDASC.DataLinks
Dim b As Boolean

    Set cn = New ADODB.Connection
    cn.ConnectionString = VBA.GetSetting(App.Title, "Connect", "ConnectionString", gConnStr)
    Set dl = New MSDASC.DataLinks
    b = dl.PromptEdit(cn)
    If b Then
        cn.Open
        Me.shpOpen.FillColor = vbGreen
        Me.txtConnect = cn.ConnectionString
        VBA.SaveSetting App.Title, "Connect", "ConnectionString", cn.ConnectionString
    End If
lb_out:
    Me.cmdExecute.Enabled = Not (cn Is Nothing)
    Me.cmdSave.Enabled = Not (cn Is Nothing)
    Set dl = Nothing
    Exit Sub
   
err_debug:
    Set cn = Nothing
    MsgBox Err.Number & ":" & Err.Description & vbCrLf & _
           " on line: " & Erl, vbCritical
    Resume lb_out
   
End Sub

[Twister]

Спасибо.
А как это будет выглядеть на АСМе или Делфях (интересует API реализация)?

[Konst_One]

не знаю, а зачем API?
на дельфях можешь юзать тот-же com-объект

[Twister]

а зачем API?

Так привычней.

на дельфях можешь юзать тот-же com-объект

Ну и на АСМе тоже.

[alibek]

Работать с COM? Через API?

[Antonariy]

имя базы какое-то странное:

Описание базы данных cbDB

Принял к сведению.

наверное их стоит всегда выводить, а уж потом и описание ,если есть.

На самом деле так и работает.

Совет по теме - можно добавить такую фичу, как стандартный диалог настройки соединения с базой.

Пока программа работает только с SQL сервером, нет смысла в этом диалоге. Кроме того, ADOX работает по-разному с разными строками подключеня. В данном случае используется

Код: Выделить всё

"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & cbDB.Text & ";Data Source=" & txtServer.Text & ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;"

А если использовать

Код: Выделить всё

"Driver={SQL Server};Database=" & cbDB.Text & ";Server=" & txtServer.Text

то ADOX не может плучить информацию о ключах и индексах.