Criar Estrutura do Histórico via Script

#1

Existe a possibilidade de enviar um comando para criar a estrutura da tabela via script?
Eu estou definindo o nome da tabela baseado em uma condição e após essa definição quero enviar o comando para criar a tabela, mas via script. Existe essa possibilidade?

Olhei a documentação e não tem nada explicito sobre.

#2

Sim, é possível. Um exemplo simples para criar uma tabela em uma banco de dados SQL Express.

Sub CreateTableIfNotExists()

    Dim tableName
    tableName = "SampleTable"

    Dim query
    Set query = Application.GetObject("Data.Query")

    Dim sqlQuery
    sqlQuery = _
        "IF NOT EXISTS ( " & _
        "    SELECT 1 " & _
        "    FROM sys.tables " & _
        "    WHERE name = '" & tableName & "' " & _
        ") " & _
        "BEGIN " & _
        "    CREATE TABLE " & tableName & " ( " & _
        "        Id INT PRIMARY KEY, " & _
        "        Name NVARCHAR(100), " & _
        "        CreatedAt DATETIME " & _
        "    ); " & _
        "END"

    query.SQL = sqlQuery
    query.Execute

End Sub