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 : Sélectionner tout - Visualiser dans une fenêtre à part
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