[AccessD] Demise of VBA

MartyConnelly martyconnelly at shaw.ca
Fri Jul 14 13:32:54 CDT 2006


I remember C code builds 3000 lines on DOS 3.1 and PC-XT taking 5 minutes
Nothing is really new.

Charlotte Foust wrote:

>I haven't tested your code, but I'll testify to the fact that VS2005 is
>a huge resource hog.  I'm getting a new machine because a build in our
>(admittedly large) winForms solution takes 5 minutes or more on my
>machine before I can even test.  
>
>
>Charlotte Foust
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
>Salakhetdinov
>Sent: Wednesday, July 12, 2006 1:28 PM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] Demise of VBA
>
>Hi All,
>
>I think this sample code below would be within the topic of this thread
>- try to run this VB.NET MS Word Automation code in VS2005 with a
>reference set to the MS Word Primary Interop Assembly - it takes 10+
>second just to start on my PC (and similar VBA code starts MS Word
>instantly) - I wonder how quick this VB.NET simple sample works on your
>PCs? If it will take the same 10+ second just to start-up will you
>consider to use VB.NET for MS Office Automation?
>
>Note: If you use this code with WinForms application then subsequent
>after first MS Word activation calls to start another instance of MS
>Word will be instant but imagine the usual development/testing scenario
>when you start/debug/stop/restart/... your application many times - how
>about these 
>10+ seconds to wait every time you restart your app/debug session? (Or 
>10+ this
>bad side effect happens on my PC only?)
>
>Imports Word = Microsoft.Office.Interop.Word
>
>Module Module1
>    Private Function StartApp( _
>        ByVal strProgID As String) As Object
>        Dim oTmp As Object
>        On Error Resume Next
>
>        oTmp = GetObject(, strProgID)
>        If Err.Number <> 0 Then
>            oTmp = CreateObject(strProgID)
>        End If
>        StartApp = oTmp
>    End Function
>
>    Private Sub TestEarlyBound()
>        Dim app As Word.Application
>        app = StartApp("Word.Application")
>        app.Visible = True
>        app.Activate()
>    End Sub
>
>    Sub Main()
>        Dim ds As DateTime = DateTime.Now
>        Dim de As DateTime
>        Console.WriteLine("Program started at {0} ", ds.ToString())
>        TestEarlyBound()
>        de = DateTime.Now
>        Console.WriteLine("Program finished at {0} ", de.ToString())
>        Console.WriteLine("Press any key to continue...")
>        Console.ReadLine()
>    End Sub
>
>End Module
>
>Shamil
>
>P.S. When late binding is used then similar VB.NET MS Office Automation
>code works instantly here....
>
>----- Original Message -----
>From: "Susan Harkins" <harkinsss at bellsouth.net>
>To: "'Access Developers discussion and problem solving'"
><accessd at databaseadvisors.com>
>Sent: Wednesday, July 12, 2006 11:47 PM
>Subject: Re: [AccessD] Demise of VBA
>
>
>  
>
>>>From a business perspective, it doesn't sound like good judgment does
>>    
>>
>it?
>  
>
>>Why spend the revenue and manpower to replace what you've already got?
>>    
>>
>You
>  
>
>>only need to look to GM to see what happens when you do that.
>>
>>Susan H.
>>
>>...just my opinion of course ...and experience near the top of the
>>    
>>
>food
>  
>
>>chain where evangelists almost always lose to the bottom line ...a
>>    
>>
>bottom
>  
>
>>line that greatly favors a new generation of vba.
>>
>>
>>-- 
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada




More information about the AccessD mailing list