Macro to import ODBC table

[xsnrg]

I am trying to write a macro that will import a table or series of tables from an ODBC SQL database.

I'm using the "TransferDatabase" option in the macro with this argument in the 'DatabaseName' property...
Driver={SQL Server};database=dbName;Server=srvName;UID=User;password=Password;

I'm getting an error. I know the data is there since I can MANUALLY import the table, but I cannot get the macro to automate it.

Doing this in a Module VBA options would be fine too. Any help?

 

[LonnieJohnson]

This is how you would import a SQL Server table using VBA.

Public Function ImportFromSQL()

    DoCmd.TransferDatabase acImport, "ODBC Database", _
        "ODBC;DSN=DataSource1;UID=User2;PWD=[URL unfurl="true"]www;LANGUAGE=us_english;"[/URL] _
        & "DATABASE=pubs", acTable, "Authors", "dboAuthors"


End Function

ProDev, MS Access Applications
Visit me at ==>

http://www.prodev.us

Contact me at ==>lonniejohnson@prodev.us

May God bless you beyond your imagination!!!