✔ Programação GLOBAL®: VBA Access - Criando tabelas temporárias no Banco de dados MS Access - Creating temporary tables in MS Access DB

DESENVOLVO APLICAÇÕES VBA

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

Não é raro necessitarmos de tabelas temporárias para fazermos testes, mas como criá-las?

SELECT * INTO tempTable FROM myTable WHERE myTable.id_MyTable IS NULL

INSERT INTO myTable SELECT * FROM tempTable

DROP temptable

SELECT "X" AS MyId, 1 AS F1, 1 AS f2 INTO MyTempTable

Para simular os demais testes abaixo, certifique-se de abrir o Northwind, nosso banco de dados de exemplo.

Este exemplo cria uma nova tabela chamada 'ThisTable' com 2 campos texto.

Sub CreateTableX1()

Dim dbs As Database

' Modifique este linha para incluir o path do Northwind no seu computador.

Set dbs = OpenDatabase("Northwind.mdb")

' Cria uma tabela com 2 campos texto.

dbs.Execute "CREATE TABLE ThisTable " _

& "(FirstName CHAR, LastName CHAR);"

dbs.Close

End Sub

O exemplo abaixo cria uma nova tabela chamada 'MyTable' com 2 campos texto, um campo Date/Time, e um único índice para os três campos.

Sub CreateTableX2()

Dim dbs As Database

' Modifique este linha para incluir o path do Northwind no seu computador.

Set dbs = OpenDatabase("Northwind.mdb")

' Cria uma tabela com três campos e u múnico índice para os três.

dbs.Execute "CREATE TABLE MyTable " _

& "(FirstName CHAR, LastName CHAR, " _

& "DateOfBirth DATETIME, " _

& "CONSTRAINT MyTableConstraint UNIQUE " _

& "(FirstName, LastName, DateOfBirth));"

dbs.Close

End Sub

O exemplo abaixo cria uma nova tabela chamada 'MyTable' com 2 campos texto e um campo Integer. O campo 'SSN' contém a chave primária (primary key).

Sub CreateTableX3()

Dim dbs As Database

' Modifique este linha para incluir o path do Northwind no seu computador.

Set dbs = OpenDatabase("Northwind.mdb")

' Cria uam tabela com três campo e uma chave primária (primary key).

dbs.Execute "CREATE TABLE NewTable " _

& "(FirstName CHAR, LastName CHAR, " _

& "SSN INTEGER CONSTRAINT MyFieldConstraint " _

& "PRIMARY KEY);"

dbs.Close

End Sub

Também poderíamos criar um função que copiasse uma tabela sem os seus registros.

Public Sub subCreateTableCopy(strTableName As String)

' Cria a cópia temporária de uma tabela com o prefixo 'temp'

Dim dbs As Database

Dim tdf As TableDef

Dim strTempTable As String

On Error GoTo Error_subCreateTableCopy

Set dbs = CurrentDb

Let strTempTable = "temp" & strTableName

' Checa se a tabela existe e deleta-a

For Each tdf In dbs.TableDefs

If tdf.Name = strTempTable Then

DoCmd.DeleteObject acTable, strTempTable

GoTo DeletedTable

End If

Next

' Cria a cópia da tabela antes de atualizá-la.

DeletedTable:

DoCmd.CopyObject , strTempTable, acTable, strTableName ' Create the copy

Exit_subCreateTableCopy:

Exit Sub

Error_subCreateTableCopy:

MsgBox "Erro " & Err.Number & " - " & Err.Description

Resume Exit_subCreateTableCopy