SHARE
TWEET

Untitled

a guest Jul 18th, 2019 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub GetData()
  2.  
  3. Dim dbConnectStr As String
  4. Set con = New ADODB.Connection
  5. Set recset = New ADODB.Recordset
  6. Dim recordCount As Long
  7. dbConnectStr = "Provider=msdaora;Data Source=SERVER;User Id=USERNAME;Password=PASSWORD;"
  8.  
  9.  
  10. 'con.ConnectionString = dbConnectStr
  11. 'con.Properties("Prompt") = adPromptAlways
  12. 'con.Open dbConnectStr 'ConnectionString
  13.  
  14. Dim aa As Object
  15. Set aa = CreateObject("Access.Application")
  16. aa.OpenCurrentDatabase ("FILE_PATHDATABASE.accdb")
  17.     aa.DoCmd.RunMacro "macNAME"
  18. aa.Quit
  19.  
  20. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top