Mark L. Breen
subs at solution-providers.ie
Fri Jun 6 05:19:00 CDT 2003
Hello Christopher, Are you using Win2K or Xp at all in the loop. I have an issue recently with Access, on an NT box it performed perfectly with a BE, but when I moved it onto W2K, it slowed right down. I found the issue on the knowledge base and it is acknowledged by MS, however they do not offer a patch. This only solution they hint at is to programaticaly open the remote db and access the tables directly rather than using linked tables at all. I though that was not a very satisfactory solution and I had no idea how long it would take to change the entire app. What I did was to import the BE tables back into the FE and once I no longer had to talk to a BE, I was OK, If this is not your case, sorry, Mark ----- Original Message ----- From: "Christopher Hawkins" <clh at christopherhawkins.com> To: <accessd at databaseadvisors.com> Sent: Thursday, June 05, 2003 8:06 PM Subject: [AccessD] Fast back-end relinking? > First off: I have seen (and used) Tribble's Back-End relinker > before. That's not what I need in this case. > > I have inherited an app with some back-end relinking code that is > very slow. I've seen programmatic implementations of a table link > that linked up very quickly, as quickly as using File > Get External > Data > Link Tables. The one I'm dealing with takes many times as > long. > > There is a table in my db called tblTable. It contains the name and > path of every table in the database. The table is used in the > following code: > > ***START*** > > Dim db As DAO.Database > Dim tbl As DAO.TableDef > Set db = CurrentDb > Dim rsData As DAO.Recordset > > > Set rsData = db.OpenRecordset("SELECT * FROM tblTable") > > rsData.MoveFirst > > Do Until rsData.EOF = True > Set tbl = db.CreateTableDef(rsData("TableName")) > Debug.Print "Now attaching " & tbl.Name & "..." > tbl.Connect = (";DATABASE=" & rsData("Path")) > tbl.SourceTableName = rsData("TableName") > db.TableDefs.Append tbl > rsData.MoveNext > Loop > > db.Close > > ***END*** > > All the lag takes place when running the 'db.TableDefs.append tbl' > line. > > Is there any way to speed this process up? I've seen it done more > quickly before, I just didn't get to see the actual code. :( > > -Christopher- > > _______________________________________________ > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com >