How to run ms access macro from VB.NET

Question

0.00/5 (No votes)

See more:

C#

i m trying to run a macro from ms access 2010 from vb.net 2010 ..

C#

this is giving me following error..

Unable to cast COM object of type 'Microsoft.Office.Interop.Access.ApplicationClass' to class type 'WindowsApplication1.Access.ApplicationClass'. Instances of types that represent COM components cannot be cast to types that do not represent COM components; however they can be cast to interfaces as long as the underlying COM component supports QueryInterface calls for the IID of the interface.

i don't know what to do plz help... its very urgent

What I have tried:

Dim oAccess As Access.ApplicationClass

'Start Access and open the database.
oAccess = CreateObject("Access.Application")
oAccess.Visible = True
oAccess.OpenCurrentDatabase("C:\Users\Yuganshu\Desktop\New folder (4)\WindowsApplication1\db.mdb", False)

'Run the macros.
oAccess.Run("Macro1")
'oAccess.Run("DoKbTestWithParameter", "Hello from VB .NET Client")

'Clean-up: Quit Access without saving changes to the database.
oAccess.DoCmd().Quit(Access.AcQuitOption.acQuitSaveNone)
System.Runtime.InteropServices.Marshal.ReleaseComObject(oAccess)
oAccess = Nothing

Posted 12-Apr-16 4:56am

yuganshu soni

Updated 19-Jul-20 2:05am

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

F-ES Sitecore · Answer 1 · 2016-04-12T05:03:00

Solution 1

I assume you also have a class called Access.ApplicationClass in your solution, probably because you created an Access folder and put an ApplicationClass in it, so when you define

VB.NET

Dim oAccess As Access.ApplicationClass

it is defining the wrong type. As you have the ApplicationClass in your project and one referenced you need to be explicit about which one you mean

VB.NET

Dim oAccess As Microsoft.Office.Interop.Access.ApplicationClass

Posted 12-Apr-16 5:03am

F-ES Sitecore

Comments

yuganshu soni 12-Apr-16 11:20am

thank you friend but its now giving error:
Reference to class 'ApplicationClass' is not allowed when its assembly is linked using No-PIA mode.

F-ES Sitecore 12-Apr-16 12:20pm

Google "not allowed when its assembly is linked using No-PIA mode" for suggestions, at least do basic research before asking a question.

yuganshu soni 12-Apr-16 12:22pm

i had already done that, Nothing relevant found!

rafborremans · Answer 2 · 2020-07-19T02:05:00

Imports System.ComponentModel
Imports Microsoft.Office.Interop.Access

Public Sub Run_Access_Procedure(ProcName As String)
Dim oAccess As New Microsoft.Office.Interop.Access.Application()
oAccess.Visible = False
oAccess.OpenCurrentDatabase("C:\TEST\Test.accdb")
'Run the procedure.
oAccess.Run(ProcName)
oAccess.DoCmd().Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(oAccess)
oAccess = Nothing
End Sub