Pergunta : Pergunta do SQL para selecionar todas as tabelas de uma base de dados do acesso

Nós temos um app que faça uma conexão VELHO a qualquer tipo da base de dados (usuário do MS SQL, Oracle, MySQL, etc.) e pergunte que tabelas estão atuais nessa base de dados. Normalmente este é algo como: o
SELECT TABLE_NAME de INFORMATION_SCHEMA.TABLES

Can qualquer um dá-me o equivalente para uma base de dados do acesso porque este não trabalha?


Also para começ as colunas atuais em uma tabela que específica nós nos usamos:
SELECT COLUMN_NAME de INFORMATION_SCHEMA.COLUMNS ONDE (TABLE_NAME = do “o ")

Does qualquer um myTableName sabem o que este seria para Acces?
class= do

Resposta : Pergunta do SQL para selecionar todas as tabelas de uma base de dados do acesso

http://www.eraserve.com/tutorials/MS_ACCESS_VBA_Get_All_Fields.asp

Não consideravelmente, mas se você cria esta função de VBA em um módulo, você pode usar este

SELECIONAR o nome, GetFields (o nome)
De MSysObjects
ONDE datilografar DENTRO (1, 4, 6)
ORDEM por Nome;
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
Função GetFields (ByVal TableName como a corda) como a corda

   'Referências: Biblioteca de objeto de Microsoft Access 11.0, biblioteca de objeto de Microsoft DAO 3.6
   'Ajustar referências estalando ferramentas e então referências na janela da opinião do código
   'Retorna todos os nomes de campo que existem na tabela TableName.
   'Aceita
   'TableName: Nome da tabela em que os campos são ficados situados
   'Retorna todos os nomes de campo, zero de outra maneira
   'USO: GetFields “TABLENAME”

   No errhandler empreendedores do erro

   DB não ofuscante como DAO.Database
   Tdf não ofuscante como DAO.TableDef
   Fld não ofuscante como DAO.Field
   strField não ofuscante como a corda


   Ajustar DB = CurrentDb

   Ajustar o tdf = o db.TableDefs (TableName)

   'Dar laços através de todos os campos (as colunas)
   Para cada fld no tdf. Campos

      strField = strField & fld. Nome & “,” 'garra o nome de campo

   Em seguida

   'Retornar os nomes de campo
   GetFields = strField
   'Se nenhuns erros
ExitHere:
   Ajustar o fld = nada
   Ajustar o tdf = nada
   Ajustar DB = nada

   'Notificar o usuário que o processo está completo.
'   MsgBox do “cópia registro completa”
   Retirar a função

errhandler:
   'Há um retorno do erro como o zero
   GetFields = “erro” & Err.Number & vbCrLf & Err.Description

   Com errar
'      MsgBox “erro” &. Número & vbCrLf &. Descrição, _
'            vbOKOnly ou vbCritical, “GetFields”
   Extremidade com

   Resumo ExitHere

Função do fim
Outras soluções  
 
programming4us programming4us