Удалите приглашение для входа со связанными таблицами SQL в Access

Question

У меня есть проблема, похожая на эту: SQL Server 2008: проблемы с подключением ODBC

Но моя уникальна, потому что у меня уже установлена ​​опция «Сохранить пароль», когда я связываю своютаблиц, И он работает нормально, если я не пытаюсь открыть более одного запроса за раз.

Шаги для воссоздания:

1) Связать таблицу SQL с внешним интерфейсом Access 2003, мойDSN выглядит следующим образом:

[ODBC]
DRIVER=SQL Server
UID=ACD
WSID=ACD
APP=ACD
SERVER=xx.xx.xxx.xx,1053
Description=ACD Connection to SQL Server
Pwd=XXXXXXXX

Сначала у меня не было строки PWD, кажется, что это не имеет значения с этим или без него.

2) Запрос Open 1который использует связанную таблицу, без запроса входа в систему

3) Откройте 2-й запрос, пока первый еще открыт, получите эту ошибку, а затем запрос входа:

[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed. 
The login is from an untrusted domain and cannot be used with Windows authentication.

Я могу открыть столько таблиц, сколькоЯ хочу напрямую и не получаю приглашение на ввод пароля.

Если я войду в систему один раз, больше никаких запросов не будет, пока я не перезапущу Access, но это не вариант для моего приложения.

Iиспользую только аутентификацию сервера SQL, но не настройку аутентификации Windows.

Answer 1

Вы можете попробовать использовать DSN-Less соединение с вашим SQL сервером, у microsft есть страница поддержки для этого: http://support.microsoft.com/kb/892490

Это должно остановить запросы

Answer 2

Вы должны сохранить пароль в вашем соединении (см. Параметр dbAttachSavePWD )

Dim MyTable As TableDef
Set MyTable = CurrentDb.CreateTableDef(TableName, dbAttachSavePWD, SourceTableName, ConnectionString)
CurrentDb.TableDefs.Append MyTabl

например, чтобы прикрепить таблицу sql [аудит]. [Подробности] как AuditDetails, вы можете использовать следующий код:

Dim MyTable As TableDef
Set MyTable = CurrentDb.CreateTableDef
    (
      "AuditDetails",
      dbAttachSavePWD,
      "audit.Details",
      "ODBC;DRIVER={SQL Server};APP=TransFlow®;SERVER=sqlServerName;DATABASE=dbName;UID=userName;PWD=password"
    )
CurrentDb.TableDefs.Append MyTabl