vb6, access 2002, et des tas de questions!!!

Voila ma chaine de connection sur une de mes appli qui marche bien sur
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\API-Guide\jmb\api.mdb; Persist Security Info=False"
OLEDB.4.0 car j'ai access 97

Maintenant il faut ajouter la réfétence  par Projet Références
c:\program files\fichiers communs\system\ado\msado15.dll

s'il n'existe pas télécharger MDAC_TYP_2-7.exe chez microsoft et l'installer

Un moyen bon de récupérer la chaine de connection:

Mettre sur le bureau un fichier texte test.txt
le renommer en .udl
double cliquer dessus
Définir la connection à la base de données
Tester la connection
Ensuite ouvrir le fichier test.udl
récupérer la chaine de connection (c'est du texte)

Pas obligé de mettre la connection dans un module mais cela vaut mieux et la déclarer Public pour
accessibilité dans toute l'application.

Je précise que VB VB.NET et les bases de données SQL, Access sont mes spécialité en
conséquence ce que j'indique doit marcher.

Voici un moduler qui contient tout

Option Explicit
Global gConn  As New ADODB.Connection

Sub init
 ConnectStringData = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\inventaire.mdb;Persist Security Info=False"
    Set gConn = New ADODB.connection
    gConn=ConnectStringData
    gConn.Open
end sub

ensuite par exemple dans une sub

Sub machin
 DIM rsBiblio                     As New ADODB.Recordset
 rsBiblio.ActiveConnection = gConn
 rsBiblio.CursorType = adOpenStatic

    
 rsBiblio.Open "select * from Biblio" 
ou bien ce qui evient au même
rsBiblio.Open "select * from Biblio", gConn, adOpenStatic


' faire ce que l'on doit
End Sub

labout