"Echec de liaison" Sql server
Bonjour à tous.
Je rencontre des problème avec mon code VB6 ou Sql Server (base chez mon hébergeur).
En fait le problème est que lorsque je me connecte sur ma bdd distante à partir de mon application vb6, la connexion semble durer 10 à 15 secondes ! le temps de saisir une form et plus de connection.
Pouvez vous me dire si cela vient de mon code, ADOBD.... ou simplement de mon hebergeur ? Quelle solutions je peux avoir ?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Global gConnexion As ADODB.Connection
Global dynNomTable As ADODB.Recordset
----------------------------------------------------------
Function connexion()
On Error GoTo ErreurOpen
Dim NomUtilisateur As String, MotDePasse As String, NomDuServeur As String, BDtest As String
Dim strCnxn As String
NomUtilisateur = "XXXXXXXX"
MotDePasse = "XXXXXXXXXX"
NomDuServeur = "XXXXXXXXX"
BDtest = "XXXXXXXXXX"
strCnxn = "UID=" & NomUtilisateur & _
"; PWD=" & MotDePasse & _
"; DRIVER={SQL Server}" & _
"; Server=" & NomDuServeur & _
"; Database=" & BDtest & ";"
Set gConnexion = New ADODB.Connection
gConnexion.Open strCnxn
Exit Function
ErreurOpen:
Screen.MousePointer = vbArrow
MsgBox "Problème d'accès aux données." & Error, vbCritical
End
End Function |