[VBA-E]connection ADO, pq ca plante?

**snooopy007** · 14/07/2006, 15h52

Bonjour

Je suis en train de faire une feuille excell modèle pour exporter ces données dans une base de donnée access. J'essaie de me connecter à ma base de donnée mais je n'y arrive pas.

J'ai retapé l'exemple de la doc de VB pour Excell mais ca plante :

Voici le code :

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
Option Explicit
 
Private Sub Workbook_Open()
 
    Dim cnnConn As ADODB.Connection
    Dim rstRecordset As ADODB.Recordset
    Dim cmdCommand As ADODB.Command
 
    ' Open the connection.
    Set cnnConn = New ADODB.Connection
    With cnnConn
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0"
        .Open "C:\perfdate\record.mdb"
    End With
 
    ' Set the command text.
    Set cmdCommand = New ADODB.Command
    Set cmdCommand.ActiveConnection = cnnConn
    With cmdCommand
        .CommandText = "Select Speed, Pressure, Time From DynoRun"
        .CommandType = adCmdText
        .Execute
    End With
 
    ' Open the recordset.
    Set rstRecordset = New ADODB.Recordset
    Set rstRecordset.ActiveConnection = cnnConn
    rstRecordset.Open cmdCommand
 
 
End Sub