Doc ApexSQL - Série: As Melhores Ferramentas de Documentação de Banco de Dados

Ao gerenciar um banco de dados, a documentação nem sempre é a primeira coisa que todos pensam. Além disso, escrever documentação detalhada sobre seus bancos de dados não é tarefa fácil. No entanto, a documentação facilita o acesso a informações importantes mais adiante. Ter um ponto de referência ajudará qualquer pessoa que precise interagir com o banco de dados. Todos, desde arquitetos de banco de dados, desenvolvedores, analistas de negócios e administradores, terão um recurso detalhado para ajudar a entender seus dados.

Por fim, ter um recurso para recorrer significa maior produtividade em sua organização, pois os usuários têm acesso aos dados de que precisam. Usar uma ferramenta de documentação de banco de dados é uma maneira muito eficaz de tornar a documentação.

Só tem tempo para uma rápida olhada? Aqui está a lista das 9 melhores ferramentas de documentação de banco de dados:

Doc ApexSQL Uma ferramenta de documentação de banco de dados para SQL, MySQL, SSIS, SSAS, SSRS e Tableau. Disponível nas versões Developer e DBA.

Documento SQL do RedGate Documenta automaticamente os bancos de dados. Parte do RedGate SQL Toolbelt.

Documentador do dbForge Documentação automatizada para MySQL e MariaDB. Compatível com serviços de banco de dados em nuvem.

Dataedo Cobrindo uma longa lista de sistemas de gerenciamento de banco de dados, esta ferramenta inclui criação de ERD e rastreamento de alterações.

DBScribe Ferramenta de documentação baseada em banco de dados baseada em DDL para MySQL.

SentryOne DOC xPress Um assistente de documentação para o SQL Server. Compre o software imediatamente ou escolha uma assinatura anual.

Documento X da Innovasys Ferramenta de documentação de banco de dados para bancos de dados Oracle, SQL Server, OLE DB e Access.

Database Note Taker - Tomador de Notas do Banco de Dados Visa apoiar os processos de design, criação e manutenção de banco de dados

Separador de código-fonte GenesisOne T-SQL Um gerador de código para permitir a criação automática de script para replicar ou restaurar um banco de dados.

ApexSQL é uma ferramenta de documentação de banco de dados para SQL, MySQL, SSIS, SSAS, e SSRS. O usuário pode criar descrições personalizadas para objetos SQL por meio da GUI. Os layouts de documentos podem ser personalizados, oferecendo aos usuários controle total sobre a estrutura de sua documentação.

Automação e agendamento permite ao usuário criar documentos regularmente sem nenhuma entrada manual. ApexSQL gera documentos em CHM, HTML, PDF, DOC, e DOCX para que a documentação possa ser entregue no formato de sua escolha.

Existem dois pacotes principais disponíveis para compra: Desenvolvedor e DBA. A versão Developer vem com 20 ferramentas, incluindo ApexSQL Analyze, ApexSQL Build, ApexSQL Doc, ApexSQL Script e custa US $ 1.299 (£ 1.003).

A versão DBA vem com 10 ferramentas, como ApexSQL Audit, ApexSQL Backup, ApexSQL Manage e custa US $ 2.499 (£ 1.930) por instância. Você pode se registrar e baixar a versão de avaliação gratuita.

Comente e compartilhe este artigo!

VBA Tips - Embutindo um Documento Word no Excel - Embed Existing Word File to Spreadsheet using Excel VBA

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES

Contate desenvolvedores VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Podemos inserir um documento MS Word numa planilha MS Excel através de um código VBA.

Talvez, quando lê muitos dos tópicos neste Blog, num primeiro momento talvez não consiga entender a praticidade deste. Perceba que as postagens feitas aqui atendem a pelo menos 2 aspectos básicos:

1º - Ampliar a sua visão quanto as funcionalidades possíveis com a suíte MS Office, aproveitando-se da minha experiência de décadas de desenvolvimento com o VBA.

2º - Transmitir-lhe uma perspectiva de como construir um código a partir de uma necessidade pouco comum.

Sub Insert_File_To_sheet()

    Dim oWS As Worksheet ' Worksheet Object

    Dim oOLEWd As OLEObject ' OLE Word Object

    Dim oWD As Document ' Word Document Object (Use Microsoft Word Reference)

    Set oWS = ActiveSheet

    ' embed Word Document

    Set oOLEWd = oWS.OLEObjects.Add(Filename:="C:\VBADUD\Chapter 1.doc")

    Let oOLEWd.Name = "EmbeddedWordDoc"

    Let oOLEWd.Width = 400

    Let oOLEWd.Height = 400

    Let oOLEWd.Top = 30

    ' Assign the OLE Object to Word Object

    Set oWD = oOLEWd.Object

    oWD.Paragraphs.Add

    oWD.Paragraphs(oWD.Paragraphs.Count).Range.InsertAfter "This is a sample embedded word document"

    oOLEWd.Activate

End Sub

Se você desejar incluir um outro tipo de documento, tal como um arquivo PDF, etc, você poderá utilizar o mesmo código abaixo:

ActiveSheet.OLEObjects.Add Filename:= "C:\Bernardes\A&A_Doce_CH01.pdf", Link:=False, DisplayAsIcon:= False

Caso deseje que ao invés do documento ser mostrado, apenas apareça um ícone, poderá mudar o parâmetro DisplayAsIcon para True.

Tags: VBA, Word, Excel, embed, PDF, DOC, XLS,

VBA Powerpoint - Exportando as Notas de texto do MS Powerpoint - Export the notes text of a PowerPoint presentation

| Blog Office VBA | Blog Excel | Blog Access |

Não é incomum termos clientes que criam apresentações no MS Powerpoint que são incríveis. Durante as suas apresentações utilizam como recurso as anotações feitas nos Slides.

Como podemos exportar estas anotações para que os nossos clientes possam estudá-las mais confortavelmente?

Sub ExpNotesTxt()

    Dim oSlides As Slides

    Dim oSl As Slide

    Dim oSh As Shape

    Dim strNotesText As String

    Dim strFileName As String

    Dim intFileNum As Integer

    Dim lngReturn As Long

    ' Get a filename to store the collected text

    strFileName = InputBox("Enter the full path and name of file to extract notes text to", "Output file?")

    ' did user cancel?

    If strFileName = "" Then

        Exit Sub

    End If

    ' is the path valid?  crude but effective test:  try to create the file.

    intFileNum = FreeFile()

    On Error Resume Next

    Open strFileName For Output As intFileNum

    If Err.Number <> 0 Then     ' we have a problem

        MsgBox "Couldn't create the file: " & strFileName & vbCrLf _

            & "Please try again."

        Exit Sub

    End If

    Close #intFileNum  ' temporarily

    ' Get the notes text

    Set oSlides = ActivePresentation.Slides

    For Each oSl In oSlides

        For Each oSh In oSl.NotesPage.Shapes

        If oSh.PlaceholderFormat.Type = ppPlaceholderBody Then

            If oSh.HasTextFrame Then

                If oSh.TextFrame.HasText Then

                    strNotesText = strNotesText & "Slide: " & CStr(oSl.SlideIndex) & vbCrLf _

                    & oSh.TextFrame.TextRange.Text & vbCrLf & vbCrLf

                End If

            End If

        End If

        Next oSh

    Next oSl

    ' now write the text to file

    Open strFileName For Output As intFileNum

    Print #intFileNum, strNotesText

    Close #intFileNum

    ' show what we've done

    lngReturn = Shell("NOTEPAD.EXE " & strFileName, vbNormalFocus)

End Sub

Reference: 

Tags: VBA, Word, export, PDF, DOC, 

VBA Word - Como criar um documento PDF a partir do MS Word - How to Create PDF from Word Document using VBA

| Blog Office VBA | Blog Excel | Blog Access |

Converter um documento do MS Word no formato PDF também serve para que inúmeras outras pessoas possam visuálizá-los sem que estes tenham instalados em suas máquinas a suíte MS Office, ou um Reader específico.

Sub ConToPdf()

ActiveDocument.ExportAsFixedFormat OutputFileName:= _ActiveDocument.Path & "\" & ActiveDocument.Name & ".pdf", ExportFormat:= _wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _wdExportOptimizeForPrint, Range:=wdExportAllDocument, _Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _BitmapMissingFonts:=True, UseISO19005_1:=False

End Sub

Tags: VBA, Word, export, PDF, DOC

VBA Excel - Acompanhando a utilização massiva de planilha.

No nosso dia-a-dia existem planilhas que são massivamente usadas por vários usuários, por vezes simultaneamente, noutras ocorre um entra e sai extenuante de diversos usuários diferentes.

Em Thisworkbook, coloque:

Private Sub Workbook_Open()

    If ThisWorkbook.ReadOnly Then        DisplayCurrentUser
    Else        LogCurrentUser ' log the last user information
        ' or add the last user information to the log history
        LogThisUserAction "Opened"    End If

End Sub

Sub Workbook_BeforeClose (Cancel As Boolean)

    If Not ThisWorkbook.ReadOnly Then        KillCurrentUserLog ' delete the last user information
    End If
    ' or add the last user information to the log history
    LogThisUserAction "Closed"

End Sub

Crie um módulo com o nome de mdl_LogUserHistory, cole o código abaixo:

' Author: Ole P. Erlandsen

Option Explicit

' API declarations

Declare Function GetComputerName Lib "kernel32" _

    Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Declare Function GetUserName Lib "advapi32.dll" _

    Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub LogCurrentUser()

' writes information to the logfile, you can call this from the Workbook_Open procedure

Dim f As Integer, LogFile As String

    LogFile = ThisWorkbookLogFileName

    If Len(LogFile) = 0 Then Exit Sub ' workbook not saved yet...

    f = FreeFile

    On Error Resume Next ' ignores any logging errors

    Open LogFile For Output As #f

    Write #f, Format(Now, "yyyy-mm-dd hh:mm:ss"), Application.UserName, _

        ReturnUserName, ReturnComputerName

    Close #f

    On Error GoTo 0

End Sub

Sub KillCurrentUserLog()

' deletes the logfile, you can call this from the Workbook_BeforeClose procedure

Dim LogFile As String

    LogFile = ThisWorkbookLogFileName

    On Error Resume Next

    Kill LogFile

    On Error GoTo 0

End Sub

Sub DisplayCurrentUser()

' displays the information in the log file

Dim f As Integer, LogFile As String

Dim strDateTime As String, strAppUserName As String

Dim strUserID As String, strComputerName As String

    LogFile = ThisWorkbookLogFileName

    If Len(LogFile) = 0 Then Exit Sub ' workbook not saved yet...

    f = FreeFile

    On Error Resume Next ' ignores any logging errors

    Open LogFile For Input Access Read Shared As #f

    Input #f, strDateTime, strAppUserName, strUserID, strComputerName

    Close #f

    On Error GoTo 0

    MsgBox "User name: " & strAppUserName & Chr(13) & _

        "UserID: " & strUserID & Chr(13) & _

        "Computer name: " & strComputerName & Chr(13) & _

        "Date/time: " & strDateTime & Chr(13), _

        vbInformation, ThisWorkbook.Name & " is in use by:"

End Sub

Function ThisWorkbookLogFileName() As String

' returns the filename used for logging information

    ThisWorkbookLogFileName = ""

    If Len(ThisWorkbook.Path) = 0 Then Exit Function

    ThisWorkbookLogFileName = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 3) & "log"

End Function

Function ReturnComputerName() As String

' returns the computer name

Dim rString As String * 255, sLen As Long, tString As String

    tString = ""

    On Error Resume Next

    sLen = GetComputerName(rString, 255)

    sLen = InStr(1, rString, Chr(0))

    If sLen > 0 Then

        tString = Left(rString, sLen - 1)

    Else

        tString = rString

    End If

    On Error GoTo 0

    ReturnComputerName = UCase(Trim(tString))

End Function

Function ReturnUserName() As String

' returns the Domain User Name

Dim rString As String * 255, sLen As Long, tString As String

    tString = ""

    On Error Resume Next

    sLen = GetUserName(rString, 255)

    sLen = InStr(1, rString, Chr(0))

    If sLen > 0 Then

        tString = Left(rString, sLen - 1)

    Else

        tString = rString

    End If

    On Error GoTo 0

    ReturnUserName = UCase(Trim(tString))

End Function

Crie outro módulo com o nome de mdl_LogCurrentUser, cole o código abaixo:

' Author: Ole P. Erlandsen

Option Explicit

' API declarations

Declare Function GetComputerName Lib "kernel32" _

    Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

    

Declare Function GetUserName Lib "advapi32.dll" _

    Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub LogThisUserAction(Action As String)

' writes information to the logfile, you can call this from the Workbook_Open procedure

Dim f As Integer, LogFile As String

    LogFile = ThisWorkbookLogFileName

    If Len(LogFile) = 0 Then Exit Sub ' workbook not saved yet...

    f = FreeFile

    On Error Resume Next ' ignores any logging errors

    Open LogFile For Append As #f

    Write #f, Format(Now, "yyyy-mm-dd hh:mm:ss"), Application.UserName, _

        ReturnUserName, ReturnComputerName, Action

    Close #f

    On Error GoTo 0

End Sub

Sub DisplayLastUserAction()

' displays the last line of information in the log file

Dim f As Integer, LogFile As String

Dim strDateTime As String, strAppUserName As String

Dim strUserID As String, strComputerName As String

    LogFile = ThisWorkbookLogFileName

    If Len(LogFile) = 0 Then Exit Sub ' workbook not saved yet...

    f = FreeFile

    On Error Resume Next ' ignores any logging errors

    Open LogFile For Input Access Read Shared As #f

    Do While Not EOF(f)

        Input #f, strDateTime, strAppUserName, strUserID, strComputerName

    Loop ' until the last line is read

    Close #f

    On Error GoTo 0

    MsgBox "User name: " & strAppUserName & Chr(13) & _

        "UserID: " & strUserID & Chr(13) & _

        "Computer name: " & strComputerName & Chr(13) & _

        "Date/time: " & strDateTime & Chr(13), _

        vbInformation, "Last User Action:"

End Sub

Function ThisWorkbookLogFileName () As String

' returns the filename used for logging information

    ThisWorkbookLogFileName = ""

    If Len(ThisWorkbook.Path) = 0 Then Exit Function

    ThisWorkbookLogFileName = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 3) & "txt"

End Function

Function ReturnComputerName() As String

' returns the computer name

Dim rString As String * 255, sLen As Long, tString As String

    tString = ""

    On Error Resume Next

    sLen = GetComputerName(rString, 255)

    sLen = InStr(1, rString, Chr(0))

    If sLen > 0 Then

        tString = Left(rString, sLen - 1)

    Else

        tString = rString

    End If

    On Error GoTo 0

    ReturnComputerName = UCase(Trim(tString))

End Function

Function ReturnUserName() As String

' returns the Domain User Name

Dim rString As String * 255, sLen As Long, tString As String

    tString = ""

    On Error Resume Next

    sLen = GetUserName(rString, 255)

    sLen = InStr(1, rString, Chr(0))

    If sLen > 0 Then

        tString = Left(rString, sLen - 1)

    Else

        tString = rString

    End If

    On Error GoTo 0

    ReturnUserName = UCase(Trim(tString))

End Function

Function AC (Row As Boolean) As Long

    ' returns the row- or columnnumber for the active cell

    

    Let AC = 0

    

    On Error Resume Next

    

    If Row Then

        Let AC = ActiveCell.Row

    Else

        Let AC = ActiveCell.Column

    End If

End Function

Tags: Excel, udf, doc, documentation, log, security, API, dll

André Luiz Bernardes

A&A® - In Any Place.

VBA Blogs

  

   

  

bernardes@.com