[VBA-E]Connexion ADODB a une base de données

Version imprimable

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:

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

28/03/2006, 14h36
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

bonsoir

tu peux tester cette synthaxe

Code:

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

29/03/2006, 15h46
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?

bonjour

j'espere que cet exemple pourra t'aider

Code:

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