方法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.