[AccessD] A2K:ADO Version of the following

NO ARCHIVE

Thanks Steve
I worked it out

Thanks again

----- Original Message ----- 
From: "Developer" <Developer at UltraDNT.com>
To: "'Access Developers discussion and problem solving'" <accessd at databaseadvisors.com>
Sent: Tuesday, February 24, 2004 10:26 AM
Subject: RE: [AccessD] A2K:ADO Version of the following


> On the pc I am at right now, it's: "Microsoft ADO Ext. 2.5 for DDL and
> Security" (the filename is msadox.dll).
> 
> G2H (glad to help!)
> 
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
> Sent: Monday, February 23, 2004 5:58 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] A2K:ADO Version of the following
> 
> 
> Hi Steve
> Thank for the response
> What ref do I need to set?
> 
> many thanks
> 
> Darren
> 
> ----- Original Message ----- 
> From: "Developer" <Developer at UltraDNT.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Tuesday, February 24, 2004 1:40 AM
> Subject: RE: [AccessD] A2K:ADO Version of the following
> 
> 
> > You need to use ADOX, which is ADO for DDL and Security.  If you have 
> > ADO, you have ADOX.  Add the reference, and then use something like:
> > 
> > Public Sub DelLinkedADO()
> > Dim c As New ADOX.Catalog
> > Dim t As ADOX.Table
> > 
> > Set c.ActiveConnection = CurrentProject.Connection
> > 
> > For Each t In c.Tables
> >     If t.Type = "link" Then
> >         c.Tables.Delete t.Name
> >     End If
> > Next
> > End Sub
> > 
> > Hth,
> > Steve
> > 
> > 
> > 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
> > Sent: Monday, February 23, 2004 8:07 AM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] A2K:ADO Version of the following
> > 
> > 
> > Bugger
> > 
> > Thanks John
> > 
> > ----- Original Message -----
> > From: "John W. Colby" <jwcolby at colbyconsulting.com>
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Sent: Monday, February 23, 2004 10:40 PM
> > Subject: RE: [AccessD] A2K:ADO Version of the following
> > 
> > 
> > > Unfortunately all that stuff is DAO specific.  There is no (AFAIAA)
> > > any equivalent in ADO.
> > > 
> > > John W. Colby
> > > www.ColbyConsulting.com
> > > 
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Darren 
> > > DICK
> > > Sent: Monday, February 23, 2004 5:40 AM
> > > To: AccessD List
> > > Subject: [AccessD] A2K:ADO Version of the following
> > > 
> > > 
> > > Hello all
> > > I have a nice bit of code (Thanks Deano) that drops all the linked
> > > tables in a dB - cool Does anyone know the ADO version of the code 
> > > below?
> > > 
> > > Many thanks
> > > 
> > > Darren
> > > 
> > > """"""""""""""""""""""""""""""""""""""""""""""
> > >  Dim lnk As DAO.tabledef
> > > 
> > >     For Each lnk In CurrentDb.TableDefs
> > >         If lnk.Attributes = dbAttachedTable Then
> > >             CurrentDb.TableDefs.Delete lnk.Name
> > >         End If
> > >     Next
> > > _______________________________________________
> > > 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
> > _______________________________________________
> > 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
> _______________________________________________
> 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