update de string de connection suite à migration BE sur SqlServer
Bonjour,
je migre le BE sur SqlServer: je ferraille pour modifier les connections: par exemple, je en parviens pas à modifier les choses comme celle-ci:
Code:
1 2
| Set objConnection = CurrentProject.AccessConnection
objConnection.Execute (str_SQL) |
ou bien
Code:
1 2
| With objRcdset_Source_Profession
.ActiveConnection = objConnection |
J'arrive à établir la connexion, par exemple comme ci-dessous, mais je sèche toujours devant Set objConnection =.
Donc merci beaucoup de vos suggestions!
Etxe.
Code:
1 2 3 4 5 6 7 8 9 10 11
| Private Sub Form_Load()
str_pub_Server = "DESKTOP-5D648IQ\SQLEXPRESS"
str_pub_Database = "EssaiMigration11052020"
str_pub_StringDeConnection = "Provider=SQLNCLI11;Data Source=" & str_pub_Server & ";Initial Catalog=" & str_pub_Database & ";Integrated Security=SSPI;"
Set obj_pub_ConnectionSqlServer = New ADODB.Connection
obj_pub_ConnectionSqlServer.Open str_pub_StringDeConnection
DoCmd.OpenForm "af_aMenu", acNormal
End Sub |