Jump to content
startuga

ANSWERED Export form data into database

Recommended Posts

Gnrtuga

Boas, em teoria sim, por acaso eu tenho estado a fazer quase o mesmo, passar informação de um form de Excel para uma base de dados Access, por isso vindo do Outlook, também deve dar..

Qual é a informação que precisas?


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
startuga

Boas, como faço a ligação à base de dados?

Boas, como faço a ligação à base de dados?

Pois como podes reparar no link do form que deixei aqui eu tenho varios campos sendo um deles o do departamento e cria criar report dos emails by departement.

Share this post


Link to post
Share on other sites
Gnrtuga

Bom, antes de mais tens de ter a base de dados criada.. :)

Depois depende da versão do office que tens instalado o meu código é para o 2007.

Tens de ir ao editor de VBA, selecionar tools , depois references, e adicionas os seguintes (provavelmente estão a mais, mas antes a mais que a menos..(no caso de não te aparecerem os mesmos números, escolhe o numero mais alto)

Microsoft Active Data Objects 2.8 Library

Microsoft DAO 3.6 Object Library

Microsoft OLE Provider for OLAP serviçe connection dialog 8.0

Dim appAccess As Object
Dim strConPathToSamples As String
Dim strDb As String
Dim tauto, nauto, datainf As String
tauto = "Iva"
nauto = Me.numauto.Value
datainf = Me.datainf.Value

' Inicializa a string do caminho da base de dados
strConPathToSamples = "C:\Teste\Dados Autos.mdb"
strDb = strConPathToSamples

'Cria uma nova instancia do Microsoft Access.
Set appAccess = _
CreateObject("Access.Application")

appAccess.OpenCurrentDatabase strConPathToSamples
' Abre e insere os dados
appAccess.DoCmd.RunSQL "(insert into Auto (N_Auto, Data) values ('" & nauto & "', '" & datainf & "'))"

Comigo funciona..

Boa sorte.

Edited by Gnrtuga
  • Vote 1

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.