consultas do Microsoft Access são essencialmente instruções SQL , que realizam operações em bancos de dados. Estas declarações são escritos com , texto não formatado simples, que você pode fazer em qualquer aplicação de processamento de texto ou ambiente, incluindo MS Word e Excel. Convertendo uma consulta em um momento de Word ou Excel para o Access é uma operação simples cut-and- paste. No entanto , a conversão de várias consultas requer a ajuda de um pequeno programa . Crie este programa usando o acesso ambiente de desenvolvimento integrado do Visual Basic . Coisas que você precisa
Microsoft Access
Microsoft Word Microsoft Excel
Show Mais instruções
Converter planilha Excel pela mão
1
Criar um novo Microsoft planilha do Excel e digite ou cole a seguinte declaração em qualquer célula :
SELECT * from GamesTable ONDE GameTitle = " Monopoly ".
2
Abra o Acesso e criar uma base de dados pequena amostra tabela chamada " GamesTable " com o campo " GameTitle " e quaisquer outros campos que você gostaria.
3
Criar algumas linhas de dados de exemplo para a mesa, certificando-se de incluir "Monopoly " para o título de um dos jogos. Pressione "Control -S" para salvar a tabela .
4
Abra uma nova consulta com a tecla " Criar" na barra de ferramentas de acesso , seguido pressionando " Design de Consulta. " ( "Objetos ", pressione seguido de " New " e depois " Consulta ", se você estiver usando o Access 2003 .) Dê um duplo clique no item " GamesTable " na caixa de diálogo " Mostrar tabela " , em seguida, pressione a tecla " Escape" para fechar a caixa .
5
Botão direito do mouse na guia da consulta , que vai exibir " Query1 ", e selecione "SQL View. "
6
Retornar para Excel , em seguida, selecionar e copiar para a área de transferência a instrução SQL que você escreveu anteriormente " (SELECT * from ... ) ".
7
Volte para o acesso " SQL. " Selecionar todo o texto SQL existente, em seguida, cole sobre ele com a tecla " Control- V ".
8
Execute a consulta pressionando o ícone "Run" na barra de ferramentas Access, ou clicando com o botão direito na guia da consulta e selecionando " folha de dados. " Observe que o acesso exibe apenas o jogo que você especificado na instrução SQL que você copiou do Excel.
Converter documento do Word com um Programa
9
converter manualmente consultas a partir do Word usando o os passos dados para o Excel . Substitute "Palavra" para " Excel" que você repita os passos . Ou , execute os seguintes passos para utilizar um programa que irá converter para você muitas instruções SQL ao mesmo tempo.
10
Abra o Word e inserir as seqüências de consulta , uma por linha . Use o seguinte, como consultas de exemplo para a mesa de GamesTable . Verifique se a última linha do documento é a última consulta
Select * from GamesTable ; . SELECIONE * DE GamesTable WHERE ( ( ( GamesTable.GameTitle ) = " Monopoly ")); selecionar GameTitle de GamesTable WHERE ( ( ( GamesTable.GameTitle ) como " * queijos * ")) .
11
Salve o arquivo como texto simples, em seguida, importar o arquivo para o Access. Selecione o caractere "tab" e não o " ponto e vírgula" como delimitador de texto , enquanto a conclusão do assistente de importação. Verifique se o nome da tabela recém- importado é
12
Ativar macros no Access "Select ". : Pressione " Alt- F ", depois clique em " Opções ". Clique em " Central de Confiabilidade ", então o botão " Central de Confiabilidade " . Clique em " Configurações de Macro ", seguido por " Habilitar todas as macros ", em seguida, feche todas as caixas de diálogo abertas . Acesso Feche e abra novamente . Certifique-se de desativar as macros depois de concluir as etapas neste artigo.
13
Pressione " Alt- F11 " e pressione "Insert ", seguido por "Módulo ". Cole este código no módulo: Public Sub
makeQueries ( )
Const cstrQueryName = "Selecionar" Dim dbs Como DAO.DatabaseDim rst Como DAO.RecordsetDim qdf Como QueryDefDim i Como IntegerDim qNameSet dbs = CurrentDbSet rst = dbs.OpenRecordset ( cstrQueryName ) i = 0do Enquanto Não rst.EOFDebug.Print " SQL: " & rst ( " campo1 " ) QNAME = " q" & CStr ( i) Definir qdf = dbs.CreateQueryDef ( QNAME ) qdf.SQL = rst ( " campo1 " ) . Valuerst.MoveNexti = i + 1Looprst.Closedbs.CloseEnd Sub
14
Coloque o cursor em qualquer lugar do programa apenas listados e pressione " F5 " para executar lo . Retornar para Access, fechar e voltar a abrir a janela de navegação para ver as novas consultas (ie, " Q0 " ou "Q1 " ) . Clique duas vezes nas consultas para executá-los.
