VBA EA Automation

[EA2412]

Hi at all

I´m trying to get access to my EA shared model on MySQL Server using VBA. I think the implementation works fine but on starting the code the only thing what happens is that I´m prompted to type in my password and user account. The EA model does not appear.

Does anybody can help me on that problem?

Thanks in advance

Code: [Select]

Public Sub OpenRepository()

        Dim MyRep As New EA.Repository
        Dim MyPro As New EA.Project
        Dim GUID As String

        Set MyRep = CreateObject("EA.Repository")

        MyRep.OpenFile ("")
        Set MyPro = MyRep.GetProjectInterface()
End Sub

[Geert Bellekens]

Don't you think that is due to the

Code: [Select]

MyRep.OpenFile ("")I don't really see the sense of that line.

If you want to open a model that uses security you can use the
Operation "Repository.OpenFile2 (string FilePath, string Username, string Password)"


Geert

[EA2412]

Hi Geert,

thanks for your replay. I took off the path to the MySQL database. I thought that it will work with MyRep.OpenFile ("path")?

Thanks in advance

[Geert Bellekens]

In that case you'll need to provide the connectionstring to the database.

Geert

[EA2412]

Hi Geert,

I did it like in the following code

Code: [Select]

Public Sub OpenRepository()

        Dim MyRep As New EA.Repository
        Dim MyPro As New EA.Project
        Dim GUID As String

        Set MyRep = CreateObject("EA.Repository")

        MyRep.OpenFile ("model --- DBType=0;Connect=Provider=MSDASQL.1;Persist Security Info=False;Data Source=Model")
        Set MyPro = MyRep.GetProjectInterface()
End Sub
but the model didn´t appear. I was looking at the task manager and saw that there was a process going on regarding EA.exe. A minute  later the process was gone away. Don´t understand that.

Do you have any ideas?

[Eve]

As soon as that function finishes (ie. The project loads) the Repository object is going to go out of scope, so EA will close.

[Paolo F Cantoni]

As soon as that function finishes (ie. The project loads) the Repository object is going to go out of scope, so EA will close.

Simon,

Do you mean the connection string is valid as shown with all the preamble?  I thought you needed to parse it and only provide the appropriate substring....

TIA,
Paolo

[Geert Bellekens]

I don't know if the connectionstring is valid, but Simon has a point.
You'll have to define the repository variable outside your sub or pass it to something else as a parameter since it will be destroyed as soon as the sub ends.

Geert

[EA2412]

Hi Geert,

thanks for your answer. Would you please give me an example for that you are describing. I´m a bit new at VBA.

Thanks in advance

[Eve]

I'm afraid I don't know VBA very well either, but Geert has understood what I was getting at.  I was not commenting on the connection string at all.

[Geert Bellekens]

Well, for example something like this

Code: [Select]

Dim MyRep As New EA.Repository
Dim MyPro As New EA.Project

Public Sub OpenRepository()

        Dim GUID As String

        Set MyRep = CreateObject("EA.Repository")

        MyRep.OpenFile ("model --- DBType=0;Connect=Provider=MSDASQL.1;Persist Security Info=False;Data Source=Model")
        Set MyPro = MyRep.GetProjectInterface()
End Sub
It is all about the lifetime of your variables. If you define a variable within a prodedure or function then the scope of this variable is limited to said procedure or function.
This means that it will be destroyed as soon as the function or procedure ends.
By defining your variables outside the sub you can use them even if the sub is finished. (as long as the object containing the variable is still alive.

Geert