Discussion :

[nemesys971]

Salut

Je travail sous Excel - Access. J'ai un code pour me connecter à ma base de données qui me covien parfaitement (ou presque) en faite je me suis récemment appercu que la connexion crée entre Excel - Access etait en mode exclusif donc je ne peux pas avoir ma base de données d'ouverte en meme temps. A savoir que se ne sont que des requete selection donc aucune modification n'est apporter a la base.


Merci pour vous commentaire suggestion


Voici le code d'ouverture de la base:

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
 
Private Sub OuvreConnexBase()
On Error GoTo Err_OuvrirConBase
    ' Ouverture de la Base de Données et Open the connection.
    Set cnnConn = New ADODB.Connection
 
    cnnConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
    cnnConn.Open CHEMINBD, "", ""
 
    ' Creation commande (SQL) ADODB
    Set cmdCommand = New ADODB.Command
    Set cmdCommand.ActiveConnection = cnnConn
Exit Sub
 
Err_OuvrirConBase:
    Call EnvoiMailErr("OuvrirConBase", Err.Description)
End Sub

[nemesys971]

petite précision ce que j'appel ouverture en mode exclusif c'est que la base de données doit etre fermée pour que les requete puissent s'éxécuter

[SilkyRoad]

bonsoir

tu peux tester cette synthaxe

Code :

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

1
2
3
4
5
6
7
8
9
Dim Cn As ADODB.Connection
Dim Rst As ADODB.Recordset
 
Set Cn = New ADODB.Connection
Set Rst = New ADODB.Recordset
 
Cn.Provider = "Microsoft.Jet.Oledb.4.0"
Cn.ConnectionString = "C:\maBase.mdb"
Cn.Open

bonne soiree
michel

[nemesys971]

ca permet la connexion a ma base mais pas de récupérer des données de ma base du coup pour faire les requetes c'est comment?

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider

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
Dim Cn As ADODB.Connection
Dim Rst As ADODB.Recordset
 
Set Cn = New ADODB.Connection
Set Rst = New ADODB.Recordset
 
Cn.Provider = "Microsoft.Jet.Oledb.4.0"
Cn.ConnectionString = "C:\maBase.mdb"
Cn.Open
 
Set Rst = New ADODB.Recordset
 
Rst.Open "SELECT * FROM Table1;", Cn, adOpenStatic, adLockOptimistic
Range("A1").CopyFromRecordset Rst
 
Rst.Close
Set Rst = Nothing
Cn.Close
Set Cn = Nothing

bonne soiree
michel