访问和SQL服务器：使用表格擦除重置自动编号字段

我试图保持SQL Server Express表和生产访问版本之间同步的活动表的副本。在其他表中，我能够擦除SQL Server表的内容，并将整个混乱插入其中以捕获所有更改。但是，当我尝试对这个表执行此操作时——我获得了信息——但是Autonumber字段从上次迭代中最后一个未使用的数字开始递增。在进行了十几次"同步"操作后，这个字段的自动编号已经快用完了。

我试过从Microsoft Access前端应用程序发出'DBCC CHECKIDENT'，这会抛出一个错误，该语句没有以SELECT, DELETE, PROCEDURE, DROP, ALTER或类似的东西开始。当从SQL Server管理控制台发出此命令时，此命令确实工作(我在当前测试环境中可以访问的工具，但当应用程序进入生产时将不工作)。

然后我尝试使用DoCmd查询'TRUNCATE TABLE'。运行sql命令，它抛出了错误，该操作不支持链接表(大约)。这个表链接到Microsoft Access前端(后端表在SQL Server Express上)。

快速总结一下:

前端是一个Microsoft Access VBA应用程序
数据存储在远程机器上的SQL Server Express上
数据表在前端应用程序中链接
当这个应用程序进入生产时，我将无法使用SQL Server管理控制台命令，它需要自己运行它的管家。
DoCmd。RunSQL和CurrentDB。Execute似乎不允许使用TRUNCATE TABLE -或- 'DBCC CHECKIDENT'命令。
当从SQL Server管理控制台发出时，上述两个功能- do -工作-参见上面为什么这不是一个可行的选择。
-所有-其他表的行为方式我希望他们除了这一个，重置他们的身份字段适当。

—编辑于2011年8月8日@ 15:08—

好吧-我已经尝试了一些基于vba的直通查询，所有结果都是ODBC调用失败错误。下面是我创建的用于处理传递的模块的代码(从dbforums.com借用的代码):

Function RunPassThrough(ByVal ConnectionString As String, ByVal SQL As String, Optional ByVal QueryName As String)
    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Set dbs = CurrentDb
    Set qdf = dbs.CreateQueryDef
    With qdf
        .Name = QueryName
        .Connect = ConnectionString
        .SQL = SQL
        .ReturnsRecords = (Len(QueryName) > 0)
        If .ReturnsRecords = False Then
            .Execute
        Else
            If Not IsNull(dbs.QueryDefs(QueryName).Name) Then dbs.QueryDefs.Delete QueryName
            dbs.QueryDefs.Append qdf
        End If
        .Close
    End With
    Set qdf = Nothing
    Set dbs = Nothing
End Function

因此，我需要指定到数据库的连接字符串;以下所有操作都失败了:

strConnect = "ODBC;DRIVER={SQL Server};SERVER=ENV980-067ENVIRON_TEST;DATABASE=instkeeper_test;Uid=<my username>;Pwd=<my password>;"