Create a linked table in Access via VB code?

[softwareguy74]

Is it possible to create a linked table in Access via
VB code rather than doing it from within Access?

For example, I want to create a linked table in an
Access db named db1.mdb. The text file will be named data.txt
and reside in c:\.

Please assume that Access will not be installed on the end user machine so I do not want to use Access objects..

Any help or guidance would be appreciated..

Dan

[Serge]

Try this:

   Dim db As Database
   Dim td As TableDef

   On Error Goto ErrHnd

   Set db = Workspaces(0).OpenDatabase("c:\db1.mdb")

   set td = db.CreateTableDef("TextFileTable")
   td.Connect = "c:\YourDirectory\"
   td.SourceTable = "data.txt"
   db.TableDefs.Append td

   Exit Sub

ErrHnd:
   MsgBox Err.Description

When you distribute your application, you will need to distribute DAO library as well.

Regards,

[softwareguy74]

Thanks, works great! But, is there a way to do it in ADO? I just want to minimize the amount of code to distribute and I use ADO for everything else.. I tried in ADO but there doesn't seem to be a TableDef feature...

Any ideas would be great!

Dan

[Serge]

Check out Microsoft's Example Page

[softwareguy74]

Wow, why does it look so much more complicated than using DAO? Also, I'm not sure what ADOX is but I wanted to use ADO. Is it one and the same? If not, is there an ADO example that you can provide me?

Thanks,

Dan