Подключение Access ADO к SQL Server 2014 Management Studio

Подключение Access ADO к SQL Server 2014 Management Studio

Я пытаюсь создать соединение с моим SQL Server через Access. Я не хочу связывать таблицы, поскольку некоторые из таблиц в БД очень большие. Я буду выполнять запросы в Access, которые вытаскивают информацию с SQL-сервера.

Sub CreateConnection()

Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection

cnn.Open "Server=MBLWINDOWS-PC\SQLEXPRESS;Database=AdventureWorks2012; UserId=myUsername;Password=myPassword"

Debug.Print cnn.ConnectionString

cnn.Close

End Sub

Имя пользователя и пароль для доступа к SQL-серверу - это логин и пароль пользователей Windows

Как я могу включить это в строку подключения?

0

добавлено 27 Декабрь 2014 в 07:22 автор user2904400 отредактировано 27 Декабрь 2014 в 08:10

Просмотры: 25

источник

de

Точно так же, как и быстрое наблюдение, факт наличия связанной таблицы с 1 миллионом строк НЕ обеспечивает доступ для вывода всех записей. Фактически вы можете запустить форму (или отчет), связанную с этими связанными таблицами, и использовать предложение where, такое как Where Customer id = 134, ТОЛЬКО вытащить 1 запись в эту форму или отчет.

добавлено 28 Декабрь 2014 в 05:56, автор Albert D. Kallal , источник

«Я не хочу связывать таблицы, поскольку некоторые из таблиц в БД очень большие». Похоже, вы действительно не понимаете, как работают связанные таблицы.

добавлено 27 Декабрь 2014 в 11:48, автор Gord Thompson , источник

2 ответы

Если вы хотите использовать учетные данные пользователя Windows для подключения к SQL Server, просто используйте параметр Integrated Security в строке подключения:

Server=MBLWINDOWS-PC\SQLEXPRESS;Database=AdventureWorks2012;Integrated Security=SSPI;

и это все, что есть.

0

добавлено 27 Декабрь 2014 в 08:10 автор marc_s

источник

Видеокурс по Java для начинающих

Получи видеокурс по Java для начинающих с упражнениями

Это код, который работает

Sub CreateConnection()

Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection

With cnn

.Provider = "SQLOLEDB"

.ConnectionString = "Data Source=MBLWINDOWS-PC\SQLEXPRESS;database=AdventureWorks2012;Integrated Security=SSPI"

.Open

End With

If cnn.State = adStateOpen Then

MsgBox "Connection established"

End If

cnn.Close

Set cnn = Nothing

End Sub

0

добавлено 28 Декабрь 2014 в 05:19 автор user2904400

источник