Solved

Slow response using ADOX Catalog over thin client.

Posted on 2004-08-10
6
522 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
[X]
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
  • 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
Get your Disaster Recovery as a Service basics

Disaster Recovery as a Service is one go-to solution that revolutionizes DR planning. Implementing DRaaS could be an efficient process, easily accessible to non-DR experts. Learn about monitoring, testing, executing failovers and failbacks to ensure a "healthy" DR environment.

 
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

[Live Webinar] The Cloud Skills Gap

As Cloud technologies come of age, business leaders grapple with the impact it has on their team's skills and the gap associated with the use of a cloud platform.

Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.

Question has a verified solution.

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

In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database.  This article shows how to recreate this functionality in Windows 7 through 10.
If you need a simple but flexible process for maintaining an audit trail of who created, edited, or deleted data from a table, or multiple tables, and you can do all of your work from within a form, this simple Audit Log will work for you.
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.
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

635 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