[AccessD] A97 - SQL Linked Table

Griffiths, Richard R.Griffiths at bury.gov.uk
Tue Oct 21 06:58:12 CDT 2003


thanks

> -----Original Message-----
> From:	Stuart Sanders [SMTP:stuart at pacific.net.hk]
> Sent:	21 October 2003 12:36
> To:	'Access Developers discussion and problem solving'
> Subject:	RE: [AccessD] A97 - SQL Linked Table
> 
> I've trimmed this a bit. Removed error handling etc.
> 
> 
> Public Function CreateAttachedTable(rstrSourceDbs As String, _
>     rstrDestDbs As String, _
>     rstrTable As String, _
>     Optional rstrNewTable As String = vbNullString _
> ) As Boolean
> ' Purpose:      creates a new table attachment in the specified database
> ' Parameters:   rstrSourceDbs - path and name of the database containing
> the
> table to attach to
> '               rstrDestDbs - path and name of database to create the
> attachment
> in,
> '                   or empty string for the current database
> '               rstrTable - name of the table in rstrSourceDbs to attach
> '               rstrNewTable - new name of table in destination database;
> _
>                     if empty string, do not change the name
> ' Returns:      true - successful; false - otherwise
> 
>     Dim dbs As Database
>     Dim tdf As TableDef
> 
>     ' get a handle to the destination database
>     If rstrDestDbs = vbNullString Then
>         Set dbs = CurrentDb()
>     Else
>         Set dbs = DBEngine.Workspaces(0).OpenDatabase(rstrDestDbs)
>     End If
>     ' create a new table object
>     If Len(Trim(rstrNewTable)) > 0 Then
>         ' use new table name
>         Set tdf = dbs.CreateTableDef(rstrNewTable)
>     Else
>         ' use original table name
>         Set tdf = dbs.CreateTableDef(rstrTable)
>     End If
>     ' set the appropriate properties to make it an attached table
>     tdf.Connect = ";DATABASE=" & rstrSourceDbs
>     tdf.SourceTableName = rstrTable
>     ' save the new table
>     dbs.TableDefs.Append tdf
> End Function
> 
> 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Griffiths, Richard
> > Sent: Tuesday, 21 October, 2003 7:13 PM
> > To: 'AccessD at databaseadvisors.com'
> > Subject: [AccessD] A97 - SQL Linked Table
> >
> >
> > Hi Group
> >
> > I am having a brain blockage today - I wish to remove a
> > linked table at
> > close of system and re-attach at start. I have code for
> > refreshing the link
> > but not create new linked table/delete link. Can anyone help.
> > (I am linking
> > to BE SQL db)
> >
> > Many thanks
> >
> > Richard
> >
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> 
> 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



More information about the AccessD mailing list