Вот код для подключения к базе данных Azure SQL с помощью Active Directory, но я не могу подключиться к нему. Я что-то упускаю? Я чувствую, что Azure AD отличается, но не уверен, что именно мне не хватает.
Он хорошо работает для AWS, где я разместил свой MS SQL, но не работает в Azure Sub SQL_Connection ()
Dim con As ADODB.Connection 'для получения соединения Dim rs As ADODB.Recordset' для получения набора записей Dim query As String 'для получения запроса Set con = New ADODB.Connection' для инициализации соединения Set rs = New ADODB.Recordset 'для инициализации набор записей 'rs = reocrd set
strCon = "Provider = SQLOLEDB; Trusted_Connection = False; Encrypt = True; Data Source = servername.database.windows.net, 1433; Initial Catalog = datbasename; Integrated Security = SSPI" con.Open (strCon) If con.State = adStateOpen Затем MsgBox "Теперь вы подключены!" SQLStr = "SELECT TOP (10) * FROM xxxxxxxx" rs.Open SQLStr, con, adOpenStatic With Worksheets ("sheet1"). Range ("a6: z500") .ClearContents .CopyFromRecordset rs End With Else MsgBox "Извините. Вы не есть бутон доступа ". Конец, если
rs.Close Set rs = Nothing con.Close Set con = Nothing End Sub