Usuário com melhor resposta
Manipular tabelas, campos em banco de dados ACCESS

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
-
Fernando,
Você pode usar o ADOX (http://support.microsoft.com/kb/317881/pt-br ou http://msdn2.microsoft.com/en-us/library/aa164917(office.10).aspx)
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:33Moderador
Todas as Respostas
-
Fernando,
Você pode usar o ADOX (http://support.microsoft.com/kb/317881/pt-br ou http://msdn2.microsoft.com/en-us/library/aa164917(office.10).aspx)
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:33Moderador