VBA, SQL, Access: Creer/Enregistrer une Requete

Version imprimable

Bonjour,

Je cree des requetes dans VBA Excel pour piloter access, mode compatible 2000. Jusqu'ici rien de bien extraordinaire, par exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim cnx As ADODB.Connection Dim rec As New ADODB.Recordset Set cnx = New ADODB.Connection cnx.Provider = "Microsoft.Jet.Oledb.4.0" cnx.ConnectionString = Path & Base cnx.Open Asst = ThisWorkbook.Sheets("NewDeal").Range("J19") Requete = "CREATE TABLE [" & Asst & "] (BizDt DATETIME, PxCls DOUBLE" & ");" rec.Open Requete, cnx cnx.Close Set rec = Nothing Set cnx = Nothing
La en l'occurence, ca cree un table dans Access.

Maintenant, en fait, cette table Je vais la multiplier champs a champs a une autre table. Je vais donc faire une autre requete.

Ceci dit, je veux que cette requete soit enregistree comme une requete dans access.

Ma requete en elle meme est la suivante:

Code:

Requete = "SELECT [" & Asst & "].BizDt, [" & Asst & "]![PxCls]*[" & CurTable & "]![PxCls] AS PxCls FROM [" & Asst & "] INNER JOIN [" & CurTable & "] ON [" & Asst & "].BizDt = [" & CurTable & "].BizDt;"

Mais cela n'est pasenregistree dans aAccess comme une requete qui se mettra a jour a l'ouverture. Je ne veux pas creer une table qui necessite systematiquement une mise a jour "manuelle" pour etre a jour (eviter la redondance de donnes, etc,...)

Suis-je bien clair?

Avez vous une solution?

Merci!
Lameth

28/02/2011, 11h41
pgz

Bonjour.

Si tu parles de créer une requête au sens du modèle d'objets ACCESS, c'est une QueryDef. A ma connaissance, tu ne peux pas créer cet objet avec SQL.
Par en DAO tu as la méthode CreateQueryDef. Je pense que tu devras ouvrir la BD.

Cordialement,

PGZ
28/02/2011, 12h15
Lameth

Merci, je suis en train d'investiguer ceci, je ne trouve pas encore de sytaxe generale...

Bonjour,

Une piste à creuser (en relation tardive) :

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
 
Private Sub ConnecterBase(ConnectBD As Object, _
                          Optional Rs)
 
    Set ConnectBD = CreateObject("ADODB.Connection")
    If Not IsMissing(Rs) Then
        Set Rs = CreateObject("ADODB.Recordset")
    End If
 
    With ConnectBD
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        'ici changer le chemin de la base
        .ConnectionString = "D:\stats.mdb"
        .Open
    End With
 
End Sub
 
Private Sub CreerTable()
 
    Dim ConnectBD As Object
    Dim Rs As Object
    Dim Catalogue As Object
    Dim Table As Object
    Dim Idx As Object
    Dim NomTable As String
 
    NomTable = "MaTable"
 
    'connecte la base de données
    ConnecterBase ConnectBD, Rs
 
    'initialise les objets ADOX
    Set Catalogue = CreateObject("ADOX.Catalog")
    Set Table = CreateObject("ADOX.Table")
    Set Idx = CreateObject("ADOX.Index")
 
    'connecte le catalogue
    'à la base de données
    Catalogue.ActiveConnection = ConnectBD
 
    'création de la table
    With Table
        .Name = NomTable
        With .Columns
            .Append "Nom", 202, 20
            .Append "Salaire", 3
            .Append "Prime1", 3
            .Append "Prime2", 3
            .Append "DateEntree", 7
        End With
    End With
 
    'si la table existe, demande si écrasement
    On Error Resume Next
    With Catalogue
        .Tables.Append Table
        If Err <> 0 Then
            If MsgBox("La table '" & NomTable _
            & "' existe déjà, l'écraser ?", _
            vbYesNo + vbQuestion) = vbYes Then
                .Tables.Delete NomTable
                .Tables.Append Table
            Else
                Exit Sub
            End If
        End If
    End With
    On Error GoTo 0
 
    'création de l'index clé primaire
    With Idx
        .Name = "ClePrim"
        .Columns.Append "Nom"
        .Unique = True
        .PrimaryKey = True
    End With
 
    'ajoute l'index
    Table.Indexes.Append Idx
 
    'rempli la table
    AjoutDansTable ConnectBD, Rs, NomTable
 
    'ferme la connection
    ConnectBD.Close
 
    Set Table = Nothing
    Set Catalogue = Nothing
    Set Rs = Nothing
    Set ConnectBD = Nothing
 
End Sub

Hervé.

Re,

En gros, cela devrait ressembler à cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim AccApp As Access.Application
Dim oDB As DAO.Database
Dim qdf As DAO.QueryDef
 
Set AccApp = CreateObject("ACCESS.APPLICATION")
AccApp.OpenCurrentDatabase (sCheminBase)
Set oDB = AccApp.CurrentDb
 
Set qdf = oDB.CreateQueryDef(sQueryNom, sSQL)
oDB.QueryDefs.Append qdf
 
oDB.Close
AccApp.Close
 
Set dqf = Nothing
Set oDB = Nothing
Set AccApp = Nothing

Cordialement,

PGZ

28/02/2011, 18h48
Lameth

Merci, la ligne

Citation:

oDB.QueryDefs.Append qdf

bugue mais semble inutile (ca marche sans cette ligne).

Merci en tous cas.
28/02/2011, 20h07
pgz

Bonsoir.

Si tu as une solution, pense à taguer :resolu:

Cordialement,

PGZ