Discussion :

[LadyArwen]

Bonjour,

Je souhaiterais savoir comment optimiser l'accès à une base de données (SQL Server liées dans Access97), notamment en lecture.
Je n'ai rien trouvé dans la FAQ, ni en recherchant sur le net.
J'ai une appli VB6, avec plusieurs forms de saisie, dans lesquels il y a des listes déroulantes à remplir au lancement du form, mais où l'on va aussi saisir des nouvelles informations qui seront mises à jour dans la même base.
J'utilise tantôt des contrôles adobc ou alors des chaînes de connexion avec Requête.open "select * from..."
Qu'est-ce qu'il est le plus rapide ?
Dans le cas des contrôles adobc, est-ce préférable de les mettre sur le form qui en a besoin ou de les mettre tous sur un form à part qui est lancé en arrière-plan ?
J'ai un mal fou à trouver des infos là-dessus.
Alors merci beaucoup d'avance et coucou à Ze

[dlpxlid]

Bonjour,

Pour ma part, je travaille avec un objet Connexion et un objet table tous les deux définis dans un module général.
Ensuite, grâce aux requêtes (bien étudiées), j'arrive à avoir des applis assez rapides. Par contre, je m'arrange toujours pour ne faire qu'une seule requête par form affiché et j'évite les filters qui ralentissent l'application car il est nécessaire de les refermer après leur utilisation.

[Troopers]

moi je teconseille de créé toi meme tes recordset et commandes ADO et de laisser tomber le control ADOBC (les control liés ça pose toujours un problème au bout d'un momoent)
Crée une connexion globale que t'initialise au chargement de l'appli et que tu fermes et détruit à la fermeture de l'appli.
Ensuite tu ouvres des recordsets quand tu en as besoin et biensur tu les fermes dès que tu n'en as plus besoin....

Maintenant en terme de performance entre les deux méthodes, je sais pas si y'a une réelle différence...

[LadyArwen]

Crée une connexion globale que t'initialise au chargement de l'appli et que tu fermes et détruit à la fermeture de l'appli.

OK, tu utilises quoi comme chaîne de connexion ?
On m'a déconseillé de mettre "DSN=MaBase"...

Je bosse avec unebase Access, mais on va transférer ça sur SQLServer, et les données seront utilisées par ASP pour l'Intranet + tard. J'ai pas trop envie de d'avoir de surprises à ce moment-là !
C'est Jet qu'il faut utiliser ?

La bonne syntaxe pour la connexion serait laquelle ?

Je continue a chercher sur le net si je trouve des infos.
Merci pour ton aide

[J M]

Salut,

Au niveau rapidité, j'ai pu vérifier (comme l'indique Troopers) que la persistance de la connexion tout au long de l'appli est bien plus performante.

Au niveau de la chaine de connexion, il est préférable d'utiliser OLE DB plutôt que ODBC (DSN=...), car je crois qu'ODBC est un intermédiaire entre OLE DB et l'utilisateur. Mais paramétrer une chaine de connexion OLE DB dans VB est particulièrement difficile....
Une astuce : créer un fichier TXT vide dans le répertoire de l'application, le renommer avec l'extension UDL, l'enregistrer , le fermer et le réouvrir. Miracle, on a maintenant une interface pour configurer sa connexion !!!
La chaine de connexion en VB est alors trés simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  maChaineDeConnexion = "File Name=" & App.Path & "\" & "MonFichier.udl"

Un autre avantage de la méthode est que le chemin de la BDD n'est plus inscrit en dur dans l'application.

En terme de rapidité, il faut aussi songer à utiliser les requêtes sous Access (Vues et Procédures stockées sous SQL Server). J'ai gagné quelques poignées de ms comme cela.

On peut aussi optimiser ses requêtes SQL, notamment en sélectionnant uniquement les colonnes voulues.

A+

[LadyArwen]

J'ai essayé ta méthode avec udl, mais il me met que c'est impossible dès la permière requête : connexion fermée ou non valide dans ce contexte.

Voici ce que j'utilise pour la requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Requete.Open "T_CATEGORIES", Menu.Conn, adOpenStatic, adLockOptimistic

C'est là-dessus qu'il bloque

et j'ai vérifié, je ne ferme la connexion que lorsque je quitte l'application.

Alors je sais pas, je ne sais pas trop comment paramétrer le fichier udl, je lui ai mis MicrosoftJet 4.0, et j'ai testé la connexion, ça a réussi... et pourtant avec l'appli il ne veut pas !

et dans Menu.Conn j'ai ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Menu.Conn = "File Name=" & App.Path & "\" & "SIA.udl"

Tu as une idée ?

Par contre si je laisse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Conn As New ADODB.Connection
puis dans Menu_Load :
Conn.ConnectionString = "DSN=SIA"
Conn.Open

là ça tourne sans pb !

[Troopers]

exemple de Connexion Access:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set oConnection = New ADODB.Connection
    oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathFile

Exemple de connexion SQL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set oConnection = New ADODB.Connection
    oConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & sLogin &";Initial Catalog="& sDataBase &";Data Source="& sServeur

[J M]

J'ai essayé ta méthode avec udl, mais il me met que c'est impossible dès la permière requête : connexion fermée ou non valide dans ce contexte.

Voici ce que j'utilise pour la requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Requete.Open "T_CATEGORIES", Menu.Conn, adOpenStatic, adLockOptimistic

C'est là-dessus qu'il bloque
et j'ai vérifié, je ne ferme la connexion que lorsque je quitte l'application.

et dans Menu.Conn j'ai ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Menu.Conn = "File Name=" & App.Path & "\" & "SIA.udl"

Si tu ouvres une connexion persistante dans ton appli pour améliorer la rapidité, il faut l'utiliser !
Là, je vois que tu passes une chaine de connexion à ton Recordset au lieu de l'objet ADODB.Connection actif.
Pour cela, il faut définir une variable globale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'CONNEXION BDD
'Connexion permanente
Public cnn As New ADODB.Connection

Puis l'ouvir en début d'appli. :

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
'Ouverture de la connexion permanente
Public Sub cnnOpen()
  On Error GoTo GestionErreur
 
  If cnn.State = adStateOpen Then Exit Sub
 
  cnn.CursorLocation = adUseClient 'Mieux avec BDD distante
  'cnn.CursorLocation = adUseServer 'Plus rapide et plus de fonctionnalités
 
  cnn.ConnectionString = cnnString
 
  cnn.Open
 
  Exit Sub
 
GestionErreur:
  sourisNormale
  If Err.Number <> 0 Then
    MsgBox ("Erreur n° " & Err.Number & vbCrLf & Err.Description)
    If cnn.State = adStateOpen Then
      cnn.Close
    End If
  End If
 
End Sub

Ensuite tu l'utilises avec tes RecordSets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rs.Open reqSQL, cnn

Cela devrait marcher.

Alors je sais pas, je ne sais pas trop comment paramétrer le fichier udl, je lui ai mis MicrosoftJet 4.0, et j'ai testé la connexion, ça a réussi... et pourtant avec l'appli il ne veut pas !

Donc le fichier UDL est bon !

Essaye d'ouvrir la connexion permanente comme je t'ai indiqué plus haut.
Si cela ne marche pas, vérifie que le chemin indiqué dans cnnString est correct après évaluation de App.Path.

A+

[LadyArwen]

Merci beaucoup JM !
Ca tourne impec !

Merci à tous même