Re: Relinking a CSV file using code
- From: "Amanda Payton" <AmandaPayton@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Wed, 1 Jun 2005 15:50:01 -0700
Doug -
I created the original table links using the GUI - and I looked at the
connect property to see what it expects - all I changed was the file path
following the ";Database = " and Access rejected it (using '97 BTW)...
The only way I personally have successfully linked to a CSV file is using
the "Make Table -> Linked Table" off the Access Database interface, and the
only way I have successfully changed the link is using the Linked Table
Manager interface. I'm wondering what those two do that I'm missing... Is
there a decompiled version of the Linked Table Manager out there somewhere?
-Amanda
"Douglas J. Steele" wrote:
> Link through the GUI, and look at the TableDef object's Connect property to
> see what it's expecting.
>
>
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no e-mails, please!)
>
>
>
> "Amanda Payton" <AmandaPayton@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> news:E3E645DC-C326-4989-9B41-1D51653941C6@xxxxxxxxxxxxxxxx
> >I have a FE/BE database setup, with several tables linked between the two.
> > In addition, I have 5 CSV files that are linked into the FE.
> >
> > I am trying to create a relink sequence to cover cases where the database
> > is
> > moved from one location to another. I can relink the tables between the
> > databases just fine with:
> >
> > Function RefreshLinks(strFileName As String) As Boolean
> > Dim dbs As Database
> > Dim tdf As TableDef
> >
> > Set dbs = CurrentDb
> > For Each tdf In dbs.TableDefs
> > If Len(tdf.Connect) > 0 Then
> > tdf.Connect = ";DATABASE=" & strFileName
> > On Error Resume Next
> > Err = 0
> > tdf.RefreshLink
> > If Err <> 0 then
> > RefreshLinks = False
> > Exit Function
> > End If
> > End If
> > Next tdf
> > RefreshLinks = True
> > End Function
> >
> > HOWEVER - This format doesn't work for CSV files.
> >
> > I figured out that I can add a Select Case statement after the
> > Len(tdf.connect) > 0, to check the name of the table, (or some other
> > attribute to see if the table is linked to a CSV or MDB file), and then
> > carry
> > out different actions for each case. What I need to know is what the
> > strings
> > should look like.
> >
> > I've tried:
> >
> > Set tdf = db.TableDef("TempCSV")
> > tdf.connect = "Text;database=C:\Filepath"
> > tdf.RefreshLink
> >
> > and I've tried:
> >
> > Set tdf = db.TableDef("TempCSV")
> > tdf.connect = "Text;DSN=My Link
> > Specification;FMT=Delimited;HDR=NO;IMEX=2;
> > tdf.RefreshLink
> >
> > Both times I get "Runtime Error '3001' Invalid Arguments" when I get to
> > the
> > RefreshLink line.
> >
> > I'm OK with deleting the existing tables and creating a new table linked
> > to
> > the file in the correct location - but I get the same errors when I try:
> >
> > Set tdf = db.CreateTableDef("TempCSV")
> > tdf.connect = "Text;Database=C:\FilePath"
> > tdf.SourceTableName = "TempCSV.csv"
> > db.TableDefs.Append tdf
> >
> > at the append line.
> >
> > Anyone run into this problem before? Any idea what I should be using?
> > What
> > does the Linked Table Manager do with the strings, since I can relink
> > these
> > CSV files just fine using that?
> >
> > I plan on locking the main menubar down before deployment, and providing
> > limited, customized menubars, so my end user will NOT have access to the
> > Linked Table manager.
> >
> > Thanks!
> >
> > Amanda
>
>
>
.
- Follow-Ups:
- Re: Relinking a CSV file using code
- From: Douglas J. Steele
- Re: Relinking a CSV file using code
- References:
- Relinking a CSV file using code
- From: Amanda Payton
- Re: Relinking a CSV file using code
- From: Douglas J. Steele
- Relinking a CSV file using code
- Prev by Date: Elegant solution needed for protecting a record in continuous form
- Next by Date: RE: Question On Opening a DB
- Previous by thread: Re: Relinking a CSV file using code
- Next by thread: Re: Relinking a CSV file using code
- Index(es):
Relevant Pages
|
