Views

Histats

Vitrine

VBA Excel - Acrescentando registro em MS Access.

Para acrescentar um registro a uma base de dados MS Access, precisa assegurar-se de que o seu MS Excel está configurado com a referência a biblioteca DAO:
Microsoft ActiveX Data Objects 6.0 Library c:\Program Files\Common Files\System\ado\msado15.dll Microsoft DAO 3.6 Object Library c:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll
 
Em seguida execute uma inserção do usuário, com horário e demais dados relevantes (você mesmo deve definir o que acha ser mais apropriado):
Function InsertUserInapplication(nUser As String) ' Author:                          Date:                       Contact:                           URL: ' André Bernardes             22/03/2010 11:56     bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/ ' Insere o nome do usuário, indicando que este está plugado a aplicação e ativo nela.     Dim nSQL As String     ' Sample:     'INSERT INTO tbl_Connected ( ID, [TimeStamp] )     'SELECT '01101304I' AS IDentification, #3/22/2010 14:32:0# AS nTime     'FROM tbl_Sys_Add;     Let nSQL = "INSERT INTO tbl_Connected (ID, [TimeStamp]) " & _                      "SELECT '" & nUser & "' AS IDentification, " & _                      "#" & nowUserTime & "# AS nTime " & _                      "FROM tbl_Sys_Add"     Call StatusUser_AccessData(pth_Base, dbs_Base, nSQL) End Function
Agora poderá efetuar consultas antes de abrir a planilha para saber se alguém está utilizando sua aplicação. Quando o usuário terminar de utilizar a planilha, deve deletar o usuário da tabela, e/ou apenas desabilitá-lo em um campo apropriado: Function DeleteUserInapplication(nUser As String) ' Author:                          Date:                        Contact:                          URL: ' André Bernardes             22/03/2010 14:06     bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/ ' Deleta o nome do usuário ativo, que está plugado na aplicação.     Dim nSQL As String     Let nSQL = "UPDATE tbl_Connected " & _                      "SET tbl_Connected.TimesOut = #" & Now() & "#, " & _                      "tbl_Connected.Online = 0 " & _                      "WHERE (((tbl_Connected.ID)= '" & nUser & "' ))"     Call StatusUser_AccessData(pth_Base, dbs_Base, nSQL) End Function
 
Acessando a base de dados (esta configurado para a versão do Office 2007)

Sub StatusUser_AccessData (nPath As String, nDataBaseName As String, nSQL As String)     ' Author:                           Date:                     Contact:                           URL:     ' André Bernardes             22/03/2010 12:03    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/     ' Inserindo o usuário ativo na aplicação neste momento.

    Dim stDB As String     Dim cnt As New ADODB.Connection

    Let stDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & nPath & nDataBaseName

    cnt.Open stDB     cnt.Execute nSQL

    'Set stDB = Nothing     Set cnt = Nothing End Sub
 

InAnyPlace03.gif

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias