FAQ MS-AccessConsultez toutes les FAQ

Nombre d'auteurs : 140, nombre de questions : 926, dernière mise à jour : 30 mars 2017 

 
OuvrirSommaireRequêtesManipulation des requêtes

Tout d'abord ajoutez les références suivantes dans votre projet :

Microsot ADO Ext 2.X for dll and security Microsof ActiveX Data Object 2.X Library.

Ensuite, utilisez le code suivant :

 
Sélectionnez
Sub CreerRequete(Nom As String, SQL As String)
Dim MaCom As New ADODB.Command
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
MaCom.CommandText = SQL
MCat.Procedures.Append Nom, MaCom
Set MCat=Nothing
Set MaCom=Nothing
End Sub

Exemple d'utilisation :

 
Sélectionnez

CreerRequete "test", "select * from matable"
Créé le 10 mai 2005  par Tofalu

Lien : Tutoriel de JM Rabilloud sur ADOX

Tout d'abord ajoutez les références suivantes dans votre projet :

Microsot ADO Ext 2.X for dll and security Microsof ActiveX Data Object 2.X Library.

Ensuite, utilisez le code suivant :

 
Sélectionnez
Sub ModifierRequete(Nom As String, SQL As String)
On Error GoTo err
Dim MaCom As New ADODB.Command
Dim MaProc As ADOX.Procedure
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
Set MaProc = MCat.Procedures.Item(Nom)
MaCom.CommandText = SQL
Set MaProc.Command = MaCom
Set MCat = Nothing
Set MaProc = Nothing
Set MaCom = Nothing
Exit Sub
err:
If err.Number = 3265 Then MsgBox "impossible de trouver la requête " & Nom
End Sub

Exemple d'utilisation :

 
Sélectionnez
ModifierRequete "test", "select champ1 from matable"
Créé le 10 mai 2005  par Tofalu

Lien : Tutoriel de JM Rabilloud sur ADOX

Tout d'abord ajoutez les références suivantes dans votre projet :

Microsot ADO Ext 2.X for dll and security Microsof ActiveX Data Object 2.X Library.

Ensuite, utilisez le code suivant :

 
Sélectionnez
Sub SupprimerRequete(Nom As String)
On Error GoTo err
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
MCat.Procedures.Delete (Nom)
Exit Sub
err:
If err.Number = 3265 Then MsgBox "impossible de trouver la requête " & Nom
End Sub

Exemple d'utilisation :

 
Sélectionnez
SupprimerRequete "MaRequete"
Créé le 10 mai 2005  par Tofalu

Lien : Tutoriel de JM Rabilloud sur ADOX

 
Sélectionnez
CurrentDb.Querydefs.Delete "MaRequete"
Créé le 3 septembre 2004  par Lucifer

Lien : Comment effacer une table en VBA ?

Ce code SQL permet de rechercher le mot toto dans les CHAMP1, CHAMP2 et CHAMP3

 
Sélectionnez
SELECT * 
FROM MATABLE
WHERE
  CHAMP1="toto"
  OR
  CHAMP2="toto"
  OR
  CHAMP3="toto"
Créé le 14 octobre 2007  par Tofalu
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.