'================================================================
'利用传递查询备份SQLServer数据库的数据表到当前数据库
'作者：朱亦文
'时间：2009.04.25
'函数名：BackupSQLTableToLocal
'参数：t_Name - 数据表名称
'================================================================
Function BackupSQLTableToLocal(ByVal t_Name As String) As Boolean
    On Error GoTo err_BackupSQLTableToLocal
    Dim db As Database
    Dim qry As DAO.QueryDef
   
    Set db = CurrentDb()
    Set qry = db.CreateQueryDef("_TEMP_", _
        "Select * FROM dbo.[" & t_Name & "]")
    qry.Connect = "ODBC;DRIVER=SQL Server;" & _
        "SERVER=yourSQLServer;" & _
        "UID=dbusername;" & _
        "PWD=password;" & _
        "DATABASE=database"
    qry.Close
    Set qry = Nothing
    DoCmd.RunSQL "Select * INTO [" & t_Name & "] FROM _TEMP_"
    DoCmd.DeleteObject acQuery, "_TEMP_"
    BackupSQLTableToLocal = True
    Exit Function
   
err_BackupSQLTableToLocal:
    BackupSQLTableToLocal = False
    Err.Clear
End Function