FAQ MS-Access
FAQ MS-AccessConsultez toutes les FAQ
Nombre d'auteurs : 140, nombre de questions : 926, dernière mise à jour : 15 juin 2021
Sommaire→Requêtes→Manipulation 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 :
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 SubExemple d'utilisation :
CreerRequete "test", "select * from matable"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 :
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 SubExemple d'utilisation :
ModifierRequete "test", "select champ1 from matable"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 :
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 SubExemple d'utilisation :
SupprimerRequete "MaRequete"Ce code SQL permet de rechercher le mot toto dans les CHAMP1, CHAMP2 et CHAMP3
SELECT *
FROM MATABLE
WHERE
CHAMP1="toto"
OR
CHAMP2="toto"
OR
CHAMP3="toto"