locked
Manipular tabelas, campos em banco de dados ACCESS RRS feed

  • Pergunta

  •  

    Boa noite,

    Gostaria de saber se é possivel manipular (alterar nome, tipo de dados e tamanho de compos ) tabela ACCESS.

    Eu li que para reparar ou criar deveria usar o OLE DB, mas não consegui nada com relação à essa necessidade.

     

    Abraços,

    Fernando Sampaio Almeida

    terça-feira, 14 de agosto de 2007 22:05

Respostas

  • terça-feira, 14 de agosto de 2007 23:27
  • Fernando,

     

     

    Tenho um exemplo de código que vc pode usar para criar um campo numa tabela via código

     

    .

    .

    .

     

     Set Db = OpenDatabase("", dbDriverNoPrompt, False, ";DATABASE=C:\seuBanco.mdb;PWD=suaSenha")
           
        'Set Tbl01 = Db.TableDefs("SuaTabela")
        
        ' Cria e acrescenta os novos objetos Field do novo
        ' objeto TableDef.
        With Tbl01
            ' O método CreateField definirá um Size padrão
            ' de um novo objeto Field caso nenhum tamanho
            ' tenha sido especificado.
           
            'Retorno = MsgBox("Deseja Criar o Campo 'SeuCampo' na Tabela SuaTabela?", vbYesNo, "Pergunta")
            'If Retorno = 6 Then
            '    .Fields.Append .CreateField("SeuCampo", dbDate)
            '    MsgBox "O Campo 'SeuCampo' na Tabela 'SuaTabela' foi criado com sucesso", vbOKOnly + vbInformation, "Informação"
            'End If

    .

    .

    .

    quinta-feira, 16 de agosto de 2007 17:18
  • As bibliotecas DAO e ADOX fazem isto. Considero a DAO mais fácil (mais organizada) para o trabalho.

     

    sábado, 18 de agosto de 2007 16:33
    Moderador

Todas as Respostas

  • terça-feira, 14 de agosto de 2007 23:27
  • Fernando,

     

     

    Tenho um exemplo de código que vc pode usar para criar um campo numa tabela via código

     

    .

    .

    .

     

     Set Db = OpenDatabase("", dbDriverNoPrompt, False, ";DATABASE=C:\seuBanco.mdb;PWD=suaSenha")
           
        'Set Tbl01 = Db.TableDefs("SuaTabela")
        
        ' Cria e acrescenta os novos objetos Field do novo
        ' objeto TableDef.
        With Tbl01
            ' O método CreateField definirá um Size padrão
            ' de um novo objeto Field caso nenhum tamanho
            ' tenha sido especificado.
           
            'Retorno = MsgBox("Deseja Criar o Campo 'SeuCampo' na Tabela SuaTabela?", vbYesNo, "Pergunta")
            'If Retorno = 6 Then
            '    .Fields.Append .CreateField("SeuCampo", dbDate)
            '    MsgBox "O Campo 'SeuCampo' na Tabela 'SuaTabela' foi criado com sucesso", vbOKOnly + vbInformation, "Informação"
            'End If

    .

    .

    .

    quinta-feira, 16 de agosto de 2007 17:18
  • As bibliotecas DAO e ADOX fazem isto. Considero a DAO mais fácil (mais organizada) para o trabalho.

     

    sábado, 18 de agosto de 2007 16:33
    Moderador