[Resolvido]Inserir um campo em tabela via código

Bom dia

Precisava de acrescentar um ou mais campos a uma tabela a partir de um form situado em outra mdb, mas não através do método append em consulta e sim via código.

Agradeço a ajuda

Para fazer isso você terá que se conectar com o outro mdb através do ADO.

Exemplo:

Dim objConexao

Set objConexao = CreateObject("ADODB.Connection")

With objConexao
'Utilize esse caso você não tenha o Access 2007 instalado
.Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"

'Utilize esse provider caso você tenha o Access 2007 instalado
.Provider = "Microsoft.ACE.OLEDB.12.0;"

'Local onde está a base
.ConnectionString = "Data Source=C:\Base.mdb;"

'Abre a conexão
.Open

'Executa o código sql DDL
.Execute "ALTER TABLE NomeDaTabela ADD COLUMN NomeDoCampo TipoDoCampo;"

'Fecha a conexão
.Close
End With

Flw...

Olá Amigo Messa

Antes de pedir ajuda eu estava a tentar assim:
Dim objectConnection
Set objectConnection = CreateObject("ADODB.Connection")
With objectConnection
.Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source=C:\EasyAdvo2.0\Data\bd1.mdb'"
.Open
.INSERT "ALTER TABLE movimentos ADD COLUMN NovaPasta 50;"
.Close
End With

Agora estava a tentar o seu
Dim objConexao

Set objConexao = CreateObject("ADODB.Connection")

With objConexao
.Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"

.ConnectionString = "Data Source=C:\EasyAdvo2.0\Data\bd1.mdb'"

'Abre a conexão
.Open

'Executa o código sql DDL
.Execute "ALTER TABLE movimentos ADD COLUMN NovaPasta 50;"

'Fecha a conexão
.Close
End With

O Resultado que obtive foi o mesmo :O fornecedor não foi encontrado e faz o debug aqui:

.Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"

????que estará mal?

Tentou com esse outro provider?:

.Provider = "Microsoft.ACE.OLEDB.12.0;"

Caso não funcione terá que instalar o provider no seu computador fazendo o download nessa página:
http://www.microsoft.com/downloads/details.aspx?FamilyID=2deddec4-350e-4cd0-a12a-d7f70a153156&displaylang=pt-br


Flw...

Estou utilizando o 2003 logo é o Microsoft.Jet.OLEDB.4.0. Fiz uma outra ligação (só por esperiência, Access a Word) a uma nova origem de dados.odc e correu tudo ok,menos esta que continua a dar erro

Seria interessante então você atualizar o provider.
Faz um teste atualizando paa este que eu passei o link e dá um retorno blz?

Flw...

Já algum tempo atrás tinha feito isso, aliás estou sempre atento ao service Pack. Mesmo assim segui o seu conselho e recebi a seguinte resposta: Não necessita actualizar. E esta hem?

Para quem precisar este é o último WindowsXP-KB829558-x86-PTG.exe

Mestre JPaulo

Tem alguma ideia do que está acontecer ou que está a ser feito de errado?

Agradeço a ajuda

Eu utilizo o simples, se quiserem aproveitar.....

Dim strDB As String, strAltera As String
Dim strBancoExterno As Access.Application
Const strCaminho = "C:\EasyAdvo2.0\Data\bd1"
Set strBancoExterno = CreateObject("Access.Application")
strBancoExterno.OpenCurrentDatabase strCaminho
strAltera = "ALTER TABLE movimentos ADD COLUMN NovaPasta TEXT (50);"
strBancoExterno.DoCmd.RunSQL strAltera
strBancoExterno.CloseCurrentDatabase
Set strBancoExterno = Nothing

Vieira, por acaso o código do erro é o 3706 ?
Porque no meu pc deu erro ao tentar usar esse pois tenho o mais atual instalado, então fiz assim:

.Provider = "Microsoft.ACE.OLEDB.12.0;"

Flw...

Mestre já estava quase, mas quando clico no botão abre a bd1 e depois bloqueia dizendo que a base de dados foi aberta por outro utilizador em modo exclusivo e faz debug aqui:
strBancoExterno.OpenCurrentDatabase strCaminho

Testei 8 vezes e todas funfaram...

Veja se não tens nomes iguais nos dois bancos.

Tem aí uma falha, falta o .mdb

Dim strAltera As String
Dim strBancoExterno As Access.Application
Const strCaminho = "C:\EasyAdvo2.0\Data\bd1.mdb"
Set strBancoExterno = CreateObject("Access.Application")
strBancoExterno.OpenCurrentDatabase strCaminho
strAltera = "ALTER TABLE movimentos ADD COLUMN NovaPasta TEXT (50);"
strBancoExterno.DoCmd.RunSQL strAltera
strBancoExterno.CloseCurrentDatabase
Set strBancoExterno = Nothing

MESTRE

Funfou Direitinho, só faltava mesmo o mdb. As mãos do Mestre ao teclado só encontra par em Chopin ao piano. Muito obrigado.

Marco obrigado por todo om empenho que teve em me ajudar. Sou-lhe grato.

Valew pelo retorno e optem sempre pelo simples, o complicado só complica.

Pois é, o estranho é que eu sempre fiz conexão ADO e dá certo, mas o seu método é muito bom também JPaulo, inclusive já até marquei aqui, quem sabe eu precise um dia....
Abraço...

Olá amigos utilizei o código do JPaulo, somente dei uma mudada pois meu bd tem senha e usei para alterar o tipo de campo, dúvida.

Como fazer para saber se o campo é CURRENCY (Unidade monetária)ou não? Pois preciso fazer esse processo abaixo somente se o campo não for CURRENCY.

Dim strAltera As String, strPass
Dim strBancoExterno As Access.Application
Const strCaminho = "C:\Sistema IEAD\SistemaIEAD_be.accdb"
strPass = "blabla"
Set strBancoExterno = CreateObject("Access.Application")
strBancoExterno.OpenCurrentDatabase strCaminho, , strPass
strAltera = "ALTER TABLE tblCarneMissaoContribuicoes alter COLUMN teste CURRENCY;"
strBancoExterno.DoCmd.RunSQL strAltera
strBancoExterno.CloseCurrentDatabase
Set strBancoExterno = Nothing

Não sei se posso, ou se poderia ser aqui mesmo.

eu fiz o seguinte e deu certinho também.

Código:

Function AlteraTbl()
Dim ws As DAO.Workspace
Dim db As DAO.Database

Dim C As Integer

Dim StrSqltbl As String

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\caminho\banco_be.accdb", False, False)

For C = 1 To db.TableDefs("tblTeste").Fields.Count
If db.TableDefs("tblTeste").Fields(C - 1).Name = "Sexo" Then
MsgBox "item já existente"
End If
Next
StrSqltblNPermitido = "Alter Table tblTeste Add Column Sexo TEXT (10);"
db.Execute StrSqltbl

Set db = Nothing

End Function

Eu coloquei uma rotina para verificar se o campo que esta tentando adicionar já existe, e então pode-se executar uma uma ação.

Caso tenha outro método eu gostaria, pois se a tabela tabela for grande pode demorar um pouco.

Boa tarde,
Tente executar a alteração pretendida. Se já existir o campo dará erro X. Trate esse erro como tal