Good use of CurrentProject. isConnected ?

[Lauren Quantrell]

I used to force a new connection between my Access 2K database and a
SQL Server backend every time the user launches the application, but it
seemed very slow, in fact using a timer function, I determined this
accounted for 90% of the startup time.

I am toying with this method below, where I use
CurrentProject. isConnected. My thought is that Access makes the
connection (based on the info provided in the connection dialog)
anyway, so why drop it and reconnect it if the connection is good...
I am hoping someone can shed some light on whether this is a good
practice or not.

Dim strConnect As String
Dim isConnected As Boolean
Dim myConnectionStr ing As String

isConnected = CurrentProject. isConnected

If isConnected = False Then
'make sure previous connection is closed:
CurrentProject. OpenConnection "Provider="

'create a new connetion to the Getty server:
strConnect = "PROVIDER=SQLOL EDB.1;INTEGRATE D
SECURITY=SSPI;P ERSIST SECURITY INFO=FALSE;INIT IAL
CATALOG=<Databa seName>L;DATA SOURCE=<ServerN ame>"

CurrentProject. OpenConnection strConnect

End If

[Lyle Fairfield]

Lauren Quantrell wrote:

I used to force a new connection between my Access 2K database and a
SQL Server backend every time the user launches the application, but it
seemed very slow, in fact using a timer function, I determined this
accounted for 90% of the startup time.

I am toying with this method below, where I use
CurrentProject. isConnected. My thought is that Access makes the
connection (based on the info provided in the connection dialog)
anyway, so why drop it and reconnect it if the connection is good...
I am hoping someone can shed some light on whether this is a good
practice or not.

Dim strConnect As String
Dim isConnected As Boolean
Dim myConnectionStr ing As String

isConnected = CurrentProject. isConnected

If isConnected = False Then
'make sure previous connection is closed:
CurrentProject. OpenConnection "Provider="

'create a new connetion to the Getty server:
strConnect = "PROVIDER=SQLOL EDB.1;INTEGRATE D
SECURITY=SSPI;P ERSIST SECURITY INFO=FALSE;INIT IAL
CATALOG=<Databa seName>L;DATA SOURCE=<ServerN ame>"

CurrentProject. OpenConnection strConnect

End If

Forcing a new connection seems incredibly stupid to me, but it's what I
have come to expect from your ruminations. In any case I suggest that
you ask the:

" ...thousands of other competent technicians outside of [sic] cdma who
gladly share their knowledge without all the liberal paranoia exhibited
by some cdma posters -- people who chose NOT to be offended by the very
idea that anyone would want to implement a technological mechanism to
protect their intellectual property."

Perhaps, they will have:
"A SINGLE line of code was what cause all the other pieces to fall into
place."

If they can help, you may be able to continue your masquerade as a
Developer.

[Lauren Quantrell]

Lyle,
Thank you so much for pointing out the intellectual differences between
us. For a second, I thought I might just be able to make it in this
world, but now, thanks to you, I see that I cannot. Your genious is
amazing and thank you so much for sharing it with us all on such a
regular basis. I don't know what in the world we would all do without
your illuminations. Please, keep up the good work.
Lauren

Lyle Fairfield wrote:

Lauren Quantrell wrote:

I used to force a new connection between my Access 2K database and a
SQL Server backend every time the user launches the application, but it
seemed very slow, in fact using a timer function, I determined this
accounted for 90% of the startup time.

I am toying with this method below, where I use
CurrentProject. isConnected. My thought is that Access makes the
connection (based on the info provided in the connection dialog)
anyway, so why drop it and reconnect it if the connection is good...
I am hoping someone can shed some light on whether this is a good
practice or not.

Dim strConnect As String
Dim isConnected As Boolean
Dim myConnectionStr ing As String

isConnected = CurrentProject. isConnected

If isConnected = False Then
'make sure previous connection is closed:
CurrentProject. OpenConnection "Provider="

'create a new connetion to the Getty server:
strConnect = "PROVIDER=SQLOL EDB.1;INTEGRATE D
SECURITY=SSPI;P ERSIST SECURITY INFO=FALSE;INIT IAL
CATALOG=<Databa seName>L;DATA SOURCE=<ServerN ame>"

CurrentProject. OpenConnection strConnect

End If

Forcing a new connection seems incredibly stupid to me, but it's what I
have come to expect from your ruminations. In any case I suggest that
you ask the:

" ...thousands of other competent technicians outside of [sic] cdma who
gladly share their knowledge without all the liberal paranoia exhibited
by some cdma posters -- people who chose NOT to be offended by the very
idea that anyone would want to implement a technological mechanism to
protect their intellectual property."

Perhaps, they will have:
"A SINGLE line of code was what cause all the other pieces to fall into
place."

If they can help, you may be able to continue your masquerade as a
Developer.

['69 Camaro]

Hi, Lyle.

I suspect that this isn't the same Lauren of Lead Management Consultants
(LMC.bz) that comes to this newsgroup to entertain us with her wild stories:

http://www.lmc.bz/privacy.php

.. . . and lecture us on intellectual property rights, while continuing to
plagiarize/steal copyrighted material, including the following article she
posted on her Web site:

http://www.lmc.bz/support.php?sub =Start%20Window s%20Faster!

.. . . which is copied verbatim (right down to the graphics) from PC
Magazine's book (and book excerpt published on the Web), "PC Magazine
Windows XP Speed Solutions," in which PC Magazine charges a monthly fee for
Web "reprints":

http://www.pcmag.com/article2/0,1759,1819090,00.asp

If any Access expert wants a heads up on the next questions that Lauren of
LMC.bz is going to ask so that he can write the exact VBA code for her for
the newest features of her application, please see the "Coming Attractions"
item on the list of her application's features on the following Web page:

http://www.lmc.bz/index.php

.. . . so that she can turn around and demand that her intellectual property
rights be protected for "her" software application because she does "NOT
want to live in a world where human contrived limitations stand in the way
of me or my progeny (or any other harmless person) having the opportunity to
become a TRILLIONAIRE as a result of pleasing their fellow man with products
or services that people simply DECIDE they cannot do without."

http://groups.google.com/group/comp....5a9e5df?hl=en&

She must be an awesome saleswoman if she can sell a Microsoft Access 2000
database application to enough people at enough profit where she'll beat out
793 billionaires to become the world's first trillionaire. She'll make Bill
Gates look like a slacker with his mere $50 billion of pocket change
compared to her wealth. Ka-ching!!!

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.
"Lyle Fairfield" <ly***********@ aim.com> wrote in message
news:11******** **************@ g10g2000cwb.goo glegroups.com.. .

Lauren Quantrell wrote:

I used to force a new connection between my Access 2K database and a
SQL Server backend every time the user launches the application, but it
seemed very slow, in fact using a timer function, I determined this
accounted for 90% of the startup time.

I am toying with this method below, where I use
CurrentProject. isConnected. My thought is that Access makes the
connection (based on the info provided in the connection dialog)
anyway, so why drop it and reconnect it if the connection is good...
I am hoping someone can shed some light on whether this is a good
practice or not.

Dim strConnect As String
Dim isConnected As Boolean
Dim myConnectionStr ing As String

isConnected = CurrentProject. isConnected

If isConnected = False Then
'make sure previous connection is closed:
CurrentProject. OpenConnection "Provider="

'create a new connetion to the Getty server:
strConnect = "PROVIDER=SQLOL EDB.1;INTEGRATE D
SECURITY=SSPI;P ERSIST SECURITY INFO=FALSE;INIT IAL
CATALOG=<Databa seName>L;DATA SOURCE=<ServerN ame>"

CurrentProject. OpenConnection strConnect

End If

Forcing a new connection seems incredibly stupid to me, but it's what I
have come to expect from your ruminations. In any case I suggest that
you ask the:

" ...thousands of other competent technicians outside of [sic] cdma who
gladly share their knowledge without all the liberal paranoia exhibited
by some cdma posters -- people who chose NOT to be offended by the very
idea that anyone would want to implement a technological mechanism to
protect their intellectual property."

Perhaps, they will have:
"A SINGLE line of code was what cause all the other pieces to fall into
place."

If they can help, you may be able to continue your masquerade as a
Developer.

[Lyle Fairfield]

Lauren Quantrell wrote:

Lyle,
Thank you so much for pointing out the intellectual differences between
us. For a second, I thought I might just be able to make it in this
world, but now, thanks to you, I see that I cannot. Your genious is
amazing and thank you so much for sharing it with us all on such a
regular basis. I don't know what in the world we would all do without
your illuminations. Please, keep up the good work.
Lauren

Lauren

I mistook you for someone else. I apologise for my comments.

As for your question, why are you forcing a new connection? What do you
think you will gain? It seems to take Access quite sometime to
establish a new connection. I run code like yours but only to make the
switch from the development server to the program server; thus it
happens only when a new ADP is first used.

As a caveat, I suggest create and open a new ADP, as a user might. A
Dialog should open and the Servers available to that user will appear
in a drop down. Use the most vital of them. Make the connection. Look
at the Database window. Are there tables and procedures there that a
user could manipulate without the benefit and direction of your
application? If there are, what now?

[Larry Linson]

"'69 Camaro" wrote

If any Access expert wants a heads up
on the next questions that Lauren of
LMC.bz is going to ask so that he can
write the exact VBA code for her for
the newest features of her application,
please see the "Coming Attractions"
item on the list of her application's
features on the following Web page:

http://www.lmc.bz/index.php

How to Endear Yourself to the Denizens of comp.databases. ms-access: Promise
the next enhancement to your application will be new and exciting "spamming
technology", stealthified so it won't be detected as spam by your ISP!

<SNNNRRRRRCCCHH H>

[w_a_n_n_a_l_l_ -]

Well, nothing helps to hide hypocrisy like chutzpah.

Thanks for the detailed presentation. I've never personally witnessed
something so blatant as what I found at those links.

[Lauren Quantrell]

Maybe I should change my first name to Monica to prevent being mistaken
in the newsgroups for someone really onerous?
lq

'69 Camaro wrote:

Hi, Lyle.

I suspect that this isn't the same Lauren of Lead Management Consultants
(LMC.bz) that comes to this newsgroup to entertain us with her wild stories:

http://www.lmc.bz/privacy.php

. . . and lecture us on intellectual property rights, while continuing to
plagiarize/steal copyrighted material, including the following article she
posted on her Web site:

http://www.lmc.bz/support.php?sub =Start%20Window s%20Faster!

. . . which is copied verbatim (right down to the graphics) from PC
Magazine's book (and book excerpt published on the Web), "PC Magazine
Windows XP Speed Solutions," in which PC Magazine charges a monthly fee for
Web "reprints":

http://www.pcmag.com/article2/0,1759,1819090,00.asp

If any Access expert wants a heads up on the next questions that Lauren of
LMC.bz is going to ask so that he can write the exact VBA code for her for
the newest features of her application, please see the "Coming Attractions"
item on the list of her application's features on the following Web page:

http://www.lmc.bz/index.php

. . . so that she can turn around and demand that her intellectual property
rights be protected for "her" software application because she does "NOT
want to live in a world where human contrived limitations stand in the way
of me or my progeny (or any other harmless person) having the opportunity to
become a TRILLIONAIRE as a result of pleasing their fellow man with products
or services that people simply DECIDE they cannot do without."

http://groups.google.com/group/comp....5a9e5df?hl=en&

She must be an awesome saleswoman if she can sell a Microsoft Access 2000
database application to enough people at enough profit where she'll beat out
793 billionaires to become the world's first trillionaire. She'll make Bill
Gates look like a slacker with his mere $50 billion of pocket change
compared to her wealth. Ka-ching!!!

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips and tutorials.
http://www.Access.QBuilt.com/html/ex...ributors2.html for contact
info.
"Lyle Fairfield" <ly***********@ aim.com> wrote in message
news:11******** **************@ g10g2000cwb.goo glegroups.com.. .

Lauren Quantrell wrote:

I used to force a new connection between my Access 2K database and a
SQL Server backend every time the user launches the application, but it
seemed very slow, in fact using a timer function, I determined this
accounted for 90% of the startup time.

I am toying with this method below, where I use
CurrentProject. isConnected. My thought is that Access makes the
connection (based on the info provided in the connection dialog)
anyway, so why drop it and reconnect it if the connection is good...
I am hoping someone can shed some light on whether this is a good
practice or not.

Dim strConnect As String
Dim isConnected As Boolean
Dim myConnectionStr ing As String

isConnected = CurrentProject. isConnected

If isConnected = False Then
'make sure previous connection is closed:
CurrentProject. OpenConnection "Provider="

'create a new connetion to the Getty server:
strConnect = "PROVIDER=SQLOL EDB.1;INTEGRATE D
SECURITY=SSPI;P ERSIST SECURITY INFO=FALSE;INIT IAL
CATALOG=<Databa seName>L;DATA SOURCE=<ServerN ame>"

CurrentProject. OpenConnection strConnect

End If

Forcing a new connection seems incredibly stupid to me, but it's what I
have come to expect from your ruminations. In any case I suggest that
you ask the:

" ...thousands of other competent technicians outside of [sic] cdma who
gladly share their knowledge without all the liberal paranoia exhibited
by some cdma posters -- people who chose NOT to be offended by the very
idea that anyone would want to implement a technological mechanism to
protect their intellectual property."

Perhaps, they will have:
"A SINGLE line of code was what cause all the other pieces to fall into
place."

If they can help, you may be able to continue your masquerade as a
Developer.