方法1：使用CreateTableDef方法
CreateTableDef方法可創建鏈接表。若要使用此方法,創建一個新模塊,然後以下AttachDSNLessTable函數添加到新模塊。
複製代碼代碼如下:
'//Name:AttachDSNLessTable
'//Purpose:CreatealinkedtabletoSQLServerwithoutusingaDSN
'//Parameters
'//stLocalTableName:Nameofthetablethatyouarecreatinginthecurrentdatabase
'//stRemoteTableName:NameofthetablethatyouarelinkingtoontheSQLServerdatabase
'//stServer:NameoftheSQLServerthatyouarelinkingto
'//stDatabase:NameoftheSQLServerdatabasethatyouarelinkingto
'//stUsername:NameoftheSQLServeruserwhocanconnecttoSQLServer,leaveblanktouseaTrustedConnection
'//stPassword:SQLServeruserpassword
FunctionAttachDSNLessTable(stLocalTableNameAsString,stRemoteTableNameAsString,stServerAsString,stDatabaseAsString,OptionalstUsernameAsString,OptionalstPasswordAsString)
OnErrorGoToAttachDSNLessTable_Err
DimtdAsTableDef
DimstConnectAsString
ForEachtdInCurrentDb.TableDefs
Iftd.Name=stLocalTableNameThen
CurrentDb.TableDefs.DeletestLocalTableName
EndIf
Next
IfLen(stUsername)=0Then
'//UsetrustedauthenticationifstUsernameisnotsupplied.
stConnect="ODBC;DRIVER=SQLServer;SERVER="&stServer&";DATABASE="&stDatabase&";Trusted_Connection=Yes"
Else
'//WARNING:Thiswillsavetheusernameandthepasswordwiththelinkedtableinformation.