Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

Slow response using ADOX Catalog over thin client.

Posted on 2004-08-10
6
518 Views
Last Modified: 2013-11-27
Hi since migrating my application from dao to ADO I am experiencing slow repsonses accessing the catalog object. In DAO I used query definations.

The reason I am using the catalog is to access quieries in an access 2000 database. There are probably about 100 queries most of which have parameters.

The main delay seems to be with the opening of the catalog. I know I could change this so that the catalog is opened at the begining of the application but what would happen if some one crashed out.

Also one of the other problems I am having is that I have to put a delay into the program otherwise no data is returned.

    Dim conn As ADODB.Connection
    ConnectToDB conn
    Set cat = New ADOX.Catalog
    'set the catalog the current connection
    cat.ActiveConnection = conn
    'set the command to the query name
    Set cmd = cat.Procedures("dp_Appoints_Qry").Command   'Killer SQL that has UNION...

    'give the parameters
    cmd.Parameters("AP CODE") = (Entity.code)
    Wait 0.2
    Set ApptRS = New ADODB.Recordset
    ApptRS.Open cmd

Thanks MrPan
0
Comment
Question by:MrPan
  • 4
  • 2
6 Comments
 
LVL 143

Expert Comment

by:Guy Hengel [angelIII / a3]
ID: 11761119
Why do you pass over the ADOX ?
ADODB Command has a Parameters.Refresh function

Dim conn As ADODB.Connection
    ConnectToDB conn
    'set the command to the query name
    Set cmd = new ADODB.Command
    cmd.command = "dp_Appoints_Qry"
    cmd.parameters.refresh
    'give the parameters
    cmd.Parameters("AP CODE") = (Entity.code)
    Wait 0.2
    Set ApptRS = New ADODB.Recordset
    ApptRS.Open cmd

Please report if this works for your...

CHeers
0
 
LVL 2

Author Comment

by:MrPan
ID: 11761420
Angel

Thanks for the quick reply.

cmd.command is not acceptable. I have tried changing this to commandtext but the parameters do not get loaded.

Any suggestions

0
 
LVL 143

Accepted Solution

by:
Guy Hengel [angelIII / a3] earned 500 total points
ID: 11761518
Sorry for the typo.

Also, I forgot to connect the command with the connection object...

Dim conn As ADODB.Connection
    ConnectToDB conn
    'set the command to the query name
    Set cmd = new ADODB.Command
    cmd.commandtext = "dp_Appoints_Qry"
    set cmd.activeconnection = conn
    cmd.parameters.refresh
    'give the parameters
    cmd.Parameters("AP CODE") = (Entity.code)
    Wait 0.2
    Set ApptRS = New ADODB.Recordset
    ApptRS.Open cmd

Cheers
0
Three Reasons Why Backup is Strategic

Backup is strategic to your business because your data is strategic to your business. Without backup, your business will fail. This white paper explains why it is vital for you to design and immediately execute a backup strategy to protect 100 percent of your data.

 
LVL 2

Author Comment

by:MrPan
ID: 11761519
OK

I have now got it working by adding

cmd.activeconenction = conn

and

cmd.commandtext = "Select * From dp_Appoints_Qry"

I will have to change the code in a few places to see if it is any quicker. I will let you know what I find out.
0
 
LVL 2

Author Comment

by:MrPan
ID: 11761525
Found it at the same time. Great minds.....
0
 
LVL 2

Author Comment

by:MrPan
ID: 11771366
Many Thanks

Mr Pan
0

Featured Post

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Phishing attempts can come in all forms, shapes and sizes. No matter how familiar you think you are with them, always remember to take extra precaution when opening an email with attachments or links.
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

837 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question