Eu tenho usado o VBA para examinar todas as consultas, formulários e módulos no meu banco de dados Access 2000, mas pode ser bastante tedioso e lento. Recentemente, eu decidi examinar mais de perto as tabelas do sistema no Access, em particular, MSysQueries e MSysObjects. Posso usar essas tabelas para examinar meus objetos no banco de dados mais rápido. Claro, essas tabelas são somente leitura, então eu não posso fazer modificações no banco de dados através delas sem retornar ao VBA. O que significam os atributos no MSysQueries 26 de junho às 19:52 Bem, encontrei esta publicação nos grupos do Google. Eu fiz uma investigação mais aprofundada em minhas próprias mesas e queria compartilhar uma tabela de informações que criei inspirada pelo trabalho já feito. Cada consulta pode ocupar várias linhas na tabela. A linha com atributo 0 é o início da consulta. A linha com o atributo 1 indica o tipo da consulta. Valor da bandeira 1 consulta SELECT. Valor da bandeira 2 SELECIONE. Consulta INTO ou uma consulta de tabela de criação. Name1 terá o nome da tabela que é criada. Valor da bandeira 3 Consulta INSERT O nome1 terá o nome da tabela a ser inserida. Valor da bandeira 4 Consulta UPDATE Valor da bandeira 5 DELETE da consulta Valor da bandeira 6 Consulta de tabela cruzada (TRANSFORMAR) Valor da bandeira 9 Consulta UNION As linhas com o atributo 2 (pode ser múltiplo) são cada parâmetro formal da consulta. A coluna Bandeira indica o tipo de dados (ou seja, 10 para dbText) e a coluna Nome1 indica o nome do parâmetro. Se não houver linhas com o atributo 2, a consulta não possui parâmetros formais. A linha com atributo 3 indica a presença de palavras-chave UNION ou DISTINCT. Valor da bandeira 0 Nada especial Valor da bandeira 1 UNION ALL Valor da bandeira 2 SELECIONAR DISTINCT Valor da bandeira 3 UNION Valor da bandeira 8 SELECIONAR DISTINCTROW Valor da bandeira 9 Consultas nos campos mestres e campos filho A linha com o atributo 4 indica se a consulta vem de um banco de dados externo. Name1 conterá a fonte se o atributo 4 existir. As linhas com o atributo 5 (pode ser múltiplo) indicam cada tabela encontrada na consulta. Se a consulta for uma consulta UNION, o campo Expressão tem uma divisão na palavra-chave UNION e o campo Name2 possui um alias de tabela gerado pelo sistema. Para todas as outras tabelas em uma consulta, Name1 é o nome da tabela e Name2 é o alias, se houver. As linhas com o atributo 6 (pode ser múltiplo) indicam cada campo ou expressão única na consulta. Se não houver nenhum atributo 6 para a consulta, o comportamento assumido é que todos os campos estão incluídos. O campo Expressão contém cada expressão de campo ou nome, e Name1 contém o alias de campo se houver um. Valor da bandeira 0 Valor do campo ou expressão Valor da bandeira 1 O campo é um cabeçalho da coluna em uma consulta de tabela de referência cruzada. Valor de bandeira 2 O campo é um cabeçalho de linha em uma consulta de tabela de referência cruzada. As linhas com o atributo 7 (pode ser múltiplo) indicam cada expressão de união ON. O campo Expression contém a expressão de junção real. Name1 contém a primeira tabela na junção. O nome2 contém a segunda tabela na junção. Valor de bandeira 1 Valor de bandeira de união interna 2 Valor de bandeira de seta esquerda 3 Direito de associação A linha com atributo 8 contém a cláusula WHERE inteira no campo Expressão. Se não houver nenhuma cláusula where, o atributo 8 é omitido na consulta. As linhas com o atributo 9 (pode ser múltiplo) indicam cada expressão de Grupo por na cláusula GROUP BY da consulta. O campo Expressão contém cada grupo por expressão. Valor da bandeira 0 Valor do campo ou expressão Valor da bandeira 1 O campo é um cabeçalho da coluna em uma consulta de tabela de referência cruzada. Valor de bandeira 2 O campo é um cabeçalho de linha em uma consulta de tabela de referência cruzada. As linhas com o atributo 11 (pode ser múltiplo) indicam cada expressão Ordem por na cláusula ORDER BY da consulta. O campo Expressão contém cada ordem por expressão. Name1 tem D ou d para indicar que o tipo é feito em ordem decrescente. A linha com o atributo 255 é o fim da consulta. Não sei exatamente o que o campo Order faz, mas achei que não é Nulo, e embora às vezes tenha um valor de uma string vazia, ele sempre não tem esse valor. Cadeias vazias ocorrem nos atributos 5, 6, 7 e 9, mas nem sempre é uma string vazia para esses atributos. Além das respostas Bobort e iDevlops: a linha com o atributo 1 indica o tipo da consulta. Valor da bandeira 7 Consulta DDL (por exemplo, CREAR TABELA). Valor da bandeira 9 Passar através da consulta A linha com o atributo 3 indica o predicado. Valor da bandeira 1 Todos os valores ou UNION ALL (se uma consulta UNION) Valor do sinalizador 4 COM OPÇÃO DO PROPRIETÁRIO Valor da bandeira 16 TOP N Valor do sinalizador 48 TOP N PERCENT As linhas com o atributo 5 (pode haver múltiplo) indicam cada QUALQUER tabela encontrada no Consulta Expressão contém a fonte FROM ou a instrução SELECT se uma consulta UNION A linha com atributo 10 contém toda a cláusula HAVING no campo Expressão. Se não houver nenhuma cláusula HAVING, o atributo 10 é omitido na consulta. O campo Ordem é um valor binário BIG-ENDIAN que contém uma matriz de 4 bytes (campos binários podem ser adicionados com VBA, mas não podem ser adicionados usando a interface do usuário, a menos que você copie e cole de um campo binário em uma tabela de sistema.) No entanto , Na maioria dos bancos de dados, na tabela MSysQueries, é improvável que você encontre valores binários maiores que 255, então você pode atacar a conversão para um byte inspecionando o byte no índice 3. Por exemplo: respondido em 8 de julho 16 às 5: 08FX Opção simples Opções européias e americanas Identifica moeda e quantia de colocação e chamada, estilo de exercício, informação premium Premium estruturado similar. Apresentação no tema: Opção FX simples Opções européias e americanas Identifica moeda e quantia de colocação e chamada, estilo de exercício, informação premium Premium estruturado similar. Transcrição de apresentação: 1 Opção simples de FX Opções européias e americanas Identifica moeda e valor de colocação e chamada, estilo de exercício, informação premium Prêmio estruturado semelhante a uma moeda trocada para um comércio FX, incluindo informações de liquidação opcionais para o prémio Opcional citadaA estrutura que descreve como a opção foi Originalmente citado 4 opções FX Non Deliverable (NDO) Suportado no nó CashSettlement, que é idêntico à estrutura dentro de uma opção convencional padrão NDF 5 FX Option convencional que muda se a barreira for atingida Única e várias barreiras suportadas Preço de golpe e preço de barreira Opcional Esquema de tipo de barreira permite a diferenciação entre knock-in, knock-out, knock-in reversa, knock-out reverso Taxa spot de referência opcional mas recomendada (determina se a opção precisa subir ou descer para atingir a barreira) O pagamento opcional acomoda descontos 7 Opções Digitais Binárias FX Opções que têm perfis de pagamento descontínuos (ou seja, paga fora Montante fixo se satisfaz o gatilho, de outra forma, não paga nada). Diferentemente das opções padrão, os valores apresentados são valores de pagamento em oposição às opções digitais nocionais subjacentes tipicamente definidas como européias, o que significa que o pagamento ocorre apenas se a taxa spot for superior ou inferior ao nível de disparo na data de expiração Digital , Alcance digital suportado As opções binárias são mais semelhantes às opções americanas (o pagamento ocorre a qualquer momento até a data de expiração) One-touch, no-touch, double-one, double no-touch suportado 11 FX Average Rate (ou Asian) Option Payout com base em Preço médio do subjacente, geralmente (mas não necessariamente) ao longo da vida da opção Permite a representação paramétrica do cronograma de média ou a especificação de cada período de média (incluindo o fator de ponderação) Suporta observações observadas anteriormenteSetando as opções do módulo Microsoft Access VBA corretamente Configurações de opção Na seção Declarações de Módulos e Classes Na seção de declarações superiores de cada módulo e classe, o VBA possui opções Para especificar a forma como o MS AccessOffice (e VB6) deve se comportar. Mesmo que estes sejam muito importantes, os desenvolvedores VBAVB6 mais experientes usam as opções padrão e raramente pensam nelas. No entanto, se você está assumindo ou depurando o código de alguém, seus módulos podem não ter essas configurações, o que pode levar a uma confusão desnecessária quando o código não se comporta da maneira que você espera. Portanto, é importante conhecê-los, o que eles fazem e como usá-los melhor. Na verdade, estamos apresentando quatro dicas importantes: Dica 1: Exigir opção de declaração variável Explicit é o mais importante. Option Explicit requer que todas as variáveis e constantes sejam declaradas (definidas) antes de usá-las. As variáveis podem ser declaradas através de declarações Dim e Static em procedimentos e os comandos Global e Privado na seção Declarações. Ao exigir essas declarações de variáveis, o VBA pode capturar erros, como erros de digitação quando você compila ao invés de quando o código quebrado é executado. Ser capaz de gerar erros de tempo de compilação em vez de erros de tempo de execução é uma parte fundamental da escrita de um código melhor. A opção Explicit é automaticamente adicionada ao seu código se você tiver declarações variáveis ativadas. Por padrão, o AccessOffice é enviado com esta opção desativada, portanto, assegure-se de ativá-la. Para configurá-lo, a partir do IDE VBA, vá no menu Ferramentas, Opções e na guia Editor: Ferramentas VBA, menu Opções: Exigir declaração de variável deve ser verificado Certifique-se de que a configuração quotRequire Variable Declarationquot esteja marcada. Quando isso é verificado, toda vez que você cria um novo módulo ou classe, a linha Explicitquot QuotOption está incluída. Dica adicional Você também deve desligar a opção Auto Syntax Check para que o editor não o apresente e pare quando você deixar uma linha que não está completa. Dica 2: Verifique e adicione a opção Explicit aos módulos que faltam Você pode passar manualmente por cada módulo (incluindo o código por trás de formulários e relatórios) para verificar se o comando Option Explicit é especificado e adicioná-lo se estiver faltando. Para uma abordagem mais automatizada para garantir que todos os módulos do seu aplicativo tenham especificado Option Explicit, use o nosso produto Total Visual CodeTools. Uma das muitas opções em seu recurso VBA Module Code Cleanup é adicionar quotOption Explicitquot a cada módulo que não possui. Ele também pode padronizar suas indentações e adicionar seu código de tratamento de erros personalizado a procedimentos que não possuem manipulação de erros. Como parte de sua análise de código detalhada, o nosso analisador de acesso total detecta e sinaliza módulos sem Option Explicit para que você possa abordá-lo. Esta é apenas uma das 300 Práticas recomendadas detectadas pelo Total Access Analyzer. Dica 3: Certifique-se de que a opção Compare é Definir corretamente. A Opção Compare especifica como as comparações de cordas são avaliadas no módulo, como comparações sensíveis a maiúsculas e minúsculas (por exemplo, quotAquot quotaquot seja True ou False). Por padrão, o AccessVBA usa: Esta é uma comparação insensível de maiúsculas e minúsculas e respeita a ordem de classificação do banco de dados. No VB, que não possui a opção Banco de Dados, é igual à opção Texto: isso significa quotAquot quotaquot, que são ambos inferiores a quotBquot. Para comparações exatas (sensíveis a maiúsculas de minúsculas), então quotAquot não é o mesmo que quotaquot, use: Se você está arruinando o código e confundido, porque você não consegue entender a comparação de texto aparentemente válida falhando quando funciona em outro módulo, certifique-se de verificar os módulos Option Compare configuração. Por exemplo, se o valor abaixo for quotYESquot, a avaliação abaixo difere com base na configuração de comparação de opções: Em geral, você deve usar o banco de dados de comparação de opções padrão para o seu código VBA de acesso. Se você precisa fazer uma comparação insensível a maiúsculas e minúsculas, use a função StrComp com a opção vbBinaryCompare: dessa forma, você pode mover o código para qualquer módulo e sempre ter comparações sensíveis a maiúsculas e minúsculas, sem se preocupar com a configuração da Comparação de opções. Dica 4: usar o módulo privado de opções para bancos de dados de bibliotecas Se você criar bancos de dados da biblioteca para que você possa chamar o código de outro banco de dados, considere usar o comando Option Private Module. Esta opção permite ocultar módulos de usuários externos e facilita a visualização de suas chamadas de função expostas, o que reduz a lista de opções quando você usa o Microsoft IntelliSense incorporado. Com este comando, todos os procedimentos em seu módulo não são expostos pela biblioteca. Os procedimentos ainda podem ser públicos dentro da biblioteca e chamados por outros módulos. Eles simplesmente não estão listados fora dele. Por exemplo, em nossas bibliotecas de tempo de execução Total Access Emailer e Total Access Statistics, nós permitimos que os desenvolvedores chamem nossas rotinas para lançar explosões de e-mail ou cálculos estatísticos. Uma vez que temos muitos módulos cada um com muitas funções públicas, seria irresistível e confuso filtrar todos esses procedimentos apenas para encontrar aqueles que você precisa. Ao usar Option Private Module para todos os nossos módulos com exceção de um, podemos expor apenas nossas funções públicas. E apenas essas funções aparecem quando se faz referência à nossa biblioteca: IntelliSense mostrando as funções disponíveis na biblioteca de tempo de execução do Total Access Emailer Recursos adicionais Eu usei recentemente o recurso ODBC de Dados Externos, ODBC, Importar para baixar (copiar, não vincular) tabelas do Great Plains SQL Server 2002 Acesse 2018. Quando tentei carregar as mesmas tabelas para um SQL Server 2008 R2 diferente usando o Assistente de Upsizing, algumas das tabelas não carregaram nenhum registro. Quando examinei as tabelas falhadas, cada uma dessas tabelas usou um tipo de dados de campo de quotBinaryquot. Isso não é mesmo uma escolha nativa no Access 2018, tanto quanto um tipo de dados que eu poderia ver. No local de campo onde geralmente diz quotTextquot, quotMemoquot, quotNumberquot, quotDateTimequot, etc., o tipo foi quotBinaryquot, tamanho 4 bytes. A parte estranha é que, quando tentei escolher outro tipo de dados disponíveis, o Binary não era mesmo uma opção no Access 2018. Quando eu exclui qualquer campo que dizia quotBinaryquot, a tabela foi carregada com êxito no SQL Server 2008 R2 usando o Assistente de Upsizing. Alguém sabe o que está acontecendo aqui Rich Locus, Logicwurks, LLC Terça-feira, 24 de setembro de 2017 20:55 Olá Fei e Peter: Obrigado por suas postagens úteis. Na verdade, é um problema com o Upsizing Wizard: (1) Quando usei a conexão ODBC no Access 2018 para baixar (não link) uma tabela SQL Server 2002, inclui quotBinaryquot nos campos importados do SQL Server para o Access. (Mesmo que não seja nativo do Access). (2) quotBinaryquot não é uma opção no Access 2018, mas o ODBC incluiu essa descrição na tabela baixada no Access 2018. (3) Para verificar seu problema com o Upsizing Wizard, exclui todos os campos, exceto 2, na tabela Access 2018 que Eu baixei do SQL Server: um campo de texto que tinha dados, não foi indexado e não era necessário, e o campo BINARY. (4) O assistente de Upsizing não gostou, me lançou uma mensagem de erro e não carregou a tabela do Access 2018 com 2 campos para o SQL Server 2008 R2. (5) MAS. Usei o assistente ImportExport fornecido pelo SQL Server 2018 (não um aplicativo de acesso), e ele carregou a tabela sem problemas. Assim. Em conclusão, a melhor maneira de lidar com os campos binários baixados do servidor SQL NÃO é usar o assistente de upsizing de acesso, mas o assistente nativo do SQL Server ImportExport. Rich Locus, Logicwurks, LLC Marcado como resposta por George Hua Moderador segunda-feira, 07 de outubro de 2017 2:53 AM De acordo com sua descrição, acho que a razão pela qual a tabela upsized não contém registros foi: Um campo na tabela no banco de dados do Access pode Contém um valor nulo para mais de um registro, mas a propriedade Indexada está definida como Sim (Sem Duplicados) ea propriedade Obrigatório está definida como Não. Se um campo na sua tabela for indexado usando estas configurações de propriedade, não adicione mais de um Registro que contém um valor nulo para a coluna. Remova os registros com os valores nulos e depois altere a tabela novamente. Para obter mais informações, consulte os artigos abaixo: O CONTEÚDO É FORNECIDO quotAS ISquot SIN GARANTIA DE QUALQUER NATUREZA, SEJA EXPRESSO OU IMPLÍCIO Agradecimentos Suporte Comunidade MSDN Lembre-se de quotMark as Answerquot as respostas que resolveram seu problema. É uma maneira comum de reconhecer aqueles que o ajudaram, e torna mais fácil para outros visitantes encontrar a resolução mais tarde. Quinta-feira, 26 de setembro de 2017 11:51 am Obrigado pela sua resposta. Examinarei atentamente o conteúdo das tabelas que não carregarão e determinar se as condições que você listou estavam presentes. Além disso, obrigado pela nota de que o binário é um tipo de dados no SQL Server. Pelo que posso dizer, o binário NÃO é um tipo de dados no Access. O seguinte link mostra Binário como um Tipo de Dados de Acesso, mas tentei tudo na tabela de criação para escolher um valor de campo de Binário e não consegui localizá-lo. Quando entrei no quotBinaryquot, ele disse que não estava na lista. Onde está escondido quando você escolhe o tipo de dados para o campo Rich Locus, Logicwurks, LLC quinta-feira, 26 de setembro de 2017 8:33 PM Como você descobriu, não está lá. Eu adivinaria que você é descoberto entre versões e adiciona um encolher de ombros para dar ênfase. A 4 bytes, um tipo numérico equivalente seria Long peter n roth - PNR1, talvez algum material útil Sexta-feira, 27 de setembro de 2017 2:06 AM Fei and Peter: Obrigado por suas postagens úteis. Na verdade, é um problema com o Upsizing Wizard: (1) Quando usei a conexão ODBC no Access 2018 para baixar (não link) uma tabela SQL Server 2002, inclui quotBinaryquot nos campos importados do SQL Server para o Access. (Mesmo que não seja nativo do Access). (2) quotBinaryquot não é uma opção no Access 2018, mas o ODBC incluiu essa descrição na tabela baixada no Access 2018. (3) Para verificar seu problema com o Upsizing Wizard, exclui todos os campos, exceto 2, na tabela Access 2018 que Eu baixei do SQL Server: um campo de texto que tinha dados, não foi indexado e não era necessário, e o campo BINARY. (4) O assistente de Upsizing não gostou, me lançou uma mensagem de erro e não carregou a tabela do Access 2018 com 2 campos para o SQL Server 2008 R2. (5) MAS. Usei o assistente ImportExport fornecido pelo SQL Server 2018 (não um aplicativo de acesso), e ele carregou a tabela sem problemas. Assim. Em conclusão, a melhor maneira de lidar com os campos binários baixados do servidor SQL NÃO é usar o assistente de upsizing de acesso, mas o assistente nativo do SQL Server ImportExport. Rich Locus, Logicwurks, LLC Marcado como resposta por George Hua Moderador segunda-feira, 07 de outubro de 2017 2:53
No comments:
Post a Comment